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ABSTRACT 


The problem is to design and implement an Input/Output Scheduler 
for the General Electric Corporate Research and Development Center. 
Given the Center's current time-sharing environment of master and 
slave modes, a slave mode scheduling system is proposed. This 
system is composed of two distinct levels: a monitor, which 
handles all external input/output and scheduling, comprises the 
upper level; the lower level contains all the peripheral driver 
modules, which, while also operating in slave mode, transfer the 
data to/from such peripheral devices as line printers and card 
punches. Just such a system has been successfully-written and 


is operating on the Center's computer system. 
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INTRODUCTION 


The purpose of this paper is to provide an overview of an Input/Output 
scheduling system which was designed and implemented at the General Electric 
Research and Development Center during the period June 1971 to September 
1971. The object of this work was to build a software operating system which 
while running under the Center's current time-sharing system would: 

(1) decrease the amount of code that must be core resident; 

(2) increase absolute number and types of I/O devices that 

could be brought on-line simultaneously; (3) use the existing 

interfaces; (4) allow the operator via a command language to 

bring I/O devices arbitrarily on/off line; (5) and allow for 


experimentation and debugging of new I/O devices. 


This project report is divided into three major sections. The first 
provides an overview of the hardware, the current operating executive system, 
and the old Listener structure. The second section deals with the overall 
design of the new Listener structure (i.e. the Input/Output Scheduler). 
Lastly, the third part gives a detailed view of the internal structure of the 


Monitor and an I/O driver prototype. 
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CHAPTER I 


SYSTEM OVERVIEW 


Hardware 
Executive System 


Old Listener Structure 


I.l1 Hardware 


The hardware configuration is as shown in Figure 1. The basic 
system consists of a single processor, a real time - I/O controller, and 
two 64K memory modules. The central processor is a GE 605, which has 
four base address registers, (BAR), instead of the one as in the GE 635. 
These provide memory protection, automatic relocation, and optional write 
inhibit. Each register has two fields, one which denotes the origin of 
the current program in core and the other which denotes its length. The 
hardware automatically checks all logical addresses produced by the proc- 
essor (when operating in slave mode). A process (program in execution) 
can thus consist of up to 4 physically disjoint segments (which all must 
be in core when the process is in execution). Since the address field 
is 18 bits long and the 2 high order bits are used to designate the BAR, 
a segment has a maximum length of af 16 words (65,536). The write in- 
hibit bit, which is associated with each base register, can be used to 
prevent modification of a segment. This is particularly useful in imple- 
mentation of pure procedure. The processor operates in either of two 
modes: master or slave. In addition, certain privileged instructions 
(for performing I/O and manipulating BAR's) can only be executed in 
master mode. 

The RT-IOC serves as the input-output interface for the system. 
This device is capable of transmitting data in an asynchronous manner 
between core memory and up to 32 peripheral devices. 

The memory is composed of two memory controllers and 64K of 
36-bit (plus 1 parity bit) magnetic core storage with a 1.0 microsecond 


read-restore memory cycle time per controller. 
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Figure 1 


I.2 Executive system 


The exec is designed to perform two major functions (see Appendix I) 
(6). First of all, it provides a set of primitives accessible to all users which 
serve to enhance the hardware instruction repertoire of the machine. Thus the 
user sees a pseudo machine with extended capabilities. It is convenient to 
divide the primitive commands into the following three categories: 

1. File manipulation (1/© commands) -- primitives for the reading, 
writing,- appending, and scratching of either sequential or random 
access files. These enable the user to perform input/output opera- 
tions which are expressed in terms of logical file parameters. Thus 
the user is shielded from the intricacies of the actual hardware 
device being dealt with and the actual physical location of the file. 

2. Process manipulation (control commands) -- primitives for 
creating, terminating, and blocking processes, setting up fault 
handling modes, for°-making memory requests and readjusting base 
address register settings. 

3. Directory manipulation (file and event commands) -- primitives 
for creating and destroying directories and entries within directories 
and for modifying and reading information within entries. The file 
commands provide the user with an interface to the file system. 
They allow him to open cataloged and scratch files, to catalog a 
file or directory, to unsave a file or directory. The user is thus 
allowed to create a file structure and to manipulate it within this 
structure. 

The second major function performed by the exec is the allocation of 
resources to the active processes in the system demanding service. These 
resources include central processor time, core space, space On mass _ storage 
devices and use of peripherals. The exec takes into account the current 
utilization of the system resources as well as the priority and history of the 


various processes demanding service in making decisions in this area. 


The exec itself is divided into two sections: the Master Mode Exec- 
utive and the Slave Mode Executive (see Figure 2). The Master Mode Executive 
is the only portion of the entire Executive that executes code in master mode. 
The Slave Mode Executive operates in slave mode. The Master Mode Executive 
can be categorized by its three principal functions: 

1. The execution of system input/output primitive commands -- the 
code for initiating data transfers in contained in the master exec. It 
translates these primitive commands, which are expressed in terms of 
‘logical parameters, into~commands recognized by the hardware. The 
major reason for this is that I/O transactions must use absolute core 
addresses. Such'information is invisible to code which is executed 
in slave mode where addresses are logical, relative to some BAR. 

A further reason is that the instruction for initiating a transfer can 

only be executed in master mode. This prevents slave processes 

from directly initiating their own transactions, a prohibition which 

is indispensible when storage on peripheral devices is shared by 

many users. In addition to servicing the interrupts generated, the 

Master Mode Executive returns to the user the physical and logical 

status of the operation. 

2. The running of processes -- code in the Master Exec is also 
responsible for setting up and transferring control to slave processes. 
The reason for this is that the instructions for loading BAR's can 
only be executed in master mode. Such a restriction is necessary 
in a’system in which several processes must coexist in core. 

3. Fault handling, disk and drum allocation, and hardware mal- 
function servicing -- master mode is entered in one of two ways: 
either by interrupts or by faults. In contrast to interrupts, which 
are caused by signals from peripheral devices, faults are caused by | 
the process in control when the fault occurred (e.g. accumulator 
Overflow, illegal instruction, illegal memory reference, etc.). If 


the process has previously indicated its desire to handle such faults, 


control is returned by the master exec to the fault handling code 
of the slave process responsible for the fault. If the process has 
not set up its own fault handling mechanisms, the process is 
terminated when such a fault occurs. 

A fault may also be caused by a slave process by executing a 
master mode entry (MME) instruction. Such an occurrence indicates 
that the slave process wishes the exec to execute a primitive on 
its behalf. The exec determines the identity of the primitive as 
well as its parameter by examining the contents of the registers 
at the time the MME occurred. Those primitives dealing with file 
‘manipulations are handled by the exec's primitive handler. All 
other primitives are passed on to the slave exec. 

The Slave Mode Executive can likewise be categorized by its three 
principal functions: 

1. The allocation of system resources -- it is its responsibility to 
allocate the central processor and memory to the slave processes. 
The slave exec must also make decisions concerning the allocation 
of certain peripheral devices (e.g. mangetic tapes) to slave processes. 
The only exception to the allocation of system resources is the space 
on the shared’ mass storage device, which is allocated by the master 
exec. 

2. Scheduling and swapping -- the slave exec determines core 
utilization and process swapping. This also includes (process 
termination) . 

3. Directory and process primitives -- directory and process 
manipulation primitives are passed on to the slave exec by the 
master exec. The slave exec then executes the process and file 
system primitives and it maintains the file system catalog (directory). 
It is the slave exec that has the real control over the operating 


system. 
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I.3 Old Listener Structure 


The Listener is the one slave process that is always in the system 
and it plays a rather unique role [8]. As can be seen from Figure 3, the 
Listener is the most important slave process of the multi-level job structure. 
In some senses, it is an extension of the Executive. Because of its func- 
tional responsibilities, which include the handling of all teletypes and com- 
munications files, the validation of all user numbers, the spawning of all 
other slave processes, the collection of system statistics, and the handling 
of the system output to such devices as the line printer and card punch, the 
Listener must be “booted-in" with the Executive as part of the system 
start-up deck. 

In order to better describe the relative importance of the Listener, 
it is most convenient to discuss the Listener by dividing it into the following 
four functional categories: 

1. The handling of teletypes’ and communications files -- this 
category or functional area is itself composed of three sub-areas. 

On the physical level, the Listener has the responsibilities of 

answering a ringing phone; hanging-up the phone after a sign-off; 

and taking care of a disconnect. On the message level, the 

Listener handles all panic stops (i.e. breaks) such editing as 

character or line deletions for teletype input; and the transferring 

of data between teletype and the slave process wishing to com- 

municate via the teletype. 

On the operator level, the Listener is in charge of sending all 
operator messages and warnings to the teletype users. Due to 

the Listener's control overall teletype, the operator can selectively 

enable or disable any and all teletypes. 

2. System statistics and accounting -- by the very nature of 
its position in the job structure hierarchy, the Listener is the 
most logical process to collect system statistics (e.g. the number 


of teletype connections, the number of characters input and output, 
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the maximum number of users, the number of communication file 
reads and writes, and the number of processes spawned). Since 
the Listener handles the validation of user numbers, it likewise 
creates the accounting blocks for user billing. 

3. Spawns other slave processes -- it spawns other slave 
processes as they are required and passes on to them the pa- 
rameters they need. Hence all processes are descendents of 
the Listener. 

4. SYSOUT processing -~ SYSOUT (i.e. System Output) proc- 
essing includes the printing and punching of output generated by 
any slave process. A slave process which has created data to 
be outputted, can do so by copying that data into a cataloged 
file (or by copying the data into a scratch file and then cata- 
loging the file [2]. Next the slave process opens the system 
file 'PRINT-FILE-QUEUE' if the data is to be printed on the 
high-speed printer or opens the system file 'PUNCH-FILE-QUEUE' 
if the data are to be punched. After a successful open, the 
slave process appends a 64 word descriptor to the appropriate 
file. The descriptor contains the complete tree-name of the 
file to be outputted and identifier bits (e.g. the bits describe 
the format of the data and whether or not a header has been 
supplied). Via the event structure [1], the slave process 
‘causes' the appropriate system event (either PRINT-FILE-EVENT 
or PUNCH-FILE-EVENT). The Listener is then 'notified' via 
the event mechanism. It responds by reading the appropriate 
'FILE-QUEUE', opening the data file, and outputting it to the 
proper device. This assumes that the device is currently in- 
active. If the peripheral device is busy, the Listener simply 
does nothing for the moment. When it finishes the current 


data file, it will check to see if there are any more des- 


ll 


criptors since it last looked. If so, it will start the outputting 
of the next data file. Although it is possible for any slave proc- 
ess to have a data file punched or printed, the slave process may 
never access the peripheral device which receives the data. The 
Listener in addition to the one line printer and card punch also 


owns the card reader. 
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II.1 Problem Statement 


Given the General Electric Research and Development Center's time- 
sharing system with its hierarchial job and file structure as the programming 
environment, the problem is to design and then implement in assembly lang- 
uage an Input/Output Scheduler system, which would assume the Listener's 
current functional duties of card punching, card reading and line printing, 
and which would increase the utilization of the system resources (e.g. line 
printer, card punch, core) while leaving as much of the existing support 


interfaces unaffected. 
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II.2 Limitations of the Old Listener Design 


The Listener, as originally designed, probably served well in its 
apprentice years. But just as the Executive system has grown to expand 
its capabilities, the Listener has been forced to grow. Growth in an as- 
sembly language program usually means modifications of the existing code 
and especially additional code to handle the new or unthought of situations. 
Thus growth (or attempted extra added responsibilities) points out the 
Listener's three major inter-related limitations with regard to peripheral 
device I/O scheduling: 

1. Core resident -- the Listener, as mentioned earlier, is a 

core resident module. It is currently 18 1/2 K in size (45000 

octal words). Any additions which would obviously increase its 

‘size would do so only at the expense of the core designated 

for slave processes since the additional code would also become 

core resident. Since the Listener must be core resident it must 

be made as small as possible by removing non-essential code. 

The code which handles the line printer, card punch and reader 

is non-essential, 

2. Coded for one peripheral device of each type -- the 

Listener was coded to handle only one line printer and one card 

reader and one card punch. Although the Center has two line 

printers, only one can truly be on-line. This is an obvious 
waste of system resources. The Listener could be rewritten 

to handle the second line printer, but this would just increase 

the amount of code that would then become core resident. 

This’ would not answer the problem if yet another line printer 

was purchased or another card punch. 

3. Debugging and experimentation extremely limited -- since 
the Listener controls all teletypes and spawns all slave proc- 


esses, any debugging must be done on a dedicated system. 


This necessarily limits the amount of time that can be spent 
trying out modifications. For to crash the Listener is to crash 


the entire system. 
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II.3 Design Criteria 


The software system to be designed is defined by the problem statement. 
The assembly language program(s) must run under the General Electric R & D time- 
sharing environment. The new system must handle Input/Output scheduling for- 
merly handled by the Listener and it should utilize the existing interfaces as 
much as possible. The criteria that this system must meet are the following: 

1. By decreasing a functional responsibility of the Listener, the 

amount of code that must be core resident must be likewise de- 

creased. And if possible, the total amount of code to handle the 

peripheral devices should be kept to a minimum, thus freeing core 

for the other slave processes. 

2. The number and type of I/O devices that could be brought on- 

line simultaneously should be considered arbitrary. The code must 

be general enough to handle such additions as a third line printer 

or graphics plotter. 

3. The existing software interfaces should be used as much as 

possible in order to minimize the amount of new code that need 

be written. This also minimizes the amount of time spent de- 

bugging the new system. 

4. The operator through some command language must be able to 

bring I/O devices arbitrarily on/off line. This is necessary in 

order to handle hardware failures. Also through this command 

language, the operator must be allowed to re-start or stop the 

output on any of the I/O devices. 

5. The new system must allow for experimentation and debugging 

of new I/O devices without danger of crashing the entire system. 

If possible all debugging should be able to be done on-line in 


order to give the programmer the greatest amount of on time. 
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II.4 System Design 


The development of this Input/Output Scheduling system was evo- 
lutionary (rather than a selection of one from a number of alternatives), and 
only the final result will be described here (see Figure 4), although justifi- 
cations will be given where possible. To satisfy the first criterion stated 
above, it was decided that the system should be separated into two major 
functional areas. The first included such functional duties as the handling 
of all external input/output, which is composed of slave process and op- 
erator requests, the pre- and post-processing of a request, billing, and 
the scheduling of requests. The second was comprised largely of the 
transferring of data from the file to the appropriate I/O device. This 
separation was accomplished by coding the-two areas as two distinct pro- 
totype modules -- a Monitor and a peripheral driver prototype. This 
method minimizes at all times the amount of code that must be in core 
at any given time. For the Monitor need be in core only for a few mille- 
seconds to handle a request. On the other hand, a particular peripheral 
driver, such as the line printer module, may be transferring data for a 
length of time as small as a few seconds to as much as an hour or more. 
Since the two functional areas are independent, the amount of core that is 
tied up is minimized if they are coded separately. Since any module that 
is not busy is legible to be swapped out of core. 

The second criterion is easily met. The fact that the entire sys- 
~ tem ‘was ~modularized ‘allows ‘for an arbitrary number and type of I/O devices 
that could be brought simultaneously on/off line. The Monitor has a com- 
plete set of assembly time parameters (i.e. MACROS) which allow for the 
definition of an arbitrary number and type of I/O devices. It has a command 
language via which the operator may selectively bring a particular device on 
or off line. Also the peripheral driver prototype may be modified (e.g. char- 
acter conversion tables) to handle the new device or through an assembly 
time parameter handle an additional device of an already defined type or 


new. type. 
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The third criterion simply requires that the old interfaces and con- 
ventions are retained. Since the author had no objections to or improve- 
ments for the old methods of interfacing, these were retained unmodified. 
The fourth criterion has already been explained. There is a command lang- 
uage via which the operator is able to bring I/O devices arbitrarily on/off 
line. 

It is the fifth criterion that sums up the appropriateness of the 
modular system design. Since the Monitor is just another slave process 
spawned by the Listener, the programmer is allowed to spawn more than 
one of these at a time. Through the use of the command language, the 
programmer can arbitrarily assign the various I/O devices to the currently 
running Monitors. Thus while the current version of the Monitor is running, 
an experimental version: may be spawned to test out some new feature. If 
the regular or experimental version of the Monitor should crash, the rest 
of the system and users would be unaffected. Likewise new peripheral 


driver prototypes may be tested in a similar fashion. 
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Before discussing the coding in detail of the new Listener structure, 
it is felt that a more general discussion of the organization of both the 
Monitor and the peripheral driver prototype would be most enlightening. 
Although not a design criterion, all modules written were designed to be 
multi-programmed [3]. Each module is therefore internally organized 
around a set of queues. Generally speaking, each resource has associated 
with it a queue on which are put all tasks currently requesting that resource. 
In a more general sense, the queues are used for synchronizing and communi- 
cating between routines. 

These routines are in essence a set of algorithms. The Monitor is 
composed of five major algorithms (see Figure 5); the peripheral driver proto- 
type, four algorithms (see Figure 11). An algorithm, as defined by 
Trakhtenbrot in Algorithms and Automatic Computing Machines, is a list of 
instructions specifying a sequence of operations which will give the answer 
to any problem of a given type. The important point to note is that the 
list of instructions is never modified. Hence two or more persons or proc- 
esses can be executing the same algorithm simultaneously (i.e. multi- 
programming). The only thing that can be modified is the individual data 
area of each process. This now allows for the definition of a task (some- 
times referred to as a process) [5]. A task is represented by a pair of 
words. The first is called the instruction pointer, or IP, which points to 
the next instruction in the algorithm list to be executed. The second word 
points to the task's data area. It is called the environment pointer, or EP. 

What follows is now that generalized discussion of the major al- 
gorithms first in the Monitor and then in the peripheral driver prototype. 

The algorithms are described in a pseudo-algol-like language to help the 


reader conceptualize the process. 
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MONITOR 
1) External input algorithm 


The External Input algorithm is executed on every interrupt from 
either a slave process requesting a data file to be outputted or the operator 
~via the command language. At initialization time for the Monitor, a task 
is created for each system event (e.g. PRINT-FILE-EVENT, PUNCH-FILE- 
EVENT, or OPERATOR-EVENT) to execute this code. The normal state of 
each task is to be blocked waiting for an interrupt, or wake-up, signal 
(see Figure 6, Ll). Upon receipt of a signal, the task receiving the in- 
terrupt resumes at line L2. The conditional statement tests whether or 
not the Monitor owns any resources associated with the interrupt request. 
If not, there is no need to read the request because it cannot be handled 
now ~- no resources at all -- go the task goes blocked again. Hence 
there is no reason to start the processing of the request, which would 
only tie up core. This is a safety feature to handle mechanical failures. 

If the Monitor does own at least one of the resources requested, 
the execution proceeds. A job control block is allocated, as well as a 
read buffer, to hold the slave process 64 word descriptor. The des- 
criptor is then read into core. If the file containing the descriptor was 
not empty (not End-Of-File), then the job control block is filled in as 
described by the descriptor. A statistics counter is incremented. The 
read buffer is released, and the request is then placed on the appropriate 
waiting, or input, queue. Since a single slave process may place more 
than one request at a time, the whole list of instructions is repeated un- 
til the end of the request file is reached. When this condition occurs, 
both the read buffer and the job control block are released. 

The BRANCH statement is the most interesting statement of the 
entire algorithm. It is through this instruction that the currently executing 
task creates a second task. The second task has its IP pointing to the 


Scheduler algorithm and its EP pointing to some allocated memory. This 


1) 


EXTERNAL INPUT (A PERPETUAL PROCESS) 


Ll: BLOCK(EVENT,, ) 
L2: IF RESOURCE, = 0 THEN Ll ELSE 
BEGIN 


ALOC(JOB CONTROL BLOCK) 
ALOC(READ BUFFER) 
READ(FILE. , (ALOC(READ BUFFER)), STATUS) 
IF STATUS = EOF THEN 
BEGIN , 
DALOC(READ BUFFER) 
DALOC(JOB TASK BLOCK) 
BRANCH(SCHEDULER) 
GO TO Ll 
END 
ELSE 
BEGIN 
CREATE(JCB) 
COUNTER.£= COUNTER. + 1 
DALOC(READ BUFFER) 
QUEUE(JCB, INPUT-Q,) 
END 
GO {TO 12 
END 


Figure 6 
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task is then placed on the queue associated with the processor. When 
the currently executing task blocks, the next waiting task on the proc- 
essor queue is then started. After creating the new task, the current 


task blocks waiting for another interrupt signal. 


2) Scheduler algorithm 

The scheduler algorithm is executed by a created: task (see Figure 
7). The task simply checks each waiting task in all input queues to de- 
‘termine if that waiting task may be started. If not, it merely steps to 
the next item. If so, the peripheral resources required by that task are 
‘allocated to it: the:task is removed from the queue; its IP is set to the 
Run-service algorithm; and it is placed on the processor queue. After 
stepping through-all input queues, this task simply terminates (ie e. 
transfers control of the processor to the next waiting task without 


scheduling itself for a restart). 


3) Run-service algorithm 

Likewise the run=service algorithm is executed by a created task 
(see Figure 8). All this task need do is pass the proper information to 
the correct peripheral driver submodule. It is accomplished via the event 
mechanism. The conditional tests whether or not the submodule received 
the message. If not, it is re-transmitted. This created task in turn 
creates another task to wait for the reply from the submodule (IP points 
to notify-service algorithm). Hence the current task terminates after the 


BRANCH statement. 


4) Notify-service algorith 
This: algorithm specifies that the executing task alter its restart 
address (future IP) to point to the termination algorithm and to wait for 
an interrupt signal from the submodule which just got passed the informa- 
tion mentioned above (see Pigure 9). Thus when the submodule signals a 
‘completion of the data transferring, the task will then execute the ter- 


mination code for that request. 
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2) SCHEDULER (A CREATED PROCESS) 


FOR I = 1 STEP 1 UNTIL (# OF QUEUES) DO 
BEGIN 


FOR J = 1 STEP 1 UNTIL LEN(Q-LIST,) DO 


BEGIN 
IF RUNABLE(Q-LIST_, ELEMENT, ) THEN 
BEGIN 
ALOCRES(Q-LIST, , ELEMENT, ) 
DEQ(Q-LIST,, ELEMENT) 
RESTART = RUN-SERVICE 
QUEUE(Q-LIST,, QSTASK) 
END 
END 
END 
EXIT 


Figure 7 
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3) RUN-SERVICE ( A CREATED PROCESS) 


Ll: CAUSE(EVENT, ,STATE,, MESSAGE, , FILE, , NUMBER, ACCESS , STATUS) 
IF STATUS(NUMBER) = 0 THEN L1 ELSE 

BEGIN 

BRANCH (NOTIFY-SERVICE , EVENT, , STATE, , TERMINATION) 

END 


~ EXIT 


Figure 8 
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5) Termination algorithm 


The execution of this algorithm is contingent upon the interrupt 

signal sent from a submodule via the event mechanism. (See Figure 10). 
The signal contains coded information. If the status of the signal is bad, 
then some error processing must proceed. Otherwise a read buffer is al- 
located; the disposition as specified in the 64°word descriptor is then 
acted upon; the buffer released. The counter is decremented by one and 
tested. If zero, then:a task is created to attempt to scratch the request 
file. The resources allocated to this task are then released; another task 
is created. Since some resources have been released, a task is created 


to execute the scheduler algorithm. And finally the current task terminates. 


4) 


NOTIFY-SERVICE (A CREATED PROCESS) 
RESTART = TERMINATION 


NOTIFY(EVENT, , STATE.) 
EXIT 


Figure 9 
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5) TERMINATION (A CREATED PROCESS) 
IF STATUS = BAD THEN ERRORCHECK ELSE 
BEGIN 
ALOG(READ BUFFER) 
DISPOSITION(FILE, ,JCB) 
DALOC(READ BUFFER) 
IF (COUNTER,'= COUNTER, 1) = 0 THEN BRANCH(SCRATCH, FILE.) 
DALOCRES(JCB) 
BRANCH(SCHEDULER) 
EXIT 


END 


Figure 10 
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PERIPHERAL DRIVER PROTOTYPE 


1) External input algorithm (see Figure 12) 


This algorithm is not to be confused with the external input algorithm 
of the Monitor. It is called external because the inputs come external to the 
module, but they come from the Monitor only. At initialization time for the 
submodule, a task is created to execute this code. Its normal state is 
blocked waiting for a message from the Monitor. Upon receipt of any mes- 
sage, it-must differentiate the information between a true message and a 
command. Commands deal with the acquiring and relinquishing of a_ periph- 
eral device. Messages announce that new data.are to be handled. If it is 
new data, a job control block is allocated and filled in. Then two asyn- 
chronous tasks are created to read the data from the data file and transfer 
it to the I/O device. Then the current task goes blocked waiting for an- 


other message from the Monitor. 


2) Read: task algorithm (see Figure 13) 


The algorithm is composed of two other algorithms -- P and V (see 
Figure 15)(3] . It locates an empty buffer; fills it from the data file; and 
marks it full and ready to be written out to the I/O device. The filling of 
empty buffers continues until the data file has been exhausted. The task 


then simply terminates (EXIT). 


3) Write task algorithm (see Figure 14) 


This algorithm is the complement of the read task algorithm. It 
locates full buffers; empties them to the peripheral device; marks them empty 
and continues until there -are no’ more buffers to empty. At that point it re- 
leases all resources allocated to this task and creates a task to send a 


termination message back up to the Monitor. The task itself terminates. 


MAJOR ALGORITHMS OF PERIPHERAL DRIVER PROTOTYPE 


EXTERNAL INPUT 
READ TASK 
WRITE TASK 
TERMINATION 


Figure ll 
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1) EXTERNAL INPUT (A PERPETUAL PROCESS) 
BLOCK(EVENT,, STATE, ) 
IF MESSAGE = COMMAND THEN GO TO COMMAND-SERVICE ELSE 
BEGIN 
ALOC(JCB) 
CREATE(JCB DESCRIPTOR) 
BRANCH(READTASK, JCB) 
BRANCH(WRITETASK, JCB) 
END 
GO TO EXTERNAL INPUT 


Figure 12 


2) 


3) 


READ TASK (A CREATED PROCESS) 
P(EMPTY, JCB) 
FILL(ALOC(READ BUFFER) ,READ,STATUS) 
V(FULL, JCB) 
IF STATUS = MORE THEN GO TO READ TASK ELSE EXIT 


Figure 13 


WRITE TASK (A CREATED PROCESS) 
P(FULL, JCB) 
EMPTY(WRITE, DALOC(READ BUFFER) , STATUS) 
V(EMPTY , JCB) 
IF STATUS = MORE THEN GO TO WRITE TASK ELSE 
BEGIN 
DALOCRES(JCB) 
BRANCH(TERMINATION , STATE 
END 
EXIT 


7 MESSAGE,) 


Figure 14 
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P(SEMAPHORE) 


SEMAPHORE = SEMAPHORE - 1 


IF SEMAPHORE <0 THEN SUSPEND PROCESS 


RETURN 


V(SEMAPHORE) 


SEMAPHORE = SEMAPHORE + 1 


IF SEMAPHORE <= 0 THEN AWAKEN PROCESSES 
RETURN 


Figure 15 
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4) Termination algorithm (see Figure 16) 


The task executing the termination algorithm simply sends a message 
back up to the Monitor via the event mechanism. The conditional is to test 
to see whether or not the message was received by the Monitor. The message 


is re-transmitted until it is received. At this time the task terminates. 
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4) TERMINATION (A CREATED PROCESS) 


CAUSE(EVENT | (ere E ce MESSAGE, ,1,1,STATUS) 


IF STATUS(NUMBER) = 0 THEN GO TO TERMINATION ELSE EXIT 


Figure 16 


CHAPTER III 
CODE & STRUCTURES 


III. Introduction 
IIT.1 Common code & Structures 
TII.2 Monitor code & Structures 


III.3 Peripheral driver prototype code & Structures 
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III. Introduction 


This chapter deals primarily with the internal structures implemented 
in both the Monitor and the peripheral driver prototype. Since the amount of 
code written totals close to 400 pages ( See APPENDICES II AND III), it 
would be impractical to detail all of the coding styles, techniques, and struc- 
tures employed. In order to give the reader the proper flavor and scope of 
the work, only the ‘most important areas will be discussed. For the super 
inquisitive, the listings with comments are included in the Appendix. 

._The chapter is broken down into three sections. The first deals with 
the universally common structures (e.g. core, queue, and task management). 
The second and third sections describe particular portions of the Monitor and 


the peripheral driver prototype, respectively. 
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III. 1 Common Code & Structures 


III.1.1 Memory map 


All modules can be separated into four distinct sections (see Figure 
17). The first is the code of the algorithms. It is the set of instructions 
that is never modified. It is followed by the set of constants, lists, and 
tables that are likewise never modified. The third section contains all the 
queue heads. And the last section is the dynamic storage, or buffer, area. 

These four sections describe the memory map for any module. Since 
the first two sections are never modified, a simple debugging trick is to com- 
pare the first two sections of a module after it has run to its original self. 
If the two don't match, then the programmer knows that there is a bug in 


the pure procedure -- modifying an algorithm. 
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III.1.2 Task control Blocks (TCB) 


A task as defined earlier is an EP, IP word pair -- the EP, environ- 
ment pointer, points to the task's modifiable, or work, area and the IP, in- 
struction pointer, points to the next instruction of some algorithm that the 
task wishes to execute. As pointed out earlier, this allows for the 'simul- 
taneous' execution of multiple tasks, i.e. multi-programming or parallel proc- 
essing. In actuality, since there is only one processor on the G.E. system, 
there can be only one task in execution. All other ready-to-run tasks are 
queued on the processor queue waiting for the currently executing task to 
either terminate or block. As soon as this happens, the processor is as- 
signed to the next (top) task of the processor queue. The effect is seemingly 
parallel processing. While several tasks may be blocked waiting for I/O to 
complete, another task is executing code. 

Since there can be many tasks in various states of execution, the 
task's EP was standardized (see Figure 18). Each data area is 24 words 
long with the last half reserved for temporary storage. The first three words 
deal with Executive status return after the issuance of a system primitive. 
Control is transferred to word three of the block after the status has been 
returned. It contains an execute double statement, 'XED', which links this 
‘task block onto the processor queue. This moves the task from the blocked 
state to the ready-to-run state. The remaining four words contain support 
pointers -- pointers to additional information. 

The macro GETT creates a task. The macro will return in symbolic 
index register T--T for task--a pointer to an allocated block 24 words long. 
To terminate a task, the RELT macro is called. It returns the 24 word block 
pointed to by the contents of symbolic index register T to the core manage- 
ment routines where the contents of T are destroyed (i.e. made to point out 


of core bounds). 
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III.1.3 Queue Control Block (OCB) 


All modules are internally organized around a set of queues. Each 
resource has associated with it a queue on which are put all tasks currently 
requesting that resource. As seen from the description of the major algorithms, 
the queues are used for synchronizing and’ communicating between algorithms. 
This synchronization and communication is of paramount importance in a system 
where many tasks are competing for a few limited resources. 

To ease coding problems, all queues used in all modules are of the 
game structure -- a 16 word block (see Figure 19). A queue consists of a 
possibly empty linked list of task control blocks. The pointers point to 
word 4 (QSOFFST) of a block. The link pointers are stored in word 3 (QSLINK) 
of a block. The word at location QSFIRST points to QSOFFST of the first block 
of the queue. The location QSLAST points to QSOFFST of the last block of the 
queue. The empty queue is denoted by the word QSLAST pointing to QSFIRST+1 
(i.e. pointing to itself). 

Accompanying the queue structure is a set of macros that will manip- 
ulate any queue. For example, task blocks may be enqueued via the ENQ 


macro and dequeued via the DEQ macro. 
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III.1.4 Core Control Block (CCB) 


As mentioned in the memory map discussion, the fourth section of all 
-modules in the dynamic storage area. This area is organized into the free 
memory list. The list consists of a possibly empty linked list of blocks. 
The forward/backward pointers of a block point to the first word of the suc- 
ceeding/preceding blocks, respectively. The link pointers are stored in words 
O: and 1, respectively, of the block (see Figure 20). Hence the minimal the- 
oretical size of a block is two words; the practical’ size is eight. The total 
length of the block is also kept in word 0. By design conventions, the 
pointers are upper half quantities and the length is a lower half quantity. 
~The empty list is denoted by the forward link of RSFIRST pointing to RSLAST 
and the backward link of RSLAST pointing to RSFIRST (see Figure 21). 

There is a set of macros, RELC and GETC, at the programmers dis- 
posal. RELC releases a block of core back to the free memory list. Asa 
safety feature, each block released is first checked to see if it is out of 
bounds of the dynamic buffer area and if it has already been released. If 
either condition holds, the ‘module is halted and copied out to a dump file. 
GETC returns to the caller a block of memory. The size requested is 
rounded up to the next multiple of eight. If there is no block big enough 
on the free list to satisfy the request, a system request is made to expand 


the size of the dynamic buffer. 
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III.1.5 MACROS 


Programming applications frequently involve (1) the coding of a repeated 
pattern of instructions that within themselves contain variable entries at each 
iteration of the pattern and (2) basic coding patterns subject to conditional as- 
sembly at each occurrence. The macro-operation gives the programmer a _ short- 
hand notation for handling (1) and (2) through the use of a special type of 
pseudo-operation referred to in the GE-625/635 Macro Assembler as a MACRO [4] 
Having once determined the iterated pattern, the programmer can, within the 
MACRO, designate selectable fields of any instruction of the pattern as variable. 
Thereafter, by coding a single MACRO instruction, the programmer can use the 
entire pattern as many times as needed, substituting different parameters for 
the selected subfields on each use. 

When the programmer defines the iterated pattern, he gives it a name, 
and this name then becomes the operation code of the MACRO instruction by 
which he subsequently uses the macro-operation. 

What follows is a discussion of the more representative MACROS em- 
ployed. Specifically, MACROS dealing with (1) system calls for executive 
services, such as opening a file or reading/writing an opened file, (2) parallel 
tasking for multiprogramming capabilities, and (3) diagnostic aids, which 
greatly facilitated the debigging of the module are treated in detail. 

All trapping system calls for executive services are done through 
MACROS. Essentially they supply a mechanism whereby a slave task can 
issue requests to the EXECUTIVE for services, Each of these MACROS is 
coded to the following specific conventions: the first instruction is a 'TSXO', 
a transfer and save the current Instruction Counter plus one in Index Register 
XO, to the subroutine with the same name as the MACRO; it is then followed 
by the argument list for that particular executive service. 

The READ macro (See Figure 22) typifies a system call for an ex- 
ecutive service. Figure 23 points out the importance of MACROS in the over- 
all-design. The READ subroutine, which is called only by the READ macro, 


in turn employs the three following macros: 
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1) SETUP (see Figures 24 and 25). This macro and subroutine 
combination initializes the Task Control Block for the task currently 
wishing to make a system call for any executive service. It zeroes 
out the first three status words of the TCB and places the execute 
double instruction in the link word of the block. This instruction 
links the task unto the processor queue after the executive service 
call is completed. SETUP also places the proper IP in the TCB 
such that the task can continue executing its current algorithm. 

2) CKPT (see Figure 26) -- Checkpoint is a diagnostic tool. If 
the assembly time debugging flag, SDBG, is on, this macro will 
cause the registers to be stored in 8-word blocks in a circular 
queue. This is very useful for backtracking of an error. 

3) EXIT (see Figure 27) -- The EXIT macro terminates a thread 
of control by returning to the task distributor. 

Thus the READ subroutine works as follows: 

It saves the pointer to the caller, but bumps the return past the argu- 
ment list. It sets up the Task Control Block. Next it picks up the parameters 
from the argument list and for debugging purposes saves the registers in a cir- 
cular debugging queue. The MME instruction notifies the Executive of the 
system call. Instead of waiting in an idle loop for the completion of the call, 
the task relinquishes control of the processor by executing the EXIT macro. 
This is how the module is multiprogrammed. 

The last major important: common macro is the BRANCH macro (see 
Figure 28). Any task that executes the BRANCH macro creates another 


asynchronous task. This is the final part of the multi-programming system. 
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III.1.6 Communications Network 


There exists a private communications network among the Monitor and 
all of its submodules (i.e. the peripheral drivers). At start up time for the 
Monitor, it creates the network by opening three scratch events and passing 
a file reference number, FRN, of each to each submodule spawned. For the 
submodules, these events are referenced by canonical numbers: 

1) FRNO -- This is the command event for the drivers. Each 

driver is allowed notify access only. Commands are channeled 

to the specified submodule by the STATE when caused. 

2) FRNI1 -- This is the command reply event for the drivers. 

Each driver is allowed cause access only. In order to inform 

the Monitor, a peripheral driver simply causes this event with 

the proper STATE. 

3) FRN2 -- As implied above, FRNO and FRNI are an input/output 

pair. FRN2, however, is not paired at all. The monitor uses 

this event as a pass event sending files to be processed and 

devices down to its sons. The sons (peripheral drivers) never 

pass anything back to the Monitor. They simply close the files. 


See Figure 29 for the message formats used in the communication network. 
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III.2 Code and Structures of the Monitor 


III.2.1 Job Control Block (JCB) 


The Job Control Block (see Figure 30) is merely an extension of the 
Task Control Block. The JCB contains a coded description of the request 
submitted by a slave process. The task executing the request examines the 
JCB for the coded instructions. The JCB also contains additional information 
(e.g. the user number to bill, a unique number for job identification pur- 


poses and lots of debugging aids -- the extra pointers to the TCB, etc.). 
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III.2.2 Notify Control Block (NCB) 


A Notify Control Block (see Figure 31) is nothing more than a TCB 
with frills. The perpetual tasks which execute the external input algorithms 
(see Figures 6 and 12) have an NCB instead of just a plain TCB. The 
extra is for identification of the request and what::and how to handle a re- 


quest after it is received. 
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III.2.3 Peripheral Management 


The peripherals are managed exclusively by the Monitor. It is 
responsible for the allocation of all resources. The peripheral drivers never 
have to worry with scheduling and managing per se. The Monitor has all 
the peripheral I/O devices organized into a hierarchical structure. At the 
head of this structure is the peripheral type table. It has an entry for each 
type of system resource (e.g. line printer, mag tape, etc.). If the entry is 
empty, then there are no resources of that type ever available (e.g. invalid 
types). If it is not empty, it contains a pointer to peripheral header table. 

The peripheral header table is composed of device headers. A de- 
vice header is the item pointed by an entry in the peripheral type table. 

A device header contains: 

1) a pointer to a device table, 

2) information regarding the configuration of the system (e.g. 

the maximum number of devices of a certain type, the number 

the Monitor owns, the number currently free, accesses allowed 

on device, etc.). 

The entries of a device table have a one-to-one correspondence be- 
tween a ‘device' and the real physical I/O device in the machine room. The 
device contains the name of the device, the FRN when opened, flag bits 
telling of the current status, and if busy, who is responsible. 

All of these tables are generated by Macros. There is a pair of 


macros GETP and RELP that seize and release a peripheral of a given type. 
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III.2.4 Operator Interface 


The operator interface is a set of routines that allows for conversa- 
tion between the monitor and the operator of the system. The conversation 
takes form in the set of the following five commands: 

1) GET <peripheral-name >; ...; <peripheral-name > 

(where < peripheral-name > is the 4 letter generic name for 
any peripheral device). 

It reopens the peripherals identified by the four letter abbreviations. 

After a successful open, the peripheral is passed down to the ap- 

propriate peripheral driver via the communications network. 

2) RELEASE <peripheral-name >; ...; < peripheral-name >. 

The Monitor sends a command via the communications network to 

the appropriate submodule telling it to close the specified peripheral 

as soon as possible. The submodule when finished will send back 

a corresponding message. 

3) KILL < peripheral-name >; ...; < peripheral-name > 

This is an immediate RELEASE command. The output to the 

peripheral is stopped immediately. 

4) START <peripheral-name >; ...; <peripheral-name > 

It is a command to restart from the beginning the output to the 

specified peripheral. 

5) EXIT 


The command to terminate the conversation with the monitor. 


The conversation takes place on the operator's console. Thus there 
will be a record of the commands for later debugging if necessary. The con- 
versation is initiated by the operator. By running a certain program, the 


operator can “call up" the Monitor for a conversation. 
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III.2,5 Initialization 


The Monitor initialization routine is a very simple procedure. It 
initializes the registers and location zero in order to catch wild transfers 
to the beginning. Through a system primitive, it sets up the fault vector. 
It then opens the various system files (e.g. PRINT-FILE-QUEUE, PUNCH- 
FILE-QUEUE, PRINT-FILE-EVENT, etc.); it then opens the peripheral driver 
modules. The next step creates the internal’ communications network be- 
tween Monitor and submodule. It opens three scratch events (EVENT), 
EVENT, » EVENT, (see Figure 4). It completes the system by spawning 
the peripheral drivers. At spawn time, the Monitor passes a link to the 
communications network to each submodule. The set of predefined I/O 
devices are opened and passed to the appropriate peripheral driver. 
Lastly, the Monitor allows slave process requests to be accepted by 


putting out notifies on all events. It then goes blocked waiting for 


any request (see Figure 6). 
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III.3 Code and Structures of the Peripheral Driver Prototype 
III.3.1 Job Control Block (JCB) 


There is a one-to-one correspondence between a JCB and a peripheral. 
Therefore the number of JCBs equals the number of peripheral devices a module 
can have at the maximum. Hence the JCBs are all pre-allocated for the fol- 
lowing reasons: 

1) Since a JCB is allocated at job initialization and is not 

released until the job completes, we don't want memory tied 

down that long. 

2) Also we don't want to create holes in the dynamic buffer 

area. 

3) There are only as many JCBs as real devices (currently 

3 ~~ 2 for the line printer module and 1 for the card punch 

module) . 

There is the following pair of macros that manage the JCBs: 

GETJ gets a JCB for the calling routine 


RELJ releases a JCB (validity checks are made, of course) 
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III.3.2 Notify Control Block (NCB) 


For the sake of symmetry, the NCB's of the peripheral drivers 
were coded identical to those of the Monitor. For a full description, see 
the discussion in section III.2.2 and see section III.1.6 discussing the 


communications network. 


III.3.3 Peripheral Management 


There is no peripheral management per se for a peripheral driver 
prototype. All managing is done by the Monitor. That is, a driver never 


has more jobs to process than it has I/O devices to send the data. 
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TII.3.4 Initialization 


The peripheral driver initialization routine is very simple. It 
initializes the registers and location zero similar to the Monitor. Likewise 
it sets up the fault vector. The last step is to create a set of tasks to 
talk to the Monitor via the communications network -- event structure. 
These tasks execute the external input algorithm. The first statement of 


it is to go blocked waiting for an interrupt signal. (See Figure 12). 
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CONCLUSION 


During the summer of 1971, the following portions of the Input/Output 
Scheduler system were implemented: 

1) The Monitor was fully implemented. All five major algorithms were 

implemented and have run. Also, the operator's command language 

was coded to allow the operator control over the I/O peripheral de- 
vices. 

2) Of the peripheral driver prototypes, the line printer and card punch 

modules have been fully implemented. Only the card reader module 

lacks to be coded. The coding and debugging of such a card punch 
module, given all the standard macros, structures, etc., would take 
approximately two, maybe three, man~weeks of work. 

As currently implemented, the Monitor is roughly 31/2 to 4K of code, 
including the dynamic buffer area (see Appendix II). The line printer module 
and card punch module, due to striking similarities of the devices that they 
control, were coded together in a single module (see Appendix III). Together 
they are roughly 3K big, including 1K of dynamic buffer area. Hence the 
overall system is approximately 7K. Yet the Monitor is not core resident. 
Thus the effective size of the system drops to 3K. Although the peripheral 
drivers are allowed to be core resident (in order to increase their efficiency 
when transferring data), they are swappable. When there is nothing for them 
to do, the whole I/O system is swapped out of core, unto the anti waiting 
for a request. 

This new system, when fully implemented, would remove approximately 
3 1/2 K of permanently core resident code from the present Listener. This is 
the same order of magnitude of core that would be used by the new I/O 
Scheduler system. Yet the new system includes the double-buffering of data. 
The old Listener was single-buffered. Moreover, the new system handles the 
two line printers; the Listener handles only one. This IOS system has been 
running experimentally since September of ‘71. Although some “bugs" have 
appeared, they have been corrected. The output efficiency of the system 


has noticeably increased. 
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This is the G.E. R & DC systems programmer's 
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the G.E. Research and Development Center. 


SYSTEM PROGRAMMER 'S MANUAL 
FOR THE R&DC 600 OPERATING SYSTEM 


SYSTEM PROGRAMMER'S MANUAL FOR THE R&DC 600 OPERATING SYSTEM 


Revised August '70 


PREFACE 


Who This Manual Is Intended For 


This manual is primarily intended as a tutorjal and reference 
document for system programmers who are developing assembly language 
code which jis to be run under the R&DC 600 operating system. A 
general familiarity with the GMAP assembly language and the fault 
and interrupt features of 600 machines is assumed. 


The overview portions in the manual can also be used to provide 
an introduction to some of the features of the operating system. 
Additional information can be found in separate documents..: 


Structure of the Manual 


Section I gives a general overview of the operating system. 
The structure of the Executive is described together with the basic 
terminology which is utilized in describing its actions. 


Section II gives a general description of che primitive commands 
which are available with the operating system. The technique for 
initiating a primitive command and handling the associated trap 
return is described in some detail. 


Sections III through V describe the I/O primitives, the File 
System and File Primitives, and the Event Primitives. 


Section VI provides a detailed description of each of the system 
primitives. 


The Appendices summarize information which is useful for 
reference purposes. 


How To Use This Manual 


Programmers should read the introductory and overview sections 
before attempting to utilize the primitive descriptions in Section VI. 
The detailed description of the parameters which appear in these 
overviews can, however, be omitted on a first reading. 


1. ‘Overview of the R&DC Operating System'', TIS Report No. 69-C-355, 
October 1969. 
“Process Contrel and Communication in a General Purpose Operating 
System.'' TIS Report No. 69-C-357. 
"The Design anc Implementation of a Directory Hierarchy For A 
General Purpos:. Operating System.‘' TIS Report No. 69-C-356. 


Preface - Page 2 


Non-Programmers should concentrate on the first few pages in 
Section II and Sections I and III-V. 


Suggestions and Criticisms 


Comments concerning this publication are solicited for use 
in improving future additions. Please send any recommended additions, 
deletions, corrections, or other information you deem necessary for 
jmproving this manual to: J.E. Kapitula, 4C26, Building K-1, 
General Electric Research and Development Center; P.O. Box 8; 
Schenectady, New York 12301. 
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Operating System Overview 


OPERATING SYSTEM OVERVIEW 


Introduction 


The following is a brief description of the 600 Series Time Shared 
Computer System which has been implemented at the Research and 
Development Center. 


The system provides teletype computing, remote batch and conventional 
batch processing capabilities. The system has been designed to be 
sufficiently flexible to allow the incorporation of additional software 
and hardware developments with minimum eEtOEE and disruption of 
existing service. 


The impelemntation is based on multilevel executive structure, a 
generalized device independent file system, and a set of primitive 
commands issued to the executive by running programs. 


System Capabilities 


The computer system design offers flexibility both in terms of new and/ 
or unusual peripheral devices and in terms of programming ease. The 
following broad service capabilities are provided: 


1) Teletype time sharing for (64) users 

2) Large program capability 

3) Extensive file system 

4) Remote and conventional batch processing 

5) An interface to remote and directly coupled computers 
6) Ability to utilize unusual peripheral devices. 


The teletype time-shared system presents the user with an interface 
similar to the Desk Side or Mark 2 Computer System. In addition, the 
teletype user jis able to exercise the file system, run machine 

language programs, and use peripheral I/O devices and remote computers. 
The initial hardware configuration allows for -64- teletypes. 

However, the system design will allow this number to be extended with 
suitable hardware additions. 


The system has the capability of running large or small programs 
intermixed. The running time of a program is generally proportional 
to the amount of system resources used and to the load on the system. 


The system has an extensive file system. Users are able to access 
files by logical name, rather than by physical device. For most 
files the user has no control over the physical device allocation. 
The user is able to access, by name, certain peripheral devices, 
such as magnetic tapes, in a general manner. 
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OPERATING SYSTEM OVERVIEW (Continued) 


A batch processing capability exists, as a person can initiate the 
running of a program from a card reader or magnetic tape unit in the 
same manner as from a teletype. 


Several remote computers are connected to the RT-I0C* via high-speed 
phone lines. A GEL15 computer is used for remote entry and output 
of batch jobs. A PDP-9 computer is used to drive a large cathode 
ray oscilloscope display unit. A Varian 620-i computer and a 
GEPAC-30 computer are also connected and are used for special appli- 


cations. 


A directly coupled computer, the GE 4020 is employed for experi- 
mental data acquisition, control, and data reduction. 


A Varian 522-i computer is being implemented as a disk controller 
for both the GE 500 and the GE 4020 computers. 


The system is able to handle new and unusual peripheral devices 
which may arrive from time to time with a minimum of reprogramming 
both in the executive and in the user programs. 


* Real Time Input Output Controller 


I-2 


system Hardware Overview 


The following is a summary of the hardware configuration. The basic 
unit of the system js the 4 Base Address Register 600 computer which 
ig composed of three major modules: memory, processor, and real 
time input/output controller (RT-IOC). 


The 500 system consists of a single processor module, an RT-IOC, and 
two 54K memory modules. The memory is composed of two memory 
(system) controllers and 64K of 36-bit (plus 1 parity bit) magnetic 
core storage with a 1.0 microsecond read-restore memory cycle time 
per controller. 


The processor has been modified to include four base address registers 
for address relocation and protection. 


The RT-IOC serves as the input-output interface for the system. This 
device is capable of transmitting data, in an asynchronous manner, 
between core memory and up to 32 peripheral devices. The following 
devices are attached to the RT-IOC: 


1) Two -32- channel teletype multiplexors 
2) 2 by 8 disk controller with two disk files. 
3) 1 by 3 tape controller with eight tape handlers 
4) Card reader (1100 CPM) 
5) Card Punch (200 CPM) 
6) Two line printers (1000 LPM) 
7) Console teletypewriter 
8) 1 by 8 high speed communications line multiplexor (CLM) 
(interface for remote computers, etc.) 
9) Interface for GE 4020 (Memory to memory interface) 
10) High speed analog to digital converter 


A diagram of the configuration is shown in Figure I-l. 
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Master and Slave Modes of Operation 


The R&DC operating system utilizes both the Master and Slave mdes 
of operation which are available with 600 machines. 


Programs which run in Master Mode have access to the entire memory, 

may initiate peripheral and internal control functions, and do not 
have base address register relocation applied. Only the Master Mode 
xecutive is allowed to execute jin Master Mode. 


Programs run in Slave Mode have access to a limited portion of memory 
and cannot generate peripheral control funetions. USER PROGRAM'S 
WILL ONLY BE ALLOWED TO EXECUTE IN SLAVE MODE. 


Structure of the Operating System 


The operating system can logically be divided into three categories: 


- The Multi-Level Executive 
- The File System 
- The Primitive Commands 


A brief discussion of each of these categories is given in the 
following paragraphs. 


The Multi-Level Executive 


The System Executive consists of three levels 


1) The Master Mode Executive 
2) The Slave Mode Executive and Listener 
3) Sub-Operating Systems 


The Master Mode Executive is that portion of the executive which 
executes in master mode. 


Its principle function is the execution of system input/output 
primitive commands. The master mode translates these primitive 
commands, expressed in terms of logical parameters, into commands 
recognized by the hardware. Master mode services the interrupts 
generated and returns to the user the physical and logical status of 
the operation. 


Another function of master mode is the running of processes. It sets 
_the BARS to the squeeze or normal settings, returns all traps out- 
standing to the process, and sets the process into execution at the 
appropriate location. 


Other Master Mode functions are fault handling, disk and drum 
allocation, and hardware malfunction servicing. 
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The Mulci-Level Executive (Continued 


The Slave Mode Executive directs the allocation of processor (s) 

and memory to processes and has the real control over the system. 
The slave mode executive decides process scheduling, determining 
when a process should be swapped out and the next process to be 
swapped in. It also executes the control and file system primitives 
and maintains the file system catalog. 


The Sub-Operating Systems provide direct interfaces to the user. 
These systems will provide the teletype user with interfaces similar 
to the Desk Side Computer System or Mark 2 and the batch user with 

a system similar to the GECOS Operating System. 


The File System 


The File System allows the user to store and retrieve data and programs 
from a mass storage file by logical name rather than by physical 

device and address. The File System provides protection against 
jmproper use of saved information and also allows simultaneous access 
to the same file by several users. The File System also provides 
input/output capabilities with conventional peripheral devices in a 
similar manner to accessing a mass storage file. The user also is 

able to access unusual peripherals and remote computers through the 
file system. Finally, the File System provides a mechanism, the 
-event, by which different processes can communicate with each other. 


The Primitive Commands 


The Primitive Commands may be viewed as a set of macro calls, 
available to slave mode processes, which effectively extend the 
capabilities provided by the hardware. In particular, they relieve 
the user of the need for dealing directly with peripheral devices. 
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Executive Overview (Continued) 


Processes, Segments, and the State Vector 


The process is the basic unit of activity in the system. The nocion 
of a process can perhaps best be described by enumerating its 
characteristics. 


A process (a son) is created by another process (its father) by the 
system Spawn Primitive. All processes are descendents of a system 

process called the Listener which is the only process running when 

the system is first initialized. 


A process has the following entities associated with it: 


1) From 1 to 4 segments 
2) A set of items (files and events) which the process may access. 


3) A state segment 


When a process is spawned, the father can specify the contents of 
from 1 to 4 contiguous areas in core, each of which is to have a Base 
Address Register set around it. The contents of the contiguous areas 
of core associated with the process jn this manner are called the 
segments of the process. A segment may be either a core image of a 
father's file or a segment of the father. When a process is ‘n 
execution, all of its segments must be in core. The manner in which 
a slave mode program addresses its segments is described in the 
discussion which follows on Base Address Register usage. 


The files and events which are accessible to the spawned process, and 
the type of access allowable, are also specified by the father when 
the process is spawned. 


The state segment is a unique block of data, associated with each 
process, which is accessible only to the executive. The state segment 
is created when the process is spawned and is used to store the 
information needed by the master and slave executives to run the 
process. 


A more detailed description of the state segment is given in the 
discussion on Basic System Tables in Section IV. 
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Base Address Register Usage and Slave Mode Addressing 


All addresses for programs running in slave mode 
are relocated relative to an address which ‘is specified in one of che 
systems 4 Base Address Registers (BARS). Before this relocation 
occurs, the slave address is compared with a maximum length setting 
which is also contained in the BAR. (See Fig. I-2A). If the slave 
program attempts to address a location which falls outside of this 
maximum length, a memory fault occurs. A BAR also provides a bit 
which when set prohibits the slave mode program from doing a write 
operation in the area defined by the BAR. The BAR selection is 
determined by bits O-1 in the slave address as summarized below. 


Slave Address 


(Bits O-1) Address Range Associated BAR Associated Seg 
00 000000-177777 BO 0 
O1 200000-377777 Bl 1 
LO 400000-577777 B2 2 
11 600000-777777 B3 3 


The segments associated with a process correspond to the 4 BAR settings. 
That is, segment zero is associated with the memory bounded by BAR 0, 
segment 1 with the memory bounded by BAR 1, etc. The slave program 
can reference its segments by specifying an address associated with 
the corresponding BAR. For example, to reference segment 3 one would 
specify an address in the range 600000,-777777.. 

Note that the 18 bits which are allocated for a slave address enable 
the slave mode program to address a virtual memory of 2*°% words (or 
approximately 262k). Although the slave mode program can utilize 
addresses in the full range of the virtual memory, the total length 
of the program will still be restricted by the maximum amount of core 
memory which the system will allocate to his process. 


The interpretation of the 18 bit relative slave address and the BAR 
format is shown in Fig. I-2A. A further illustration of the mapping 
of addresses in the user's virtual memory to actual core locations 
(via the BAR's) is shown in Fig. I-2B. Note that for BAR utilization 
core is conceptually divided into blocks of 512 words. Both the BAR 
relocation origin and the maximum length associated with a BAR is 
specified in terms of these 512 word blocks. 
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FAULT AND INTERRUPT HANDLING 


When a fault occurs, control is automatically transferred by hardware 
from the process in execution to the appropriate location in the hard- 
ware fault vector. An execute double jis done on the two instructions 
at this location. The further action taken by the Master Mode Execu- 
tive depends upon whether the process jin execution was in defaulc, 
normal, or squeze mode. The base location of the hardware fault 
vector is defined by a panel setting and consists of 32 consecutive 
locations in core. 


Default Mode 


A process js said to run in default mode when it has not declared a 
fault vector.* For any fault other than Master Mode Entry or Timer 
Runout, control is passed to an abort routine in the Master Mode 
Executive which terminates the process. 


Normal Mode 


A process is said to run in normal (unsquezed) mode if a slave fault 
vector has been declared and the squeze primitive has not been issued. 
In normal mode all faults except Master Mode Entry (MME) and Timer 
Runout (TRO) are passed back to the slave mode process at the fault 
vector previously designated by the slave mode process. 


This fault vector has a two word entry pair for each fault. The 
instruction counter and indicators are stored in the first word and 
control is transferred to the second word. The order of the faults 
is the same as in the hardware fault vector (See Set Fault Vector 
Primitive). 


Handling -MME- and -TRO- Faults 


The MME fault is used to call System Primitives, in normal 
mode it is not returned to the user fault vector. Control is, 
instead, transferred to a MME Fault Processor within master mode 
exec. The MME Fault Processor identifies the MME and then transfers 
control to the appropriate routine in the master or slave mode 
executive to process the MME. The return mechanism for MME fau_ts is 
described in the discussion on Primitive Initiation in Section II. 


* A slave program declares its fault vector by issuing the Set Fault 
Vector Primitive. For additional information on the slave fault 
vector see the write-up of the Set Fault Vector Primitive in 
Section VI. 


Fault and Intterupt Handling (Continued) 


Tf the Timer Runout occurs in the slave exec, the timer is reset 
and control is returned to the slave exec. If the TRO occurs in a 
normal slave process, control is passed to the slave exec. The slave 
exec, schedules and runs the next process (which may be the same one). 


Interrupt Handling 


When an interrupt occurs, control is transferred, by hardware, to an 
appropriate location in the hardware interrupt vector, where an 
execute double is performed in Master Mode. The Master Mode Executive 
then saves the process registers, timer register, instruction 

counter and indicators, and invokes an appropr3 ‘ate interrupt handling 
routine. All outstanding interrupts are processed before control is 
returned to slave mode. Unless an interrupt has occurred for a 
special priority (''preemptive") process, control is returned to che 
original slave process. If a trap for this process has occurred, 
control is returned to the entry point of the trap. Otherwise, con- 
trol is returned to the point of interrupt. In either case, the 
process registers, timer register, and indicators at the point of 
interrupt are restored. (Note that the interrupts which occur, may 
or may not be related to an activity of the process which was in- 
terrupted.) A more detailed discussion of interrupt handling is 
given in ‘Trap Routines and Trap Handling" in Section II. 


Squeze Mode 


Processes which have declared a slave fault vector can enter a special 
mode known as squeze mode. The addressing space of the squezed pro- 
cess represents a subset of the addressing space of the unsquezed 
program and is specified by a SESE primitive in unsquezed 
(normal) mode. 


Processes are created in the default mode. They enter normal mode 
by issuing a Set Fault Vector Primitive. After issuing a Set Squeze 
Primitive to define the BARs of the squezed program, they can issue 
an "ENTER SQUEZE MODE" primitive to enter squeze mode. The Master 
Mode Executive resets the BARs to the squezed values and runs the 
squeze program. If a fault (except Timer Runout) or an interrupt 
for the process occurs, the Master Mode Executive resets the BARs 

to the unsquezed values and transfers to the fault vector or trap 
word in the unsquezed program. All faults (except Timer Runout) 
which occur in squeze mode, including MMEs, are passed back to the 
fault vector in the unsquezed mode. However, a MME issued in the 
unsquezed mode is treated as a system primitive. The unsquezed process 
can reenter squeze mode by issuing another "ENTER SQUEZE MODE" 
primitive. 
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squeze Mode _and Its System Applications 


In the discussion that follows, we shall elaborate upon the squeze 

and normal modes of execution of a slave process, and then indicate 
applications in which the squeze mode may profitably be employed. As 
we shall see, these applications are those in which a slave process 
desires to execute a restricted portion of its segments in a controlled 
manner. 


Recall chat a slave process consists of from 1 to 4 segments each 
having a corresponding BAR set around it. When the process executes 
in normal (unsquezed) mode, the BAR's are set to their full values, 
whereas when the process executes jin squeze mode some of these BAR 
settings may be reduced or interchanged (See Fig. I-3). A process 
goes from normal to squeze mode when it issues the ENTER SQUEZE MODE 
primitive, having previously specified the new BAR settings for the 
process with a set squeze primitive. 


A squeze mode process returns to normal mode (and the BAR's reset 

to their unsquezed value) whenever a fault or trap occurs. Note that 
squeze mode processes are distinguished from processes executing in 
normal mode in that the MME fault ts handled differently. A MME fault 
wnich occurs when a process is in squeze mode is returned to the 
slave fault vector of the unsquezed process(as are all other faults 
of the squeze mode process) rather than being passed on to the 
executive as a primitive call. The process may then handle the MME 
fault in whatever manner it deems appropriate. Traps are also 
returned to locations in the unsquezed process. The utility for 

this feature will become more apparent in the examples which follow. 
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Example 1: Slave Mode DDT 


We snall first illustrate the operation of the squeze mode by describing 
its action for a single base register system jin which a Slave Mode 
rogram is to be debugged using a Slave Mode Debugging package (Slave 
Mode DDT). The DDT program is to intercept all faults which occur in 
the Slave Mode Program and take an appropriate action. 


Let us assume that control is initially in DDT. The single BAR is 

set around both DDT and the user program and the processor mode is 
‘normal". Before returning control to the user program, DDT issues 

the SQUEZE primitive which resets the BAR around the user program, and 
in addition sets a flag which indicates that the process is now 

running in "squeze'' mode. Control is then transferred to the user 
program which runs in the normal manner until a fault occurs. Whenever 
a fault occurs, the system fault processing routine notes the flag 
which indicates that squeze mode jis in effect. 


The system fault. routine, therefore, resets the BAR about both DDT and 
the user program, clears the squeze mode flag to indicate that the 
process is now in ‘normal’! mode, and returns control to the appropriate 
location in the DDT fault vector. The DDT routine proceeds to service 
the fault. If the fault was not a MME, DDT reissues the squeze 
primitive and transfers to the fault vector in the squezed program. 

If the fault was a MME, DDT validates it and converts certain arguments 
(such as addresses) to their unsquezed values. It then reissues the 
MME to the exec with the new arguments. When DDT has finished, it 
rejssues the SQUEZE primitive which returns control to a specified 
location in the user program, resetting the BAR and squeze mode flag. 
The user program continues in the manner indicated above until the 

next fault occurs, etc. 


The principal steps in the squeze mode procedure are summarized in 
Fig. I-4. 


Example 2: Implementation of GECOS Interface 


Consider the problem of developing an interface for code, such as 
GECOS, whose MME conventions do not conform to those employed by the 
R&DC system. The squeze mode feature enables such already existing 
code to be run under the R&DC system with a minimum of reprogramming. 


Essentially the interface runs GECOS in squeze mode with the BAR's 
appropriately set about the GECOS system. Whenever a MME fault occurs, 
control is transferred to the interface which interprets the GECOS MME 
and then reissues jt in the correct format for the operating system. 
Control is then returned to the GECOS program (by means of the SQUEZE 
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BAR Settings for Normal and Squeze Modes of Operations for a Slave 
Process 


Normal Mode: 


1) BAR's set to full value 
2) MME's interpreted as primitive commands and passed to the executive 


Squeze Mode: 


Segment os 
FZ 


1) BAR‘'s set to reduced value 

2) All faults (including the MME) returned to the fault vector of the 
slave process for handling in unsquezed mode | 

3) All traps returned to locations in unsquezed mode 


. dvansition from Normal Mode Execution to Squeze Mode Execution 
proeeed, dé executing in Normal Mode 
Process issues SQUEZE Primitive 
Process now executes in Squeze Mode 
Fault or Trap occurs 
Process Resumes execution in normal mode 


Process Handles Fault or Trap 


FIG, I-3 


primitive) which resumes execution in squeze mode. The same procedure 
jis repeated for each MME fault which GECOS generates. 


The important point to be observed is that most of the required 


programming is for the interface. Only a minimal change to the existing 
code, in this case GECOS, is required. 


(a) DDT Slave Mode Program 


re BAR NORMAL! eee 


1. Control is in DDT 
2. Process Mode in "NORMAL" 


3. BAR is set to unsquezed value. 
(b) The SQUEZE primitive is issued: 


DDT Slave Mode Program 


<Q——BAR "'SQUEZED'D 


1. Control is in Slave Mode Program 
2. Process Mode is "SQUEZE" 


3. BAR is set to squezed value. 


(c) A fault occurs in slave mode program: 


DDT Slave Mode Program 


aerate AR : 'NORMAL' er 


1. Control is returned to DDT 
2. Process Mode is reset to "NORMAL"! 


3. BAR is reset to unsquezed value 


(d) After DDT has processed the fault, step ce is performed and 
the procedure repeats itself. 


Fig. I-4 
PRINCIPAL STEPS IN THE SQUEZE MODE PROCEDURE 


Section II 


Primitive Commands and Trap Handling 


PRIMITIVE COMMANDS AND TRAP HANDLING 


Introduction 


This section describes the considerations involved in using the 
primitive commands which are available with the R&DC 600 operating 
system. These commands, which have been *mplemented as a set of system 
macros, provide the user with services beyond those provided directly 
by the hardware. Essentially they supply a mechanism whereby slave 
programs can jssue requests to the executive for services. The macros 
which initiate the system primitives are available for GMAP assemblies 
and can be employed with any slave program designed to run under the 
operating system. 


It is convenient to divide the primitive commands into the following 
categories: 


1) 1/0 Commands 


These commands, such as the reading and writing of sequential 
and random files, enable the user to perform input/output opera- 
tions which are expressed in terms of logical file parameters. 


2) File and Event Commands 


The file commands provide the user with an interface to the 
file system. They allow him to open cataloged and scratch 
files, to catalog a file or directory, to unsave a file or 
directory, etc. In short, they enable a user to create a 

file structure and manipulate the files within this structure. 


The Event commands provide a mechanism for interprocess 
communication. They allow a process to cause an -event-, to 
be notified when an -event- occurs and to create and catalog 
-events-. 


3) Control Commands 


These commands provide the user with the ability to create, 
terminate, and block processes, re-adjust base register settings 
to accommodate non-standard software packages, make memory 
requests, etc. 


A summary of the primitive commands is given at the beginning of 
section VI. 
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Firimjtive Commands and Trap Handling (Continued) 


Primitive Initiation 
A typical macro for a primitive call consists of: 


1) A set of instructions which load parameters required by the 
primitive into appropriate registers. (The primitive is 
identified by a code number which is loaded into XO). 


2) The MME instruction. The address portion of this instruction 
is ignored by the executive. 


The MME (Master Mode Entry) instruction is reserved for primitive 
initiation and causes control to be transferred from the slave process 
to the master mode portion of the executive. Associated with each 
primitive call is generally (but not always) a trap address. The 

trap address defines the starting location of a corresponding trap 
routine, which js a block of code that the programmer must specify 
with the primitive call. Subsequent to the completion of a primitive, 
the e:.ecutive stores status in, and returns control tc, the associated 
trap routine. Note that in general, a primitive operation may not 

be completed when control is returned to the slave process. Hence, 
the slave program is free to continue its execution while awaiting the 
primitive completion. When the primitive is eventually completed or 
aborted due to an error, the slave program is interrupted and the 
associated trap routine is entered. Upon exiting the trap routine, 
control may either return to the location at which the slave program 
was previously interrupted or to an arbitrary location in the slave 
program. The location to which a trap routine exits depends upon 

the coding for the trap routine and will be discussed in detail in 

the following sections. 


Illustrations showing the flow of control when a primitive command 
is issued and when an interrupt occurs are shown in Figs. II-1l and 
II-2. A detailed discussion of these diagrams is deferred to sub- 
sequent paragraphs in this section. 
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Primitive Commands and Trap Handling (Continued) 


Trap Routines and Trap Handling 


The trap routine is located at the trap address specified by the 
primitive call and consists of a block of code (of at least four 

words) defined within the slave program. The fourth word is the 

entry location with the three preceding words set aside for information 
co be stored by the executive. The format for a trap routine is 

shown in Fig. II-3, and is summarized in Fig. II-4. 


The first two words are reserved for status information which the 
executive returns. A logical status code, which is returned in the 
lower half of Word 0, indicates either the success (=0) of the 
primitive operation or a possible error code. The remainder of the 
first two words is reserved for optional return information which 

jis relevant to the particular primitive. The logical status code is 
either specified in the discussion of the primitive in Section VI | 
or in Appendix A. 


The third word is used by the executive to store the exit location 

for the trap routine. By returning through the exit location (e.g., 

by the instruction RET WORD_3) the trap routine enables the slave 
program to ultimately resume execution at the point it was interrupted. 
The location which the executive stores in the exit may be either 


a) The instruction counter plus one and indicators at the 
time the slave program was last interrupted (i.e. the exec- 
utive effectively does an "'STC1 WORD_3" at the point of 
interrupt). 


b) The entry location of another trap routine. 


The information so stored is related to the manner in which the 
operating system handles interrupts, and requires some elaboration. 
Whenever a primitive operation is completed, the process currently 

in execution (which is not necessarily the process which issued the 
primitive) is interrupted and a trap occurs. An entry for the 
completed primitive is then added to a trap queue which is associated 
with the process that issued the primitive. The entries on this 

queue (the outstanding trap queue) consist of all traps which have 
occurred since the issuing process was last interrupted. Whenever 

a process with traps outstanding resumes execution, control is first 
transferred to a trap routine which corresponds to one of the entries 
on the outstanding trap queue. If there are no traps, control resumes 
at the interrupt location. The trap routines which correspond to 

the remaining entries on the outstanding trap queue are linked via the 
mechanism of the exit location which the executive has stored in 

Word 3. (See Fig. II-5). The exit location for each trap routine 
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Primitive Commands and Trap Handling (Continued) 


points to the entry location for the next. The exit location for 

the last trap routine contains the instruction and indicators at 

the time that the slave program was last interrupted. It should 

be noted that a trap routine need not exit to the location which 

the executive has stored. It can for example transfer to any 
executable location in the slave program. Timing considerations can, 
however, cause difficulties in the use of this option, especially 
when there is more than one trap on the outstanding trap queue. it 
is therefore advised that the programmer carefully read the remaining 
information in this chapter before employing other than the normal 
exit. 


The fourth word is the first executable instruction of the trap 
routine and is the entry location to which the executive transfers 
control when a trap routine is invoked. The remaining words in the 
trap routine are optional and can be employed to test status returns, 
set a flag indicating the trap has returned, etc. 


it is possible for several primitive commands to share a common trap 
routine. However, this is only feasible if the traps for these 
commands do not occur within the same time interval. (otherwise, 
status and return information stored by the executive for one primitive 
command would be over-written by the information for the other). A 
clever programmer may share the same procedure code of a trap routine 
while allocating distinct four word blocks for status information. 
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Primitive Commands and Trap Handling (Continued) 


Flow of Control for a Primitive Operation 


Let us now summarize the flow of control when a primitive command is 
issued (See Figs. II-1l and II-2). In order to focus our attention on 
the essential points we shall first assume that the command is issued 
after all other primitive commands have been completed. We shall also 
assume that the primitive command is one with an associated trap routine, 
and that this trap routine has been coded to exit to the location which 
the executive stores in Word 3. After a slave process issues a primitive 
with a MME instruction, the process is interrupted and control is 
transferred to the Master Mode Executive. . The Master Mode Executive 

may either service the primitive request completely, simply initiate 

the servicing (by placing the request on an appropriate queue), or pass 
the request on to the Slave Executive. 


Control is returned to the slave process at one of two possible entry 
points depending upon whether the primitive operation has been completed 
or not. If the primitive has not been completed, control returns to 

the location of the MME plus one. If it has been completed, control is 
returned to the trap routine, with the location of the MME plus one 
stored as the trap routine exit. 


Note the entry point which the executive returns control to is dependent 
upon timing considerations and also upon the.state of the operating 
system at the time the primitive command is issued. Hence, the slave 
program should generally be coded to accept either entry location with- 
out error. 


If control is returned to the slave program before the completion of the 
primitive (the more usual situation) the slave process has the option 

of either going blocked or continuing in execution. If the process 

goes blocked it is taken off the list of processes which are to be 
scheduled for shots at the processor. The blocked process is reawakened 
when the trap for the primitive operations occurs Wee execution resuming 
at the trap routine. 


If a process does not go blocked it will continue execution in parallel 
with the primitive operation. When the trap for the primitive occurs, 
the process will be interrupted and control transferred to the trap 
routine. Upon exiting the trap routine control will return the loca- 
tion of previous interrupt. If the trap occurs when the process under 
consideration is not in execution, the trap routine will be executed 
the first time the process regains control. Upon exiting the trap 
routine, control is again transferred to the location of previaus 
interrupt. 
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Primitive Commands and Trap Handling (Continued) 


Let us now drop the assumption that the primitive command is issued after 
all other primitive commands have been completed. In this case several 
traps may occur during an interval in which the process is interrupted. 
Control is returned to the process at one of the corresponding trap 
routines and is transferred successively to the others. 


Upon exiting the last of the trap routines control is returned to the 
location of previous interrupt. Note that this can only occur if each 
trap routine is coded to exit to the return location which the executive 
stores in Word 3. (See Fig. II-5). 


The fact that the order in which the above trap routines are processed 
is not mentioned is not an oversight. Generally this order need not 
correspond to the order in which the corresponding primitive commands 
are issued. Hence, assumptions relating to the order in which the 
Programmers wno anticipate having multiple traps outstanding at one time 
should carefully read the remaining paragraphs in this section for 
additional details in this regard. 
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Primitive Commands and Trap Handling (Continued) 


Some Considerations in Programming Primitives and Trap Routines 


There are several factors that a programmer must bear in mind while 
programming the primitives and their corresponding trap routines. 


A. The contents of all registers are restored after a primitive 
is initiated by a MME call. Information which is required 
for later processing can be kept in registers. However, two 
primitives (request date & time and request elapsed run 
time) return results in the AQ registers. 


B. The primitive may not be completed when control returns to 
the issuing process. Since several primitives may be 
issued before any traps return, more than one trap may be 
outstanding at any one time. A separate trap address is, 
therefore, required for each trap that may be outstanding 
during any time interval. Trap routines may, however, 
share common codes since only the first four words need be 
distinct. 


C. Primitive commands are not necessarily completed in the 
order in which the primitive commands are issued. For 
example, successive commands to read the disc and then 
print from a data area in core might well be completed in 
the reverse order. There are two basic reasons why this 
may be so: 1) It may take more time to execute one 
primitive command than another, 2) Some primitive requests 
are placed on queues and the queue lengths will generally 
be different. Assumptions relating to the order of 
completion of primitive commands should, therefore, not be 
built into the programming. Note that execution of the 
trap routine for a primitive command gives a positive 
indication that the particular primitive command has been 
successfully or unsuccessfully completed. 


D. The order in which trap routines are executed does not 
necessarily correspond to the order in which the correspond- 
ing primitives were completed. (This is a consequence of 
the trap linking procedure of the Executive and is unavoidable). 
Hence, one should not assume that the execution of one trap 
routine presupposes the execution of some other. 


E. The programmer should beware of reissuing a primitive within 
the trap routine for that primitive, since the second trap 
might occur before the trap routine has been exited. The 
routine must either be reentrant or must contain a lock to 
prevent being reentered. 
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Primitive Commands and Trap Handling (Continued) 


F. The executive stores the exit location and indicators into 
WORD 3 of a trap. This cannot be zero. Therefore, the 
programmer can use WORD 3 as a flag to indicate whether 
the trap has occurred by zeroing WORD 3 before issuing the 
MME, and then testing it for non-zero. 


Conventions for Programming Trap Routines 


Recall that several traps may be on the ‘trap queue waiting for processing 
when an interrupted process resumes execution. In order that all of 

che corresponding trap routines be executed and control then returned 

to the process at the point of previous interrupt, the following 
conventions in writing trap routines must generally be adhered to: 


1. Each trap routine must be terminated by a return to the 
location stored in the third word of the routine (i.e., via 
a RET WORD 3). (However, see last paragraph on page 9 in case of 
squeze mode.) 


2. All registers which are utilized by a trap routine must be 
saved in a user data area upon entering the trap routine 
and restored upon exiting. 


Some clarification of these requirements is in order (See Fig. II-5). 
The third word in a trap routine contains return information and is 
supplied by the system executive. After a process is interrupted by 
the occurrence of a trap, the instruction counter and indicators are 
stored in WORD 3 of the trap routine and control is transferred to 
the trap routine. The terminating instruction, RET WORD_3, restores 
control to the process at the point it was interrupted. 


If several traps are to be processed, a pointer to the next trap 
routine in the linking will instead be stored in WORD_3. The 
terminating instruction, RET WORD 3, then transfers control to the 
next trap routine in the linking. In order that all such trap 
routines be executed with control finally returning to the process, 
ALL trap routines must be terminated with a RET WORD 3. (Recall 
from the previous section that the trap routines are not executed in 
an order which the user can predetermine. 


Let us now examine briefly why a trap routine must save and restore 
the registers which it modifies. When a process is interrupted, the 
System automatically saves the registers. The system ultimately 
restores these registers when the process resumes its execution. The 
restored register settings are, however, those which were in effect 
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Primitive Commands and Trap Handling (Continued) 


when the process was last interrupted. However, if any traps have 
since returned, the process resumes its execution, not at the point 
it was interrupted, but in a trap routine. It is, therefore, the 
responsibility of each trap routine to restore the initial settings 
upon exit, so that ultimately the interrupted process resumes with 
the correct register settings. (This is not necessary if the trap 
routine does not modify any registers). 


If an interrupt occurred in squeze mode, bit 35 is set to 1 in 
WORD 3 of the last trap in the chain. A process which utilizes 
squeze mode must check this bit in every trav hefore performing a 
REIT WORD 3. If the bit is found on, the process must instead 
squeze to the location in WORD_3. 
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Flow of Control for a Primitive Command 
Slave process is in execution 


Arguments for primitive are loaded into 
appropriate registers, including a code 
number which identifies the primitive. 


MME instruction is issued. 


Master Executive takes control and either 
a) completes servicing of primitive 
b) initiates (but does not complete) 
servicing 
c) passes request to Slave Executive 


Has primitive operating been completed Yes 


Return control to slave process Control returned to 
at the location of the MME plus one trap routine in 
slave process 
Yes _ Does slave process go blocked + 
Trap routine is 


executed and exits 


‘Process is removed from Slave process continues =, 

; : to location of MME 
scheduling queue and execution in parallel Meeane 
awaits completion of with primitive opera- P : 
primitive. tion. 
The primitive operation Slave process is 
is completed interrupted when primitive 


operation is completed. 


Slave process is i. 
reawakened Control returned to slave 
process at trap routine. 


Control returned to 


trap routine. — Trap routine is executed 
; and exits to interrupt 
location. 
Note: 


For the flow of control shown it is assumed: 


1) that the primitive command is one which has an associated trap 
routine 


2) that the trap routine is coded to exit to the location which the 
executive stores in the exit word. 


3) There are no other primitive commands which have not been completed. 


Flow of Control when a Slave Process is Interrupted 


Slave Process is in execution 
Process is interrupted at instruction L 


Registers at point of interrupt saved, 
and control transferred to the Master 
Mode Executive. 


Interrupt is serviced by the Executive 
Registers of 4. process restored 


Have any traps for the slave process 


No occurred since the slave process was Yes 
interrupted. 
Return control to slave Return control to the slave 


process at location Ll. process at a trap routine. 


Slave process executes the trap 
routine for each trap that has 
returned while it was interrupted. 


Last trap routine exits to loca- 
tion Lil. 


Note: 


1) For the flow of control shown, it is assumed that all trap routines 
exit through their exit location. 


2) The flow of control shown holds equally well for an interrupt caused 
when a MME instruction is issued. 
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FORMAT FOR A TRAP ROUTINE 


0 | - 4pig 35 


(Optional) status information |Logical Status Code 
mOnDS eturned by executive g STATUS WORDS 


WORD 2 |(Optional) status information returned by executive STATUS WORD2 


WORD 3. Exit Location Indicators at point of EXIT 
(returned by executive) interrupt (or zero) 


WORD 4 Entry location - the first instruction of the trap routine ENTRY 


WORD 5 | — Remaining 
. Instructions 
(optional) 
WORD N 


where WORD 1 is located at the trap address. 
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Format for a Trap Routine 


WORD 1 
Bits O -17 
Bits 18-35 
WORD 2 
Bits O -35 
WORD 3 
Bits 0 -17 - 
Bits 18-35 
WORD 4 
WORDS 5-N 


STATUS RETURN WORD 1 


Optional primitive dependent information, 
returned by the executive. 


Logical Status Code - the code is zero if the 
primitive operation was successful. Otherwise, 
a primitive dependent error code number is 
given. The I/O primitives share a common set 
of error codes, as do the File and Event primi- 
tives. | 


STATUS RETURN WORD 2 


Optional primitive dependent information, 
returned by the executive. 


EXIT LOCATION 


The executive stores an exit location which 


the trap routine may utilize for returning to 


the slave program. 
The following exit locations may be stored here: 
a) The interrupt (or MME) location plus one 
b) The first instruction of another trap 
routine 


Dependent upon (a) or (b) above 
a) The indicator settings at the point of 
interrupt. If the interrupt occurred in 
squeze mode, the interrupt location is 
the squezed mode address, and Bit 35 is 
set on. Otherwise Bit 35 is set off (zero). 
b) Zero 


ENTRY LOCATION 


The executive transfers control to this location 


when the trap routine is entered. This is the 


first executable instruction of the trap routine. 


REMAINING INSTRUCTIONS OF TRAP ROUTINE (OPTIONAL) 


These instructions constitute the body of the 

trap routine. The trap routine may return control 
to the body of the slave program by doing a RET 
WORD_3. 


FIG. II-4 


Fig. II-5 


TRAP LINKING IN A USERS PROGRAM 


EF OES ES Sa CFEC 


User Process in Execution 


INSTR. 


Process is interrupted after instruction 
N (e.g., by a timer runout) and loses con- 
trol of processor. 


While process is not in execution, traps with 
trap routines located at Tl, T2, T3 occur. 


Control is returned to process at entry 
instruction of Tl, the routines for Tl, Te, 
and T3 executed, after which control is 
| returned to instruction N+1 of the interrupted 
: process, i.e., 


T2+O | SRW1 
T2+1 [| SRWe2 


Trap 
Routine for 
To 


RET T2+2 


Instruction N+l 
N+2 
N+ 3 


T1+0 | SRW1 


T1+1 | SRWe 


First Inst. 


Trap Trap 


Routine. for Routine for 


Tl 
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I/O Primitive Overview 


I/O PRIMITIVES OVERVIEW 
Summary of Macro Calls for I/O Primitives 


The primitives classified as I/0, their code identification, and their 
macro calls are summarized below: 


Code Macro Call Description 
O4 READ TRAP, FRN,CORELOC,N,MODE Sequential Read 
05 APEND TRAP, FRN, CORELOC,N,MODE Sequential Write 
06 RRF TRAP, FRN,FILELOC,CORELOC,N Random File Read 
O07 WRF TRAP, FRN, FILELOC, CORELOC ,N Random File Write 
08 SCR TRAP,FRN, FILEOC Scratch File 
09 SPTR TRAP, FRN,N Set File Pointer 
10 RQST TRAP, RN Request Status 


These primitives supply a slave program with an interface to both random 
and sequential devices as indicated. 


Random Devices - Drum, Disc 


Sequential Devices - Card Reader, Card Punch, Line Printer, 
Magnetic Tapes, Teletypewriters, 
Operators Console, Communication Lines. 


Element Size and Maximum Transmission for I/O Operations 


Each input-output device type has associated with it a unit size, which 
characterizes the number of bits (or words) employed in an actual data 
transfer. Primitive commands, however, transfer data in terms of an 
element size which the slave program specifies for a file at the time 


it is opened. The element size must be some integral multiple of the 
unit size. 


For each device type there is also a maximum number of data units that 
can be transferred in response to a single primitive command. This 
maximum number is determined both by the device and by the software. 


The unit sizes and maximum amount of data transmission for each of the 
1/0 device types are summarized in Tables III-A and III-B. 


III-1 


I/O Primitives Overview (Continued) 


The Addressing Mechanism for Sequential and Random Operations 


For all I/O commands, files are referenced by a File Reference Number 
(FRN) which is returned to the slave program when the file is opened. 
Associated with each file is an element size which is also specified 

when the file is opened. 


A file can, therefore, be regarded as a linear array of elements, each 
element of the file having the same specified element size. The file 
element represents the basic unit in which all input-output operations 
are expressed. The manner in which an element is referenced depends 
upon whether the primitive operation is random or sequential. 


For random operations, successive elements of a file are associated 

with consecutive integers, the first element of the file being associ- 
ated with the integer O. The starting location for a data transmission 
can, therefore, be specified by an integer corresponding to the relative 
position of some element in the file. For example, one can perform a 
random read of N efements from file '"FRN'' starting at element M, where 
M and N are integers. 


For sequential operations, the starting location for a read is specified 
by a current read pointer, while the starting location for am append is 
specified by an end of file pointer. The read and end of file pointers 
are discussed further in the write-up of the READ and APEND Primitives. 


Treatment of Mass Storage and Physical Device Files 


The I/O primitives can be employed with either mass storage or physical 
device files. The mass storage files are those located on the drum or 
disc and can be accessed by both the sequential and random commands. 


The physical device files are associated with devices such as Card 
Reader, Card Punch, Line Printer, Magnetic Tapes, and Teletypewriters. 
Physical device files can also be regarded as consisting of a linear 
array of elements. The element size will, as previously noted, be 
some integral multiple of the basic data unit which a device can 
transmit. Unlike the mass storage files, reads and writes on physical 
device files can only be done sequentially. 
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In order to issue an I/O primitive for a physical device file, the 
device type corresponding to the file must first be opened. This is 
performed by the OPEN primitive; this primitive will return a file 
reference number for one of the available devices of the type 
specified by a treename. All future references to this physical 
device file will be made in terms of this file reference number. 
Provision is made to enable a particular unit of a device type to be 
opened, e.g. a particular line printer or teletype. (See Fig. III-1). 


Note that the same sequential I/O primitives are used with both physical 
devices md mass storage files. For the physical device files, a 
physical interpretation (such as the current position of a magnetic tape 
head) is given to the current read and end of file pointers. This 
interpretation is different for each device type and is summarized in 
the remarks in Tables III-A and III-B. 


Mode Parameter for I/O Primitives 


I/O primitives for certain device types require a device dependent mode 
parameter to further specify the data transaction which is to occur. 

For example, the Card Reader can read cards in binary, bed, or mixed, 
depending upon the setting of the mode. The mode parameter is also used 
in specifying a particular operation on magnetic tapes. 


A summary of the valid mode values for each device type is given in 
Appendix B. 


Status Returns for I/O Primitives 


The I/O primitives return device independent logical status (Word 1) 
and device dependent physical status (Word 2). The same logical 

Status code is employed for all of the I/O primitives and is summarized 
in Appendix A-l. 


The physical status is dependent upon the particular device file which 
is being referenced and is summarized in the 600 manual for the device 
in question. 
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Device Identification Definition 


Identification Number Device Type 
1 Disc 
2 Drum 
2 Operator's Console 
4 Card Punch 
5 Line Printer 
6 ) Card Reader 
q TIM42-1 
8 CLM-10 
9 Tape Units 
10 Analog to Digital Converter 
13 Mem. Interface 
14 Events 
15 TIM32-2 
. 27 55 
5 4 
FIG. III-l 


Device Identification Number 


The following infomnaation on the device identification number is 
primarily for the use of programmers working directly on the executive. 


Each physical device in the hardware configuration is identified by a 
i bit device identification number. 


Device ID 
Bits O-4 Device type unit number 
Bits 5-8 Device type identification number 


The device type identification number specifies the number to be assigned 
to a given device type and is summarized above. 


The device type unit number specifies the particular physical unit of 
that device type (i.e. the 22nd teletype). 


0 45 8 


Device Type : ) 
; Device Type 
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MASS STORAGE FILE SUMMARY 


Maximum Units’ per 


Device Unit Size . Transmission Remarks on Starting Location for _a Data Transmission 


Drum 32 words 64K words For the drum and the disc, both the sequential 
and random primitives can be employed. 


Disc 32 words. _ 64K words Random operations can begin at an arbitrary element 
i o of the file. The element ts specified by an integer 
index which gives the element's position relative 
to the beginning of the File. 


For sequential]. operations, the starting location 
for a read is specified by a current read pointer, 
while the starting location for a write is specified 
by an end of file pointer. 


TABLE III-A 


Access 
Nevice READ APEND 


Card x 
Reader 


Card 
Punch 


Line 
Printer 


Magnetic 
Tapes 


Téletype- 
writers 
Operator's 
Console 


Communica- 
tion Line 
Multiplex- 
or 


A to D 
- Converter 


Unit Size 


6-bit 
characters 


6-bit 
characters 


6-bit 
characters 


1 word 


9-bit 
characters 


36 bit 
words © 


36-bit 
words 


PHYSICAL DEVICE FILE SUMMARY 


Maximum Units per 
Transmission 


Binary Mode: 160 
characters 


Hollerith Mode: 
80 characters 


Mixed Mode: 160 
characters 
Binary Mode: 160 
characters 


Hollerith Mode: 
80 characters . 
4,096 characters 


61,440 words 


128 characters 


4096 words 


4096 words 


— ee 


1 the typewriter current carriage position. 


Remarks on Starting Location 
for a Data Transmission , 


The READ starts from the first character of 
the next card to be read and continues for 
the number of characters which correspond to 
the specified number of elements. If less 
than the maximum number of characters are 
specified, the remaining, characters on the 
card are ipnored. 

The AVEND starts at the first character of 
the next card to be punched and continues for 
the number of characters whtch correspond to 
the specified number of elements. 


Tne APEND starts at the Left nargin of the 
current print line. Necessary slew and 

control characters must be supplied by the 

user. See Printer Manual for detailed 
characteristics. 

Both the KEAD and APEND beyin at the current 
position of the magnetic tape head. The set 
pointer primitive can be employed to modify this 
starting location. 

fhese devices are not initialized to the left: 
,mMargin so that READ and APEND proceed from 

; 

The read starts after the last SYNC character 
and continues until the subchannel dependent; 
end of record character. The append transmits the 
words specified. 


-~—  /. 


TABLE III-B 


Section IV 


File System and File Primitive Overview 


FILE SYSTEM AND FILE PRIMITIVE OVERVIEW 


Logical Structure 


The R and DC file system is, in formal terms, a tree structure of 
indefinite length whose origin is the system Root Directory. The 
primary nodes of the tree are the user's highest level directories, 
referred to as the user's Main Directories. The lower level nodes, 
if they exist, are subdirectories. The terminal points of the struc- 
ture are the files (or events). A schematic representation of the 
file system's hierarchical structure is shown in Figure IV-1. 


Files 


Files may be classified as mass storage or physical device. The file 
system views both of these files as linear arrays of elements and is 
not concerned with the contents. The element may be either a character, 
word, or block of words depending upon the nature of the file. 


Mass storage files are located on the disk and/or drum, and are paged. 
Storage for a file is allocated dynamically on a -when needed- basis 
in multiples of either the drum or disc page size. Files located on 
the disk or drum may be accessed in either a random or a sequential 


manner. 
Physical device files permit access to external storage media such as 


unit record devices, magnetic tapes, teletypes, and remote computers. 


The Directory File 


The directory file is a system file which maintains information about 
all of the catalogued entities. The directory file consists of a 
hierarchy of directories and is accessible only to the EXECUTIVE. 


Directory 


A directory consists of a collection of entries called branches. Each 
branch describes either a file, event, directory, or link. Included 
in the information for a branch entry is 


1 - the symbolic name of the entity referred to 
2 - the access granted to the entity for system users (except for link) 
3 - the password associated with the entity 


A detailed description of the information in a directory branch is given 
in the discussion on the READ BRANCH and READ DIRECTORY primitives. 
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LOGICAL STRUCTURE FOR THE R&DC FILE SYSTEM 


SYSTEM ROOT 
DIRECTORY 


ain Director 
for USER e* 


rn om wa! om > a wa 


¢ ~ 


Subdirectory 


oS 


Subdirectory Subdirectory 


Legend 


Denotes a file or event 
or link 


Subdirectory 


* Identified by the name used for the system root directory entry. 
All such names must be unique within the system; all subdirectories 
and file names are qualified by the user's name and the names of any 
intermediate subdirectories. The system root directory cannot be 


accessed by the user. 


FIG. [V-1 


file System and Primitive Overview (Continued) 


Events 


Events are data structures which are used for interprocess communica- 
tion. They can be catalogued and, in general, nandled much in the 
same manner as files. A more complete description of events will be 
given in Section V on Event Primitives. 


Identifying a File - Tree Name 


File or directory names need not be unique in the file system, except 
that all files emanating directly from a given directory must be 
uniquely named among themselves. To uniquely identify an individual 
file in the system, a string of names is given, beginning with the 
creator's Main Directory name and ending with the file name. 


Each successive directory name in the string qualifies the file name, 
thereby uniquely defining the file. This string is called the tree 
name. The tree name of any file or directory must include the names 
of all of the higher-level directories that must be traversed in order 
to arrive at the desired point. 


Note that events and links (to be described) are also referenced by 
the same tree name conventions as files. 


For example FILA in Fig. IV-2 has the tree name USERNO1/DIRA/FILA. 

In this representation, successive levels of the tree name are separated 
by a slash. A password can also be associated with the name at a 

given level. This is represented notationally by appending the 

dollar symbol and the password to the name component of the level. 

For example, to associate passwords with USERNOt and FILA, one would 
write the tree name as 


USERNO1$PASSWORD1/DIRA/FILA$PASSWORD2 


Note that this representation which is the same as that used in GECOS 
3, is used only for describing tree names. It is similar to, but not 
the same as, the representation which the programmer will employ in 
specifying tree names when coding the file primitives. 


Links 


A link contains the tree name of an entity being pointed to. The 
entity may be a file, directory, event, or another link. In the 
latter case, the link chain must eventually terminate with a non-link 
‘entry. The tree name specified by the link must begin from the level 
of a user's main directory. Note that link chains are not allowed 

to close back upon themselves. For example, the tree name of the 

link shown in Fig. IV-2, is USERNO2/LINKA. A possible content of this 
link entry would be the tree name USERNO1/DIRA/FILA. 
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Working Directory 


Each process has a current working directory associated with it with 
respect to which the process can specify tree names. For example, 

if in Fig. IV-2, the DIRA is the working directory, then the tree 

name of FILA relative to the working directory is */FILA. (The 

symbol * denotes that referencing is from the working directory instead 
of the root directory). 


ACCESS 
Permission may be granted to other users by the file creator for 
one or more kinds of access to his catalogued entities. A discussion 


on access is given in ''Parameter Summary for File Primitives", which 
appears in a subsequent paragraph in this section. 
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FIG IV-e 


System Root Directory 


Main Directory for User l Main Directory for User 2 
LIN EVENTA 
DIRA 
FILA 

Entity in Directory Structure Tree Name of Entity 
Main Directory for User l ' USERNO1 
The directory, DIRA, catalogued in the Main USERNO1/DIRA 
Directory for User 1 
The file, FILA, catalogued in DIRA USERNO1/DIRA/FILA 
The link, LINKA, catalogued in the main directory USERNO2/LINKA 


for User 2 


The event, EVENTA, catalogued in the main directory USERNO2/EVENTA 
for User 2 


The Basic System Tables - The AIT, KIT, and State Segment 


The following sections describe the basic system tables which the 
Executive utilizes in performing its functions. These sections are 
intended primarily for reference and are included to clarify the 
meaning of the terms 'AIT' and 'KIT' which are employed in the descrip- 
tion of certain primitives. 


In the discussion that follows, the term 'item' is used to signify a 
file or event. 


The ‘ctive Item Table (AIT) 


The Active Item Table maintains the global information, required by the 
executive, for the manipuletion of the files, segments, or events which 
are currently active. There is a single entry in the Active Ltem Table 
(AIT) for each such active item. 


A file or event becomes active the first time it is opened by a slave 
process. At this time an entry is made for the file or event in the 
Active Item Table (AIT). The file or event remains active until it 
is closed with an attachment count (entry hold count) of zero. At 
this time the corresponding entry is removed from the AIT. 


A file or event may be opened more than once or by more than one process. 
In this case there is still only one AIT entry, but the attachment 
count for the entry is updated. In addition, an appropriate pointer 
to the AIT entry (to be described in discussing the Known Item Table) 
is set up. (See Fig. IV-3)} 


A segment becomes active the first time it is specified in the spawning 
of some process or upon being opened by a process. It remains active 
until all processes which utilize it have terminated. Segments may 
also be shared by more than one process. But again there is only a 
single AIT entry for each segment. 


Information Contained in a File or Segment AIT Entry 


1) Location of file or segment 


Segment Entry - Core location of segment or the location of 
the page table for the corresponding segment swap file. 


File Entry - location of page table for file. 


2) Maximum and current length (if file) 
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The Active Item Table (Continued) 


3) Number of processes using the segment or file 
4) Statistical information on use of segment or file 


5) Pointer to a branch in the system directory which points to the 
page table of the file (catalogued file only). 


6) Owner's identification 


7) Lock indicator (files only) 


Information Contained in an Event AIT Entry 
1) Pointer to queue of processes awaiting notification 
2) Current and maximum allowable size of queue 
3) Number of processes using the event 
4) Pointer to corresponding branch (catalogued events only) 
5) Owner's identification 
6) Lock 
7) Maximum time an entry can remain on queue 


8) Parameters describing operation of event 
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State Segment and Known Item Table 


The State Segment 
Associated with each process is a unique state segment which is 
created when the process is first spawned. The state segment is used 
to store the information which is needed by the master and slave 
executives to run the process. The information in the state segment 
is local (that is, it applies only to the particular process), as 
contrasted with the information in the Active Item Table which is 
global to all processes. 
A principal data item contained in the state segment is the Known Item 
Table (KIT). The KIT contains information concerning the files and 
events that the process has knowledge of. Because of its significance, 
the contents of a KIT entry will be discussed separately. 
Information in the State Segment 

1} Register storage 

2) Location of slave process fault vector 

3) Timing information 

4) Pointer to AIT entry for each of the process' 4 segments 

5) Squeze mode information 

6) Process ID and father's process ID 

7) Count of I/O and file operations underway 

8) Count of number of events process is awaiting | 

9) The Known Items Table (summarized below) 

10) Trap information 


11) Other Measurement Information 


The Known Items Table (KIT) 


The Known Items Table has at least one entry for each file and event 
that a process has knowledge of. Entries are made in the KIT whe: a 
process is initially spawned, for each item (if any) passed to it, and 
subsequently whenever the process opens a file or event (item). The 
items in the KIT are accessed by means of their -reference number- 
which has been returned to the process when the item was opened, or 
which was passed to the process when it was spawned. 
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The Known Item Table (Continued) 


Since a process Can open an item more than once, there may be several 
entries in the KIT which represent the same item. Similarly an item 
which has a reference number in the KIT of one process may also have 

a reference number (usually different) in the KIT of some other pro- 
cess. (This occurs, for example, when a father specifies the reference 
numbers in the father's KIT for items in the son's KIT). 3 


Note, however, that regardless of the number of times an item is refer- 
enced by entries from various KIT's, it has but a single AIT entry. 
Each KIT entry has a pointer to the global entry for the item in the 
AIT. Hence, different KIT entries which correspond to the same item 
will all point to a common AIT entry. This mechanism aids in the 
manipulation and maintenance of items which are common to several 
processes. (See Fig. IV-3). 
Information in a Known Item Table Entry 

1) Access permitted to item 

2) Pointer to AIT entry for item 

3) Flag to indicate whether process has locked the item 


4) Count of number of I/0 operations underway (file) or 
requests for notification outstanding (event). 


5) Read pointer (for reading files sequentially). 
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Relationship Between the Active Item Table, 
Known Item Table, and State Segment 


Active Item Table (AIT) 


be see ee Pe $tate 
be iow ey ey Segment 


Process l Process 2 Process k 


* NOTE: Entries in the KIT are referenced by their Item Reference 
Number, RN, which is used as an index in the KIT. The reference 
number for the KIT in each process is private to the process. 
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Summary of Macro Calls for File Primitives 


Code 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 

31 
32 

33 
34 
35, 
36 
37 


Macro Call 


OPEN 
CLOSE 
CATLOG 
DESTRO 
OPENS 
UPDATE 
CATDIR 
WRACL 
RDACL 
RDDIR 


OPENW 


RDBRN 
RDLNK 
WS INF 
CATLK 
WTBRN 


LOCK 


TRAP, TREE NAME,TREE_SIZE,BEHALF,ELSIZE,ACCESS 
TRAP,RN 

TRAP,RN,TREE_NAME, TREE SIZE,SWITCH,UACCESS ,OACCESS 
TRAP, TREE NAME,TREE_SIZE,BEHALF | 
TRAP, DEVID ,MAXLEN , ELSIZE 

TRAP ,RN 

TRAP, TREE_NAME,TREE_SIZE,BEHALF ,UACCESS ,OACCESS 
TRAP,BUFLOC , TREE_NAME,TREE_SIZE,BEHALF ,BUFSIZE 

TRAP, INDEX ,BUFLOC , TREE_NAME , TREE_SIZE, BEHALF , NUMBER 
TRAP, INDEX, BUFLOC , TREE_NAME,TREE_SIZE,BEHALF ,BUFSIZE 


TRAP, TREE_NAME,TREE_SIZE,BEHALF 


TRAP, SYSID,BUFLOC , TREE_NAME, TREE_SIZE,BEHALF 
TRAP ,BUFLOC , TREE_NAME ,TREE_SIZE,BEHALF ,BUFSIZE 

TRAP ,SYSID,BUFLOC , TREE_NAME,TREE_SIZE,BEHALF , DELETE 
TRAP, LINK_NAME,LINK_SIZE,TREE_NAME,TREE SIZE,BEHALF 
TRAP ,BUFLOC , TREE_NAME,TREE SIZE,BEHALF 


TRAP ,RN 


UNLOCK TRAP,RN 
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Description of Parameters for File Primitives 


Summarized are those parameters which are common to several of the 
file (and event) primitives. The remaining parameters are described 
in the individual write up for each primitive. 


TREE_NAME 


Catalogued items are initially referenced by a tree name which 
specifies the location of the item in the 600 system directory 
structure. The parameter 'TREE NAME' is a pointer to an area in the 
slave program where the characters in the tree name are stored. 


Tree names which consist of more than one level must occupy a contigu- 
ous block of storage, with six words reserved for each level. For 
each level, the first 4 words specify the name and the last two words 
the password. 


The characters of the name and pass word are left justified and all 
characters must be specified for each level. Trailing blanks (octal 
040) must be supplied if the names and passwords are to be compatible 
with those catalogued by the System Loader from the card reader. 


If a password is not desired, a default password of eight ASCII 
blanks (octal 040) should be specified. Note that the name and pass- 


word of a given level of the tree name are conveniently defined by 
the ACI Pseudo Op in the GMAP assembler. © 


Examples of Tree Name Specification with Passwords 
An example showing the default passwords for device files 


ACI 6,DEVICE Name and default password for device 
ACI 6,MTAA Name and default password for any magnetic tape 


The above file has the tree name DEVICE/MTAA. 


An example of a file with a non default password 


ACI 4,ZBROWN Name of user's main directory 

ACI 2,SESAME Password for main directory 

ACI 6,DOCCAT Name of directory in above with default password 
ACI -4,FILE1 Name of file in DOCCAT 

ACI 2,SHAZAM Password for FILE1 


The above file has the tree name ZBROWNSSESAME/DOCCAT/FILELSSHAZAM. 
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Parameter Summary for File Primitives (Continued) 


TREE SIZE The number of words in the storage area where the 
~ characters of the tree name are stored (i.e. the storage 
area whose starting location is given by 'TREE NAME'). 
The number of words specified by 'TREE SIZE' must be a 
multiple of 6. 


If 'TREE SIZE'=6 it implies the operation is being per- 
formed at the root level of the directory. 


RN The item (file or event) reference number, 'RN', is 
returned when either a scratch or catalogued item is 
opened. Most subsequent references to the item will be 
in terms of this reference number. The reference number, 
'RN', is an index to the entry in the Known Item Table | 
of the process which describes the item. The value of 
'RN' has meaning only to the process which opened the 
item. An item which is shared by several processes will 
generally have a different reference number in each process. 


BEHALF The BEHALF indicator specifies the user identification 
number which is to be checked in determining whether the 
requested access to the directory structure will be 
granted. The BEHALF indicator settings are as follows: 


Bit 17 (in behalf word) 
1 = ORIGINATOR's ID is to be used (normal setting) 
O = OWNER's ID is to be used 


The BEHALF should almost always be set for the ORIGINATOR. 
The use of OWNER's behalf should be restricted only to 
System programs accessing proprietary subroutines and 
then used with CAUTION. An explanation of this termino- 
logy is given below. 


Each process may have two distinct identification numbers stored in its 
state vector, one of which is referred to as the ORIGINATOR's ID, the 
other the OWNER's 1D. The ID is a number which the system assigns to 
each user of the system when the user's main directory is initially 
catalogued in the system root directory. 
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Parameter Summary for File Primitives (continued) 


The user who signs on via the "HELLO" sequence is called the ORIGINATOR, 
and the ID corresponding to this user is the ORIGINATOR‘s ID. When a 
process is spawned by the LISTENER, the ORIGINATOR's ID is stored in 
the state vector of the process. All processes which are subsequently 
spawned by this spawned process will also have the same ORIGINATOR's 

ID specified. Hence if any such process issues a file or event primi- 
tive with the ORIGINATOR's behalf specified, the ID of the user signing 
on via the "HELLO' sequence is the one which will be checked by the 
file system in determining whether access is to be granted. Note that 
a process will always have a non-null entry in its state vector for 

the ORIGINATOR's ID. 


When a process is spawned, a non-null OWNER's ID may also be stored in 
its state vector. The OWNER's ID is that of the user in whose main 
directory the file (or segment) spawned as segment zero is cataloged. 
A NON-NULL OWNER'S ID IS STORED ONLY IF THIS FILE WAS CATALOGED WITH 
THE OWNER'S ACCESS PRIVILEGE SWITCH SET ON (see catalog primitive). 

If the owner's access privilege switch is set OFF, or if the file 
spawned as segment zero is a scratch file, a null OWNER's ID is set 

in the state vector. A file or event primitive issued with the OWNER's 
behalf specified will be rejected unless the OWNER's ID is non-null 
and the access for the non-null ID is valid. 


In general files are rarely catalogued with the OWNER's ACCESS PRIVILEGE 
SWITCH set ON, since any process which can spawn this file as segment 
zero will be allowed to use OWNER's ID and hence have all access to the 
directory structure that the owner has. The OWNER's ID is generally 


useful only for system programs accessing proprietary subroutines. 
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Parameter Summary for File Primitives (Continued) 


ACCESS , UACCESS , OACCESS 


This parameter specifies the access to be requested or assigned 
in performing a manipulation of the file structure. The access 
attributes are represented by a mask, the format of which is 
summarized in Fig. IV-4, 


Whenever a user issues a primitive which involves a tree search on the 
directory structure, a check is made to determine whether he possesses 
the requested access. Access privileges are specified for three 
classes of users: 


1) The Owner - the individual in whose main directory the refer- 
enced entity is catalogued. 


2) A set of users, specifically enumerated, that appear on the 
Access Control List for the entity. 


3) The Universe - all other valid users (excluding the owner and 
users on access control list) 


The OWNER's and UNIVERSAL access (OACCESS and UACCESS) for an entity 
are defined when the entity is initially catalogued. Entries on the 
Access Control List are defined by the Write Access Control List 
Primitive. 


The BEHALF indicator (discussed previously) determines whether the 
ORIGINATOR's or OWNER's ID is to be used for the access check. 
(Normally the ORIGINATOR's ID will be specified). The ID specified by 
BEHALF is first checked against the ID of the file owner. If they are 
the same, then the access used is that granted to the owner. Other- 
wise, a search for the ID is made on the Access Control List. If the 
ID is specified on the Access Control List, then the access there 
defined is the one granted. If the ID is neither that of the owner 
nor on the Access eOnEre® List, then the access is that granted to 

the Universe. 


Note that the above comments on the employment of the 'BEHALF' indicator 
apply only to those primitive requests which involve a tree search on 
the entity. Primitive requests which reference an entity by its 


reference number use the access specified in the associated Known Item 
Table entry. 


A more detailed description of the manner in which the access at a 


particular level in a tree search is checked is summarized in "Access 
Checking in the Directory File'' on the following pages. 
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Attribute 


READ 


WRITE 


APPEND 


NOTIFY 
EXECUTE 


CAUSE 
LOCK 


Entity 


File 


Directory 


File 


Directory 


File 


Directory 


Event 
File 


Directory 


Event 
File 


Event 


SUMMARY OF USAGE ACCESS ATTRIBUTES 


Description 


Can read the file or spawn it into any 
base register, except zero 


Can read a directory to get information 
about any or all of the entries including 
access control lists 


Can truncate or rewrite existing contents 
of file without adding to its length 


Can delete or modify specifically named 
entry 


Can add to a file without changing its 
original contents 


Can add entries without changing existing 
entries 


Can issue a notify or delete to the event 
Can spawn the file into base register zero 


Can use the directory for a tree search 
on a symbolic name 


Can issue a CAUSE or UNCAUSE to the event 


Can prevent other users from accessing 
the file 


Can prevent other users from accessing the 
event 


The usage attributes are referenced by the macro parameters ACCESS, 


UACCESS, and OACCESS. 


The access mask is loaded to the -A- or -Q- 


register (as specified by the primitive) with a bit set ON if the access 
attribute is to be granted. 


fe) 


Not Presently Used 


Not Presently Used 


31 32 33 34 35 


Mask for files 
and directories 


Mask for events 


Fig. Iv-4 


Access Checking in the Directory File 


By access checking at a particular stage of a tree search we mean 

both a password check and, if that is successful, a check on the user's 
access permission at that stage. For the purpose of describing 

access checking we divide the primitives which involve a tree search 
into two categories. 


Category I OPEN requested access 
| OPEN WORKING DIR execute access 
READ DIR . read access 
Category II 
A CATLOG append access 
CATDIR append access 
CATLINK append access 
B DESTROY write access 
READ BRANCH read access 
READ LINK read access 
READ ACL read access 
WRITE ACL write access 
WRITE SYSTEM INF write access 
WRITE BRANCH write access 


If a primitive in category I has as an argument a tree name N /N Piulic 
N, then the item actually being manipulated is the one whose Li ofal 
name is N,. As a result access will only be checked at level "i and 
only the password at level k need be supplied. The access permission 
which the user must have to that item is specified opposite the 
corresponding primitive. 


Primitives of category II are manipulating the items whose local name 
is ee as a result access will only be checked at level k-l. 


In establishing a link the link name may have the form n/N /.../N, 
or N /N. /...../N,$P,. If the user intends to manipulate thé item ‘ 
named by the link name the latter form must be used. If, however, 
the link is to be used as simply a pointer to a directory and the 
items to be manipulated lie below that directory then the link name 
need not include Pe 
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Access Checking in the Directory File (Continued) 


The following conventions will be established with respect to error 
returns which result from a failure during the tree search. 


Error Return | Circumstance 
Invalid Name Name not found in directory being searched 


and searcher has execute permission in 
that directory. 


Access Denied Access check on some item in a directory 
fails and searcher has execute permission 
in that directory. 


No Search All other cases 


PRESENT PASSWORD SYSTEM 


A password is always checked on the directory above the item 
being accessed. 


AND_ on the root directory when the root BAPeCeOry. is the item 
being accessed. 


AND_ on the item being accessed when the command is an OPEN, OPWD 
or RDIR. 


EXCEPT on catalogs in which case the password is checked only on 
the directory in which the item is to be cataloged. 
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Section V 


Event Primitives Overview 


EVENT PRIMITIVES OVERVIEW 


Overview of Event Structure 


Events are used as a means of interprocess communication, and are 


handled much in the same manner as files. Events can be either scratch 


or catalogued (in which case they have a tree name). They have 
attributes (lock, notify, and cause). They have an owner, and they 
can be passed on in a spawn. 


Events are referenced by an event reference number 'RN' which is 
either returned when a scratch or cataloged event is first opened, 
or which is passed to the process when it is spawned. 


The system maintains a global event queue for each event which is 
currently active. A notify primitive to an event 'E' by a process 
'P' results in an entry for 'P' being made on E's event queue. The 
corresponding cause primitive to event 'E' results in the trapping 
of the process which issued the notify to that event (See fig. V-1). 
The next time the process regains control, the trap routine 
(specified by the notify) is executed. If the process which issued 
the notify is blocked, the occurrence of the cause reawakens it. 


Events are catalogued by means of the catlog primitive and a 
catalogued event is opened by the open primitive. These primitives 
are described in section IV on File Primitives, and are used for 
events in a manner similar to that indicated for files. 


Known Item Table 


Process l 


Known Item Table 


Process 2 


FIG. V-l 


Active Item Table 
Notify Queue for Event A 


ol erate sone) PPE 


Notify Queve for Event B 


Summary of the action of the principle Event Primitives 


OPEN SCRATCH EVENT - A global entry for the event is made in the Active 


NOTIFY 


_ CAUSE 


Item Table (AIT) and a private entry for the 
process is made in its Known Item Table (KIT). For 
example, if Process 1 opens a scratch event, 
globally denoted as Event A, the corresponding 
reference number returned for its KIT entry is 


-RN=J. When the scratch event is opened, its 


notify queue has length zero. 


- An entry for the process issuing the notify is made 


on the event's notify queue in the AIT. For example, 
if Process 2 issues a notify with ERN'=K, an entry 
for Process 2 is made on the event queue for A. 


A portion of the entries on the notify queue for the 
event caused will be trapped. For example, if 
Process 2 issues a CAUSE with ERN'=L, NUMBER=5, and 
STATE=3, then the first 5 entries on Event Queue 


‘B whose state equals 3 will be trapped. 


Summary of Macro Calls for Event Primitives 


The following calls are applicable for files and events 


Code 


20 
21 
22 
23 
36 


37 


Macro Call 


OPEN 


CLOSE 


TRAP, TREE NAME, TREE_SIZE,BEHALF,ELSIZE, ACCESS 


TRAP ,RN 


CATLOG TRAP,RN, TREE NAME, TREE SIZE, SWITCH, UACCESS ,OACCESS 


DESTRO TRAP, TREE _NAME,TREE SIZE,BEHALF 


LOCK 


TRAP ,RN 


UNLOCK TRAP ,RN 


The following calls apply only to events 


Code 


38 
39 
40 
41 
42 


Macro Call 


NOTIF 


CAUSE 


DELET 


UNCAU 


OPSCE 


TRAP, ERN,CTRAP , STATE 
TRAP, ERN, STATE, MESSAGE, NUMBER 
TRAP ,ERN, STATE 
TRAP, ERN , NUMBER 


TRAP , TIMLIM, MODE , MAXLEN 


Parameters Associated with the Event Primitives 
_-GLaMelers Asv0C lath ws oS eS 


MODE 


CURRENT COUNT 


Events have either a transient or steady state mode 
associated with them. The mode is specified when the 
event is initially opened by the Open Scratch Event 
primitive. 


For a transient mode event, only those processes which 
issue a NOTIFY prior to the time that the event is 
CAUSFed can be trapped as a result of that CAUSE. 


For a steady state event, processes which issue a NOTIFY 
either prior a@ subsequent to the time that the event is 
CAUSEed can be trapped as a result of the CAUSE (See 
also CURRENT COUNT). 


& 
For each event, the system maintains a running count 
of the number of processes yet to be trapped. This 
parameter, the CURRENT COUNT, is incremented by the 
parameter 'NUMBER' whenever a CAUSE to the event is 
issued. The current count is decremented by one each 
time a steady state event is CAUSEed, and is reset to 
zero each time a transient event is CAUSEed. The: 
current count must be either zero or positive. 


Note that for a steady state event, the current count 
may remain non-zero after the occurrence of a CAUSE 

to that event. This results when the number of entries 
on the event queue is less than the parameter 'NUMBER' 
specified by the CAUSE. A process which subsequently 
issues a notify to a steady state event with non-zero 
current count will be immediately trapped. 


The current count is therefore the implementation 
mechanism whereby a NOTIFY to a steady state event can 
be acknowledged subsequent to the CAUSE to that event. 
The current count and the current length of an event's 
queue can be obtained by issuing the Request Status 
primitive with the event of concern specified by its 
reference number 


Vs? 


Parameters Associated with Event Primitives (Continued) 


NUMBER The number of entries on the particular event queue which 
are to be notified (i.e., trapped) when the CAUSE primitive 
is issued or which are to be deleted when the UNCAUSE 
primitive is issued. If 'NUMBER' is set to zero, all of the 
events on the event queue are notified (or deleted). Note, 
only those entries with the appropriate 'STATE' (see below) 
are included in those notified or deleted). 


STATE A parameter specified by the NOTIFY and CAUSE primitives which 
provides a mechanism for distinguishing between processes 
awaiting notification. Only those processes whose event 
queue entries have states matching the state issued with the 
CAUSE will be trapped. 


The state 777777777777, for transient mode events will match 
all states: that is, a CAUSE issued with this universal 
state will cause a process to be notified regardless of the 
state specified in the NOTIFY. 


Note: States can only be defined for transient mode events. 
The 'STATE' must be set to zero for a steady state event. If 
an event primitive is issued to a steady state event with 
state other than zero, it will be rejected. 


A fixed state event is an event which has been passed on a 
Spawn or pass event anddesignated 'fixed state' by the 
passer. He must specify a state. When the receiver of the 
event performs a NOTIFY or CAUSE on it, the 'STATE' argument 
from the MME is ignored and the state designated by the 
father is used instead. If the receiver passes the event to 
someone else, it will remain fixed state. 


MESSAGE When an event is caused it also transmits a one word message. 
The message is returned to the notified pEocese in Status 
Return Word 2. 


ACCESS A user may have NOTIFY, CAUSE, or LOCK access to an event. 
The access to a catalogued event for the owner and the 
universe is specified when the event is catalogued and 
checked when the event is opened. Access is granted when 
the indicated bit is set on. 


NOTIFY Bit 33 
CAUSE Bit 34 
LOCK Bit 35 


Access for scratch events is established by the open 
scratch call. 
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Parameters Associated with Event Primitives (Continued) 


MAXLEN The maximum number of entries which can be placed on the 
queue for a particular event. This number is specified 
in the Open Scratch Event Primitive and may be from 1 to 
16 as presently implemented. If the 'MAXLEN' parameter 
is set to zero, a default number of 16 is assigned. 


TIMLIM The maximum amount of time a process will be allowed to wait 
for an event for which it has issued a NOTIFY. This para- 
meter is supplied in the Open Scratch Event Primitive and is 
expressed in seconds up to a maximum of 1/2 hour. If this 
parameter is set equal to zero, a default option of 1/2 
hour is assumed. 


TRAP The trap address corresponding to the issuing of the event 
primitive. The logical status (Status Word 1) employs the 
same error code as the File Primitives and is summarized in 
Appendix A-2. | 


TRAPC The trap address where control is returned to a process when 
an event is caused. (The process specifies this trap address 
in the Notify Primitive). A message may be returned in 
Status Word 2 of this trap. 


Status Return Word 1 will contain zero if the trap is for a 
successful return (i.e., the CAUSE for this NOTIFY has been 
issued) and will contain an appropriate error code if the 
trap is the result of the time limit being exceeded. 


RN Reference number of a file or an event 


ERN Reference number of an event 


SYSTEM EVENTS 


The system events are events catalogued by the system which may be 

used by any slave process. At present there are three system events, 
the TIME, UNLOCK, and DEALLOCATE events. System events are catalogued 
with a root directory name of SYSEVNTS. The tree name of the system 
events are respectively SYSEVNTS/TIME, EVNTS/UNLOCK, and SYSEVNTS/DEALL. 
A description of these events and their use follows. 


Time Event 

A process can request notification (i.e. being trapped) at a time N/64 
millisecond after it issues a NOTIFY to the time event, where N is 
specified as the state of the NOTIFY. 


To use the time event: 


1) OPEN the time event with the tree name specified below and 
request notify access. 
ACI 6,SYSEVNTS 


ACI 6,TIME 


2) Issue a NOTIFY to the time event with the following parameters 


TRAP Trap associated with issuance of notify 

ERN Reference number of time event which was returned by 
the open. 

TRAPC Trap location to which the system is to return control 
when the system causes the time event. 

STATE The number of 64th of a millisecond, N, after the 


NOTIFY in which the process is to be trapped. 
See the OPEN and NOTIFY primitives for additional details. 


Unlock Event 


A process can request notification when a particular item is unlocked. 
The item in question is identified by its reference number which is 
used as the state of the notify. 


To use the unlock event: 


1) OPEN the unlock event with the tree name specified below and 
request notify access. , 
ACI 6,SYSEVNTS — 


ACI 6,UNLOCK 


System Events (Continued) 


Unlock Event (cont'd) 


2) Issue a NOTIFY to the unlock event with the following parameters 


TRAP Trap associated with the issuance of the notify 

ERN Reference number of unlock event which was returned by 
the open 

TRAPC Trap location to which the system is to return control 
when the item referenced is unlocked. 


STATE The reference number of the item which is tested for 
being unlocked. | 


See the OPEN and NOTIFY primitives for additional details. 


Deallocate Event 


If a busy status is returned after an OPEN primitive is issued on a 
device the process can request notification of the device deallocation. 
When the process is trapped back with logical status 0, the device is 
then open to it and the status returned is specified below: 


Status return word l1: 


Bits 0 -17 reference # of open device 
18-35 logical status code (See Appendix A-2) 


Status return word 2: 


Bits 0 -19 not used 
20-25 access mask (right justified) 
26 not used 
27-35 device ID (see fig. III-1). 


To use the deallocate event: 

1) OPEN the deallocate event with the tree name specified below and 
request notify access. 
ACI 6,SYSEVNTS 
ACI 6,DEALL 


System Events (Continued) 


Deallocate Event (cont'd) 


2) Issue a NOTIFY to the deallocate event with the following 


parameters 
NOTIFY 
TRAP 
ERN 


TRAPC 


STATE 


MESSAGE 


- TRAP, ERN,TRAPC ,STATE, MESSAGE 


Trap associated with the issuance of the notify 


Reference # of deallocate event which is returned 
by the open 


Trap location to which the system is to return control 
when the device referenced is deallocated. 


The tree name of the device which is tested for being 
deallocated. 


ex. ACI 1,MTAA 


The message is to be loaded into the Q register. The 
upper half of Q must contain the element size, expressed 
in bits, in which subsequent data transactions involving 
this device are to be expressed. The lower half must 
have the access requested for the device: 


Bit 31 Read 
Bit 32 Write 
Bit 33 Append 
Bit 34 Execute 
Bit 35 Lock 


If Q lower is set to zero, the process will receive 
all the access to the device that is allowed. 


Possible bad status on NOTIFY: 


DEC OCT 
2 2 
12 14 


31 25 


Access denied 
Illegal element size 
Device not allocated - reissue OPEN 


SPECIAL EVENTS 


Process Event 


The process event is a scratch event, associated with each process, 
which occurs (i.e. is CAUSEd) when the process is terminated. The 
reference number for this event is returned to the father in the 
Upper Half of Status Word 1 when the process is spawned. (The 
process event reference number is also referred to as the son's 
reference number). 


The process event may be passed to other processes or closed by the 
father. In the latter case the son becomes unknown to the father. A 
CAUSE issued to this event results in the termination of the process. 
The event is a steady state mode event with NUMBER == . The 

father has full access to the event. There are six ways a process 
can terminate: 


1) execution of a CAUSE on the process event 

2) execution of a final CLOSE on the process event 

3 execution of terminate primitive 

4) commiting a fault, other than MME, while in default mode 
5) using all the time allocated to process 

6) process becomming to large to fit into core 


Pass Event 


-A pass event is a transient mode event which enables one process 
(Process A) to pass the reference number of an item to another process 
(Process B). State differently, Process A can, by CAUSING the pass 
event, make an item known to Process B. 


To create a pass event, bit 16 is set ON in the MODE parameter for the 
Open Scratch Event Primitive. The MODE parameter, which is loaded 
into index register -X4- will be interpreted as follows: 


Bits 16,17 Interpretation of Mode Parameter 
00 Steady state mode, regular event 
01° Transient mode, regular event 
11 Transient mode, event of type pass 
10 Error. Pass everts are defined only in 


transient mode. 
CAUSE TRAP, ERN, STATE , MESSAGE, FRN,ACCESS 


The parameters for the CAUSE of the pass event have the following 
meaning: 


TRAP Trap address associated with issuance of CAUSE 
ERN Reference number of the pass event being CAUSEed. 
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Pass Event (Continued) 


The following discussion illustrates how the LISTENER 
pass event to allow system processes to pass items to 


1) 


2) 


* 


passed. 


The LISTENER opens a scratch pass event, and then 
with universal access of CAUSE and owner's access 


CAUSE. 


The LISTENER issues a NOTIFY to the pass event. 


ERN This reference number is obtained by opening 
either a scratch or catalogued event of type 
{ t 
pass. 
STATE State associated with the CAUSE primitive. 
FRN The reference number of the item being passed. 
ACCESS The access granted on the item being passed. 
This access is and'ed with the passer's access 
on the item. (See Fig. IV-4 for format). 
MESSAGE Only 18 bits can be sent as a message with a 
pass event. 
QU - Message 
QL - Ignored 
NUMBER The number of processes to receive the item 


might use the 
ng 


catalogs it 
of NOTIFY and 


To pass an item to the LISTENER, a process must first open the 
catalogued pass event and then issue a CAUSE to this event. 


The format of the status return words for a notify on a pass event is 
as follows: 


TRAP WORD 1 BITS O -17 Not specified 

. BITS 18-35 Logical status code 

(See Appendix A-2) 

TRAPC WORD 1 BITS 0 -17 FRN of passed item 
| BITS 18-35 Logical status code 

(See Appendix A-2) 

WORD 2 BITS 0 -17 Message 
BITS 18-35 ACODE of passer. 


Accounting ID. 
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Pass Event (Continued) 


The ACODE is a code set up when a process is created by the LISTENER 
(via the LOGIN sequence) and passed along to all descendents of that 
process. It is unique to each family of processes (generally one user.) 
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Section VI 


Description of System Primitive Commands 


DESCRIPTION OF SYSTEM PRIMITIVE COMMANDS 


Introduction 


In this section a description of each of the system primitive 
commands is given. Each description is given in the following 
general format. 


FORMAT EXPLANATION 
Name of Primitive Command | Self Explanatory 
Primitive Command Macro Call Macro call for system macro which init: 


ates the primitive action. The macro 
expansions are given in Appendix D. 


Registers Specifies the contents of the 
registers prior to the issuance 
of the MME for the primitive 
command. 


Status Return Words Specifies the information which 
the executive returns to the first 
two words at the primitive trap 
location when the primitive 
operation is completed. 


Remarks Self explanatory 


Information On The Use of Primitive Command Descriptions 


The primitive command descriptions should initially be used 
in conjunction with the overview summaries presented in the previous 
sections. After the basic terminology is understood the descriptions 
themselves should suffice. It is suggested that the programmer 
have a clear understanding of the system trap handling procedure 
(Section II) before attempting to utilize the primitives. 
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SUMMARY OF PRIMITIVE COMMANDS AND THEIR CODE NUMBERS 


Primitives Executed Directly by the Master Mode Executive 


Primitive Code and Name 


00--Privileged Command From Slave Exec 


01--Set Up Fault Vector 
02--Set Up Squeze Mode 
03--Enter Squeze Mode 

04 -~-Read 

05--Append 

06--Random Read 
07--Random Write 
08--Scratch File 

09--Set Pointer 
10--Request Status 
ll--Request Date and Time 
12--Request Elapsed Run Time 


45--System Status Measurements 


46--Measure READ Me 
48--Write Me 

49--Who Am I 

51--Request Working Directory 


Primitive Classification 


CONTROL 
CONTROL 


1/0 
CONTROL 
CONTROL 
CONTROL 
CONTROL 
CONTROL 
CONTROL 
CONTROL 


Primitives Executed by the Slave Mode Executive 


13--Spawn 

14--Terminate 

15--Pause 

16--Open Segment 

17--Close Segment 

18--Change Segment Length 
19--Exchange Segments 
20--Open 

21--Close 

22--Catalog 

23--Destroy 

24--Open Scratch 

25--Update 

26--Catalog Directory 
27--Write Access Control List 
28--Read Access Control List 
29--Read Directory 

30--Open Working Directory 
31--Read Branch 

32--Read Link 

33--Write System Information 
34--Catalog Link . 
35--Write Branch: 

36--Lock 

37--Unlock 

38--Notify 
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CONTROL 
CONTROL 
CONTROL 
CONTROL 
CONTROL 


CONTROL 


CONTROL 

FILE AND EVENT 
FILE AND EVENT 
FILE AND EVENT 
FILE AND EVENT 


FILE 


FILE AND EVENT 


FILE AND EVENT 
EVENT 


Summary of Primitive Commands and Their Code Numbers (cont'd) 
Primitives Executed by the Slave Mode Executive (cont'd) 


39--Cause | EVENT 
40--Delete Entry EVENT 
41--Uncause EVENT 
42--Open Scratch Event EVENT 
47--Create Segment CONTROL 


VI-3 


Privileged Primitive (Slave Executive Only) Code = 0 


This primitive is a privileged command issued to the master mode 
executive by the slave executive only. 


Only the slave executive is authorized to issue this primitive. If 


other processes attempt to use 
rejected with a command fault. 


There are four micro commands, 
which are associated with this 


this primitive, the call will be 


specified by a micro command number, 
primitive. 


Register - Description 
XO | O = Privileged Primitive code number 
X1 Micro command number 
OO -- Run micro command 
O1 -- Set BAR micro command 
O2 -- Destroy scratch file micro 
03 -- Update micro 
O4 -- 1/0 clean-up routine micro 
05 -- Deallocate Drum File micro 


The micro commands are discussed on the following pages. 
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Run Micro Primitive (Slave Executive only) 


The Run Micro Primitive (privileged) starts up the execution of the 
specified slave mode process. Only the slave mode executive is 
authorized to issue this primitive. This primitive sets up the Run- 
A-Program working storage and the indirect fault vector. Control is 
then transferred to the slave mode process via the R$RETRN routine. 


This routine also sets up the BAR] setting in the Run-A-Program storage 
for the slave executive to point to the state vector of the current 
running process. When the slave executive is re-entered for either a 
timer runout fault or primitive call, BAR] will be set around the 

state vector of the current process. 


Register Description 
XO O = Privileged Primitive 
X1 OO = Run Micro Primitive 
X2 AIT entry address for state vector 
A Process ID 
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Set BAR Micro Primitive (Slave Executive Only) 


The Set BAR Micro Primitive sets a specified base register around a 
specified state vector, and returns directly. 


This primitive is accessed by the privileged primitive command and is 
allowed for the slave mode exec only. 


Register Description 
XO O = Privileged Primitive code number 
X1 O1 = Set BAR Primitive 
X2 AFT pointer for segment 
X3 BAR to be set 
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Destroy Scratch File Micro Primitive (Slave Executive Only) 


This Micro Primitive (privileged) releases any disc space or page 
table space allocated to the file. The file length, allocation and 
the disc address fields in the AFT are cleared and the disc and page 
table bits in the flag word are also cleared. The AFT entry is not 
destroyed by this primitive - that is done by the Slave Exec. 


Register Description 
X0 00 = Privileged primitive 
Xi 02 = Destroy Scratch File Micro Primitive 
X2 Slave Trap address 
X6 Slave Address of AFT of file 
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Update Micro Primitive (Slave Executive Only) 


The Update Micro Primitive is used in the course of the non- 
privileged update primitive (25). If the file has a page table and 
it is in core and has been changed, the page table is written out 
to the page table file. In any case, at the close of the primitive 
the file will not have a page table in core. If the file has a new 
page table and the global switch GSG2 is set, then the bit map of 
the page table file is written out. If the file has new disc 
allocation and the global switch G$Gl is set, then the dise bit map 
is written out. In any case, GS$G1 and G$G2 will be clear after the 
primitive has been completed. Some of the bits of the flag word 
are cleared but the AFT entry is otherwise untouched. 


Register Description 
X0 00 = Privileged Primitive Code Number 
X1 03 = Update Micro Primitive 
X2 Slave Trap Address 
X6 Slave Address of AFT of file 
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I/O Cleanup Micro Primitive 


This routine is called by the I/O Cleanup Routine of the process 
terminator. It transfers control to the appropriate device cleanup 
routine. 


Register Description 
XO O = Privileged Primitive code number 
Xl O4 = I/O Cleanup Micro Primitive 
Xe Pointer to process table entry 
X3 Slave address of outstanding operation eritry 
X4 Slave address of AIT entry 
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Deallocate Drum File Micro Primitive (Slave Executive Only) 


The Deallocate Drum File primitive deallocates a logically contiguous 
part of a drum file beginning at the specific logical file address 
and continuing for as many units as specified. If the unit count 

is negative all of the file past the logical file address will be 
deallocated. 


Register Description 
X0 00 = Privileged Primitive code number 
Xl 05 = Deallocate Drum File Micro Primitive 
X2 Slave trap eddress 
X6 Slave address of AFT of file 
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Setup Fault Vector Primitive Code = 1 
CETFV TRAP, CORELOC 


The Setup Fault Vector Primitive is used by a slave process to 

declare the location of it's slave fault vector. If the declared 
location, 'CORELOC', is out of bounds then the process is trapped 

at 'TRAP' with an error return. Otherwise, the new slave fault vector 
location is established in the state vector and the indirect fault 
vector is setup to point to the new fault vector location. 


Register Parameter Description 
XO (Implicit ) 1 = Setup Fault Vector Primitive 
X1 TRAP Trap location 
X2 CORELOC Location of slave fault vector in slave 
program 


STATUS RETURN WORDS 


Word 1 
18 - 45 Logical Status Code 


O successful operation 
1 location of slave fault vector out of bounds 
2 upper portion of slave fault vector out of bounds 


Format for the Slave Process Fault Vector 


The slave process fault vector has a word pair for each of the 16 


faults. The order of the faults are the same as in the hardware fault 
vector. : 


The format for a word pair is: 


Word 1 Storage for the IC and indicators which are 
in effect when the fault occurs. 


Word 2 First instruction of the slave process fault 
handling routine. 


Default mode 
If the slave process runs in default mode (no slave fault vector 


declared), the process is aborted if a fault occurs, except for a 
MME fault or Timer Runout. 
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Setup Fault Vector Primitive (Continued) 


Example of Coding for Fault Vector 


FLOC NULL 
DEC O 
TRA SDFFT O = Shutdown Fauit 
DEC ) 
TRA MEMFT 1 = Memory Fault 
DEC O 
TRA MME 2 = Master Mode Entry 
DEC 6) 
TRA FIGFT 3 = Fault Tag. Fault 
DEC 0 
TRA TROFT 4 = Timer Runout Fault 
DEC @) 
TRA CMDFT 5 = Command Fault 
DEC 0 
TRA DRLFT 6 = Derail Fault 
DEC O 
TRA LUPFT 7 = Lockup Fault 
DEC O 
TRA CONFT 8 = Connect Fault 
DEC O 
TRA PARFT 9 = Parity Fault 
DEC @) 
‘TRA IOCFT 10 = Illegal Op Code Fault 
DEC @) 
. TRA ONCFT 11 = Operation not Complete Fault 
DEC O 
TRA SUPFT 12 = Startup Fault 
DEC O 
TRA OVFFT 13 = Overflow Fault 
DEC O 
TRA DCKFT 14 = Divide Check Fault 
DEC O 
TRA EXEFT 15 = 


Execute Fault 
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Setup Fault Vector Primitive (Continued) 


Note on the Indirect Fault Vector 


The Indirect Fault Vector is a block of code maintained by the system 
executive for passing control from the hardware fault vector to the 
appropriate entry in the slave process fault vector. 


The indirect fault vector is maintained in the Run-A-Program working 
area and is modified to point to the slave process fault vector when 
the Set Fault Vector Primitive is issued. 


The indirect fault vector contains a word pair for each fault. The 
first word is a pointer to a corresponding word in the slave process 
fault vector. The second word is a -TSS- to the corresponding second 
word in the slave fault vector. 


The indirect fault vector, therefore, points to the location in the 
slave fault vector where the IC and indicators are to be stored by the | 
master mode executive. It also enables control to be returned in 

slave mode to the user program. 


Example: 


\ 


‘The system macro which calls the Set Fault Vector Primitive is 


SETFV MACRO 


LDXO 1,DU Set Fault Vector Code Number 
LDX1l #1 | TRAP 

LDX2 #2 CORELOC 

MME O Issue the Primitive 

ENDM 


The macro call 
SETFV (TRAP,DU), (FLOC,DU) 


establishes a fault vector at FLOC (see previous page for typical coding 
at FLOC). The trap routine is located at TRAP. 
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Setup Squeeze Mode Primitive Code = 2 
SETSQ TRAP, LOCTBL 


The Setup Squeze Mode Primitive initializes the Squeze Mode Table in 
the state vector of the process and computes the effective base 
register settings for the process when it enters squeze mode. 'LOCTBL' 
is the location of the squeze mode mapping table. If the parameters 
are in range, a successful trap to location 'TRAP' is made. Otherwise, 
an unsuccessful trap is returned. The process remains in normal mode 
until the squeze primitive is issued. 


Register Parameter Description 
XO (Implicit) 2 = Set Squeze code number 
X1 TRAP Trap location 
X2 LOCTBL Location of Squeze Mapping Table 


STATUS RETURN WORDS 


Word 1 
18 - 35 Logical status code 
O successful operation 
1 squeze table out of bounds 
_ 1 error in segment specification for squeze mode 
» Word 2 
0- 17 Number of segment in error (if this was cause of 


- error ) 
The Squeze Mapping Table has the following form 


ZERO O,MAPO 
ZERO O,MAPL 
ZERO 0,MAP2 
ZERO O,MAP3 
VFD 18/ORGO, 1/WP, 1/0, 16/LENO 
VFD 18/ORG1, 1/WP, 1/0, 16/LEN1 
VFD 18/ORG2, 1/WP, 1/0, 16/LEN2 
VFD 18/ORG3, 1/WP, 1/0, 16/LEN3 


where: 


MAPI = Base register mapping for segment I. (Note that in the squeze 
mode table, the index in the table gives the base register in 
normal mode and MAPI the base register that it maps into in 
Squeze mode). 
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Setup Squeze Mode Primitive (Continued) 


ORGI = Origin in Segment I for squezed bar (relative to segment starting 


address ) 

LENI = Length (in words) or the bar setting for Segment I in squezed 
mode. 

WP = 


Write protect bit (1 = no writes allowed) 


Example of initial settings for squeze mapping table: 


DEC 2 Seg O normal mode maps to seg 2 
DEC 3 Seg 1 normal mode maps to seg 3 
DEC 0 Seg 2 normal mode maps to seg 0 
DEC 1 Seg 3 normal mode maps to seg l 


squeze 
squeze 
squeze 
squeze 


mode 
mode 
mode 
mode 


The remainder of the table sets up the origin and length of each segment 


in squeze mode. 


OCT 000000400000 SEG 0, ORG = 0, LEN = 0, WP 
OCT 000000400000 SEG 1, ORG = O, LEN = O, WP 
OCT OOOCO0000000 SEG 2, ORG = O, LEN = O, No WP 
OCT OQOOCOQ000C00O0 SEG 3, ORG = O, LEN = 0, No WP 
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Enter Squeeze Mode Primitive Code = 3 
SQUEZ TRAP, REGS, IC 


The Enter Squeze Mode Primitive (also called SQUEZE) will reset the 
base address registers to those previously established by the SETSQ 
Primitive, load the registers from 'REGS', and transfer to 'IC'. 

('Ic' contains the IC and indicators to be used on entry to the squezed 
program). 


The process will trap at location 'TRAP' on completion. If squeze mode 
is not set up, then the process is trapped with error return of four (4). 
If the register load area is out of bounds, then the process will be 
trapped with error return of one (1). If the transfer address is out 

of bounds, then a memory fault will occur. 


Register Parameter | Description 
XO (Implicit) 3 = Enter Squeze Mode Primitive code number 
X1 TRAP Trap location 
X2 REGS Location of register settings 
A IC Instruction counter and indicators 


STATUS RETURN WORDS 


JY 


Word 1 
EO. 295 Logical status code 


QO successful operation 
4 squeze mode not set up 
1 register load area out of bounds 


Trap Handling for Squeze Mode Programs 


Consider the sequence of events that occurs when a process running in 
squeze mode is interrupted. If no traps have returned during the time 
of interrupt, control is returned to the slave process which continues 
its execution in squeze mode. If, however, a trap has returned (the 
trap must be for the unsquezed process) a squeze mode bit (bit 35) is 
set in the indicators which are stored in the trap exit location. In 
addition, the process mode is changed from squeze to normal and the base 
address registers set to their unsquezed values. The outstanding 

traps are linked in the manner described in sectionII and control is 
returned to a trap routine in the unsquezed program. The unsquezed 
program utilizes the squeze bit, which will be set in the exit location 
of the last trap routine in the linked sequence of trap routines, to 
identify the return address in the squezed program. The standard return 
from a trap routine, RET to the exit location, cannot be used in this 
case. Instead, a SQUEZE to the return address must be issued. 
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Read Primitive 


Code = 4 


READ TRAP, FRN, CORELOC,N,MODE 


The Read Primitive (Sequential Read) transfers the next 'N' elements 
from the file 'FRN' to the area in the slave program which starts at 
Data is transferred to core from the file element located 
by the Current Read Pointer. 


"CORELOC'. 


Register 
XO 


X1 
X2 
X4 


X5 


X6 


Parameter 


(Implicit) 
TRAP 


MODE 


STATUS RETURN WORDS 


Word 1 
0-17 


18 - 35 


Word 2 
QO - 35 


Description 


4 = Read Primitive code number 
Trap location 
File reference number 


Core memory location indicating the first word 
in a user slave area for a data transmission. 


Number of elements in the referenced file 
which are to be transmitted. The actual ele- 
ment size is specified when the file is opened. 
(See I/O Primitive Overview for definition of 
element). 


An indicator specifying what mode the trans- 
mission is to be made in. This parameter 
varies from device to device and is summarized 
in Appendix B. 


The number of units transferred in a successful 
1/0 operation 


Logical Status Code for I/O Primitives (See 
Appendix A-1). 


Device dependent physical status. See appropri- 
ate device manual for interpretation. 
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Read Primitive (Continued) 


The Updating and Determination of the Current Read Pointer For Disk 
or Drum Files 


The starting location for the (Sequential) Read Primitive is specified 
by a current read pointer which is initialized to zero whenever a file 
is opened. If a file is shared by several users, each user has his 
own read pointer. : 


The current read pointer is updated each time a successful sequential 
read is executed. However, the pointer may or may not be updated if 
the read is in error. (To determine the read pointer setting in this 
case, issue the Set Pointer Primitive for the file in question with 
the number parameter set to zero. The read pointer setting will be in 
the lower half of Status Word 2). 


If the number of elements read exceeds the current file length, a 
successful return will be given with the read pointer being set at the 
end of the file. (That is, the read pointer is not extended past the 
end of the file, although the read itself may so extend.) This condi- 
tion can be detected by comparing the number of units specified for 
transfer with the number of units actually transferred (returned in 
the upper half of Status Word 1). 


The issuing of a read when the current pointer is set to the end of 
the file will result in an -end of file- error return. 


Note that the read pointer is not modified when a random read is 
issued. For disc and drum files the read pointer can be shifted by 
the set pointer primitive. For magnetic tape files the pointer can 
be shifted by issuing the read with an appropriate mode. (See 
Appendix B for usage of mode parameter with magnetic tapes). 
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Append Primitive Code = 5 
APPEND TRAP,FRN,CORELOC ,N ,MODE 


The Append Primitive (Sequential Write) writes 'N' elements from core 
memory starting at 'CORELOC' into the file 'FRN'. The element loca- 
tion in the file at which writing starts is piece by the end of 
file pointer. 


Register Parameter Description 
XO (Implicit ) 5 = Append Primitive code number 
X1 TRAP Trap location 
X2 FRN File reference number 
X4 CORELOC Core memory location indicating the first word 


in a user slave area for a data transmission 


X5 N Number of elements in the referenced file 
which are to be transmitted. The actual ele- 
ment size is specified when the file is opened. 
(See I/O Primitive Overview for definition of 
element). 


x6 MODE An indicator specifying what mode the trans- 
mission is to be made in. This parameter 
varies from device to device and is summarized 
in Appendix B. 


STATUS RETURN WORDS 


Word 1 
0-17 The number of units transferred in a successful 
I/O operation 
18 - 35 Logical Status Code for I/O Primitives (See 
Appendix A-1). 
4. 
Word 2 
O - 35 Device dependent physical status. See 


appropriate device manual for interpretation. 
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Append Primitive (Continued) 


End of File Pointer (Current lenght of file) 


The -End of File Pointer- locates the starting element in a file for 
the next Append (Sequential Write). When a scratch file is first 
opened the End of File Pointer locates the beginning of the file; 
that is, element zero. 


When a catalogued file is opened the End of File Pointer locates the 
element following the last one which had been written into the file. 
There is only one End of File Pointer for a given file, so that 
Appends by several users sharing a file always start at the location 
determined by the current setting of the End of File Pointer. 


The End of File Pointer is updated whenever a successful Append is 
executed and also by successful random writes if the last element of 
the random write exceeds the current pointer setting. 


The End of File Pointer may also be updated by an unsuccessful Append 
if a hardware error occurs. The current position of the End of File 
Pointer may be obtained by issuing the Request Status Primitive, the 
position in elements being returned in the status word. The End of 
File Pointer may be reset to zero by issuing the Scratch Primitive. 
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Read Random File Primitive Code = 6 


RRF TRAP, FRN, FILELOC, CORELOC,N 


The RRF (Read Random File) Primitive transfers the 'N' elements from 
location 'FILELOC' in file 'FRN' to the area in core memory which 


Starts at 
files. 


Register 
XO 


X1 
X2 
X3 


X4 


X5 


"CORELOC'. 


Parameter 
(Implicit) 
TRAP 

FRN 
FILELOC 


CORELOC 


STATUS RETURN WORDS 


Word 1 
0-17 


1S.-=° 35 


Word 2 
O - 35 


This primitive can only be used with drum or disk 


Description 
6 = Read Random File Primitive code number 


Trap location 
File reference number 


An integer, representing the element number 
within the file at which a data transmission 
begins. This parameter is only employed for 
random operations. 


Logical core memory location indicating the 
first word in a user slave area for a data 
transmission. 


Number of elements in the referenced file which 
are to be transmitted. The actual element 

size is specified when the file is opened. 

(See I/O Primitive Overview for definition of 
element). 


The number of units transferred in a success- 
ful I/0 operation 


Logical Status Code for I/O Primitives (See 
Appendix A-1). 


Device dependent physical Status. See 
appropriate device manual for interpretation. 
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Write Random File Primitive Code = 7 


‘RF TRAP, FRN, FILELOC , CORELOC ,N 


The WRF (Write Rendom File) Primitive writes 'N' elements from core 
memory starting at 'CORELOC' into the file 'FRN'. The element in the 
file at which writing starts is specified by 'FILELOC'. This primitive 
can only be used with drum or disk files. 


Register 
XO 


X1 
X2 
X3 


X4 


X5 


© 


Parameter 


(Implicit ) 
TRAP 

FRN 
FILELOC 


CORELOC 


STATUS RETURN WORDS 


Word 1 


joe 7 


18 - 35 


Word 2 


O - 35 


Description 
7 = Write Random File Primitive code number 


Trap location 
File reference number 


An integer, representing the element number 
within the file at which a data transmission 
begins. This parameter is only employed for 
random operations. 


Logical core memory location indicating the 
first word in a user slave area for a data 
transmission. 


Number of elements in the referenced file 
which are to be transmitted. The actual 
element size is specified when the file is 
opened. (See 1/0 Primitive Overview for 
defintion of element). 


The number of units transferred in a success- 
ful 1/0 operation. 


Logical Status Code for I/O Primitives (See 
Appendix A-1). 


Device dependent physical status. See 
appropriate device manual for interpretation. 


VI-22 


Scratch Primitive Code = 8 


SCR TRAP,FRN,FILELOC 


The Scratch Primitive destroys all data in the file 'FRN' by releasing 
all storage owned by the file and setting the current Read and End of 
File Pointers to the start of the file if FILELOC = 0. The file is 
not closed by this operation. Otherwise, the file is scratched 
starting from the element specified by FILEILOC. 


Register Parameter _ Description 
XO (Implicit) 8 = Scratch Primitive code number 
X1 TRAP Trap location 
X2 FRN File reference number 
X3 FILELOC Element in file to scratch from 


STATUS RETURN WORDS 


Word 1 

0-17 Not specified 

18 - 35 Logical Status Code for I/O Primitives 

. (See Appendix A-1). 

Word 2 

0 - 35 Device dependent physical status. See 

appropriate device manual for interpretation. 
REMARKS 


This primitive can beused only on disk or drum files. 
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Set Pointer Primitive Code = 9 


SPTR TRAP, FRN,N 


The Set Pointer Primitive shifts the current Read Pointer by 'N' element 
for file 'FRN' which is located on the disc or drum. (For files 
corresponding to magnetic tapes, positioning is accomplished by using 
the Read Primitive with an appropriate mode). 


The process is trapped at location 'TRAP' upon completion with the new 
setting of the Read Pointer, expressed in elements, in the lower nalf 
of Status Word 2. Error returns will be made if the process does not 
have read access for the file or if the pointer is shifted beyond the 
maximum file length or file beginning... 


Register Parameter Description 
XO (Implicit ) 9 = Set Pointer Primitive code number 
Xl TRAP Trap location 
X2 FRN File reference number 
X3 N The number of elements which are added to or 


subtracted from the current setting of the 
read pointer. (For subtraction the number is 
expressed in two's complement form). 


STATUS RETURN WORDS 


Word 1 
O- 17 | Not specified 
18 - 35 Logical Status Code oe I/O Primitives (See 
Appendix A-1). 
Word 2 
O- 17 Not specified 
18 - 35 New setting of Read Pointer (in elements) 
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Request Status Primitive Code = 10 


RQST TRAP,RN 


The Request Status Primitive returns information relating to file (or 

event) 'RN' in the Status Return Words. The Process traps at location 
trap upon completion with the status words containing the information 

summarized below. 


Register Parameter Description 
XO (Implicit) 10 = Request Status Primitive code number 
X1 TRAP Trap location 
X2 RN File or event reference number 


STATUS RETURN WORDS 


Word 1 
0- 17 Number of bits/element (files) 
Current count (events) 
18 - 35 Logical status code for I/O primitives 
(See Appendix A-1). 
Word 2 k 
e-5. 32 i 
0-17 File length in units (files) 
Queue length (events) 
18 - 20 Not Used 
21 - 25 Access mask (files) (RWAEL) 
23 - 25 Access mask (events) (NCL) 
26 Not Used 
27 - 35 Device ID 
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Request Date and Time Primitive Code = ll 


RQDT No arguments 


The Date and Time Request Primitive returns the date in the A-register, 
the time of day in the Q-register, and returns control to the location 
of the MME plus one. 


Register Parameter Description 
X0 (Implicit) ll = Request Date and Time Primitive code 
number 


STATUS RETURN WORDS 


None since no trap routine. 


Format for Date and Time 
DATE Expressed as BCD characters (i.e., 0007010606108 for 7/16/68). 


TIME 33 bit number representing time since midnight in 64's of a 
millisecond. (Note: this can exceed 24 hours). 
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Reguest Elapsed Run Time Primitive Code = 12 


RQERT No arguments 


The Request Elapsed Run Time Primitive returns the elapsed run time 
of the process, right justified in the Q-reg. The units are 1/64 

of milliseconds. It returns the count of resources used by the pro- 
cess in the A-reg. This primitive has no trap routine. Upon 
compietion control is returned to the location of the MME plus one. 


Register Parameter Description 
XO (Implicit) 12 = Request Elapsed Time Primitive Code 
Number 


STATUS RETURN WORDS 
None (since no trap routine) 
Other Return Information 
A Resource count in resource units 


Q Elapsed run time (1/64 milliseconds), right justified. 
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Spawn Primitive Code = 13 
SPAWN TRAP, PLOC , LENGTH,ORIG 


The Spawn Primitive creates a new process (a son) which will be 
executed in parallel with its creator (the father). The father 
specifies the information pertaining to the son in a parameter 
list starting at 'PLOC'. The number of words in the list is given 
by 'LENGTH'. When the son has been created, the father is trapped 
at 'TRAP' with the son's reference number in the upper half of 
Status Return Word O. 


Register Parameter Description 
XO (Implicit) 13 = Spawn primitive code number 
X1 TRAP Trap location 
X4 PLOC Location of parameter list 
X5 LENGTH Length of parameter list 
Q ORIG Originator (for special SPAWN) 
STATUS RETURN WORDS 
Word 0 
0-17 Event reference number for process event just 
spawned (i.e., son's reference number). 
18-35 Logical status code 


O successful operation 
12 argument list must be at least 14 words long 
segment zero (0) must be specified 
illegal segment specification 
invalid access on segment specification 
illegal file reference number 
only a file or event may be passed 
resources not available 


O ON AW 


REMARKS 
The number of files and events passed to the spawned process wiil 
appear in X-register zero (0) on initial entry to the process. 


If a user is trapped with status code = 9, he should retry the 
command. 


The son's reference number is also referred to as the process event 
number (See ‘Special Events' in Section V). 
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Spawn Primitive (Continued) 


Format of Parameter List 


Words Function 
0-7 Initial register settings for son 
8 Time limit for process in 64's of a msec. 
A negative number gives an infinite time limit 
9 Option switches 


Bits 14-17 Priority curve (O=default, same 
priority as father) 


Bit 32 Indicates core end segments exist 


Bit 33 On if process is to know about itself, 
as reference number one greater than 
the number handed on by the father, 
(N+1). 


Bit 35 If on, process will be given a timer 
runout fault. If it runs out of time, 
it will get 16 secs. more. 


10 Son segment zero (0) specification 

11 Son segment one (1) specification 

12 _ Son segment two (2) specification 

(13 Son segment three (3) specification 
‘14-N Files and events to be passed to the son 


(i.e., the specification of the son's KIT). 


Segment Specification 
One (1) word per segment 


Bits 0-17 File Reference or Segment Number 
Bit 18 Write Protect 

Bit 32 Core end segment 

Bits 34-35 =0 for void segment 


=1 for spawn from parent's segment 
=2 for spawn from parent's file 


KFT Specification for File or Event 
One (1) word per file or event or 2 words for fixed state 


Bits 0-17 File or event reference number in father's KIT 

Bit 20 Fixed state event - if on next word contains state 

Bits 31-35 Access granted to son for file (Read, Write, Append, 
Execute, Lock) 

or 

Bits 33-35 Access granted to son for event (Notify, Cause, Lock) 
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Spawn Primitive (Continued) 


KFT Specification for File or Event (Continued) 


The order of the word in the KIT specification will determine 
the item reference number seen by the son. (i.e., the item 
specified by Word 14 will be reference number 0 in the son's 
KIT, that specified by word 15 will be reference number 1, 
etc.) The access mask will be ANDed with the father's access 
mask to determine the son's access to the file. 


In the case of a special spawn by a privileged process, Q 

will contain the originator's ID returned by the open workirg 
directory primitive. Six words, originator's name, are 

stored after the buffer, but they are not counted in the length. 
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Additional Information on SPAWN 


1) 


2) 


5) 


6) 


7) 


8) 


All RN's which are specified in the parameter list are with 
respect to the father process. 


The parameter list must be at least 14 words to specify the 
initial register settings and the contents of all four segments. 
The remaining words which specify the son's files and events are 
optional. 


The son's process starts execution at location zero of segment 
zero. Hence, segment zero must be specified and correspond to an 
executable procedure. 


Segments other than segment zero may be void. Void segments are 
specified by setting bits 34-35 zero in the corresponding segment 
specification word. 


The father must have execute access on a file which he spawns as 
segment zero for his son and read access for files which are 
Spawned as segments one, two, or three. 


The father can make a segment write inhibit by setting the write 
protect bit in the corresponding segment parameter word. If the 
segment is spawned from a write-inhibit file or from a father's 
segment which is write inhibit, the bit will be set on regardless. 


The access mask for a son's file will be -ANDED- with the father's 

access to determine the son's resultant access to the file. Hence, 
the son is not allowed an access to a file that the father does not 
have. 


If the file that is spawned in segment zero has the owner's access 
privilege ON then the son will be allowed to use the owner's ID 

associated with that file in performing file operations. Note =: 
that the owner's access switch is set when the file is catalogued. 
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Terminate Primitive Code = 14 
TERM no arguments 


The Terminate Primitive terminates the execution of a process 
and liquidates the resources used by the process. The following 
things happen: 


Event trap blocks are returned to AIT free list 
Segments are closed 

State vector is closed 

Process event is activated 


Register Parameter Description 
XO (Implicit) 14 = Terminate Primitive identifier 
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Pause Primitive Code = 15 
PAUSE No arguments 


The Pause Primitive blocks the further execution of the current process 
if: 


1) There are no traps on 2ene outstanding trap queue for the process, 
and 


2) If there is at least one trap for an I/O, file, or event primitive 
which has not returned. 


If these conditions are satisfied, the process will remain blocked 
until one of the I/O, file, or event traps return. At this time, the 
process resumes execution at the trap location. 


If neither condition is satisfied, the corresponding Pause results in 
the simulation of a timer runout fault. That is, the process is 
rescheduled. In such a case, the process will resume execution at the 
instruction following the Pause MME the next time the scheduler runs 
the process. 


Register Parameter Description 
XO (Implicit ) 15 = Pause Primitive code number 


Notes on the Use of 'PAUSE' 


When a process no longer has useful work to do (i.e., it is awaiting 
the completion of some operation by the executive) it should issue 

the 'PAUSE' Primitive instead of sitting in a wait loop. This places 
the process on a queue of blocked processes and enables another 
process to utilize the processor. The process which issued the 'PAUSE 
will be rescheduled when the trap which is being awaited is returned. 


The following code illustrates how the Pause Primitive can be 


incorporated in a 'WAIT!' macro, which would be issued whenever a 
process has no useful work to perform. 
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Pause Primitive (Continued ) 


WAIT MACRO 
REM 
INHIB SAVE ,ON Prevent interrupts in middle of test loo: 
SZN TRAP+2 Test exit word to see if trap has return 
TNZ K+4 Trap has returned-Exit and continue pro- 
cessing 
LDXO 15,DU Otherwise issue PAUSE primitive 
MME 0 
TRA Kah Go back if control reaches here 
INHIB RESTORE 
ENDM 
STZ TRAP+2 Set exit word to zero as a flag 
OPEN C Dewees Issue Open primitive 
WAIT Pause and wait for trap to return 
TRA RESUME Continue processing 


A Trap routine, located at 'TRAP' which can be used with the above 
macro is: 


TRAP NULL 
DEC 0 Storage for Status Word 1 
DEC 0 Storage for Status Word 2 
DEC 0 Storage for trap routine exit location 
RET TRAP+2 Return to process via standard trap retw 


Further Notes on the Use of PAUSE 


It is important to note that the Pause Primitive will cause a process 


‘to go in a blocked state only for a subset of the 1/0, File, and 


Event primitives. 


For the remaining primitives, which include all of the control primi- 
tives, the PAUSE results in the process being rescheduled. If a user 
desires to go blocked in this case, he Sour precede the PAUSE by a 
Notify Event primitive. 


Note that when a process is blocked it becomes active again after the 
occurrence of the I/O or event trap. Control returns to the process 

at the trap routine and continues in a manner determined by the trap 
routine coding. If each trap routine is terminated by a -RET WORD3-, 
control eventually transfers to the instruction following the PAUSE 

MME. Otherwise, control transfers to the indicated termination loca 
‘ion. | 
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Open Segment Primitive Code = 16 
OPSEG TRAP, SEGNUM, LENGTH 


This primitive opens a segment for use by the process. The process 
specifies the segment number and length desired. 


Register Parameter Description 
XO (Implicit) © 16 = Open Segment Primitive code number 
Xl TRAP Trap location 
X2 SEGNUM Segment number (0, l, 2, or 3) 
X3 LENGTH Desired segment length, in words. 


The segment length must be less than 200000 
octal or 65536 decimal. 


STATUS RETURN WORDS 


Word 1 
18 - 35 Logical status code 


O successful operation 

1 segment number out of range 
7 segment length out of range 
8 segment already opened 


The logical addresses associated with the starting location of each c 
the four segments are 


Octal O 


Segment O 

Segment 1 Octal 200000 
Segment 2 Octal 400000 
Segment 3 Octal 600000 
Example: 


OPSEG (TRAP,DU),(3,DU), (2048, DU) 


Since SEGNUM = 3, the logical starting address for the segment is 
600000 (octal). 


The segment opened contains 2048 (Mod 512) blocks of 512 words. 
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Close Segment Primitive Code = 17 
JLSEG TRAP, SEGNUM 


This primitive routine closes a segment for a process. The segment i; 
no longer available to the process, however, it may be available to 
other processes. 


Register Parameter Description 
XO (Implicit) 17 = Close Segment Primitive code number 
X1 TRAP Trap location 
X2 SEGNUM Segment number (0, 1, 2, or 3) 


STATUS RETURN WORDS 


Word 1 
18 - 35 Logical status code 


QO successful operation 

1 segment number out of range 
2 segment not known 

4 I/O activity in progress 
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Change Segment Length Primitive Code = 18 
CHSEG TRAP, SEGNUM, LENGTH 


The Change Segment Length Primitive changes the length of the segment 
specified by 'SEGNUM' to 'LENGTH'. 


Register Parameter. Description 
XO (Implicit) 18 = Change Segment Length Primitive code numb: 
X1 TRAP Trap location 
X2 SEGNUM Segment number (0, 1, 2, or 3) 
X3 LENGTH Desired length (words) 


STATUS RETURN WORDS 


Word 1 
18 - 35 Logical status code 


successful operation 

segment number out of range 

segment not known 

segment length out of range 

I/O activity in progress 

segment is write inhibit 

requested segment length equals zero 


NWN F™ WM FO 


~ Remarks 
Segment lengths are defined in blocks of 512 words. The executive will 


round off the requested length to the next 512 word block, if this 
length is not a multiple of 512. 
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Exchange Two Segments Primitive Code = 19 
EXSEG TRAP, SEGINUM, SEG2NUM 


This primitive exchanges the segment numbers of two specified segment: 


Register Parameter 


XO (Implicit) 
X1 TRAP 

Xe SEG1NUM 
X3 SEG2NUM 


STATUS RETURN WORDS 


Word 1 
1G) 55 


Description 


19 = Exchange Segments Primitive identifier 
Trap location 

Segment 1 number (0, 1, 2, or 3) 

Segment 2 number (Oy Ly 2).6r° 3) 


Logical status code 


O successful operation 
1 number for segment 1 is out of range 
1 number for segment 2 is out of range 
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Open Primitive 


OPEN TRAP, 


Code = 20 


TREE NAME,TREE SIZE, BEHALF, ELSIZE,ACCESS 


The OPEN primitive makes the catalogued item specified by ‘TREE NAME' 
active and known to the process. The reference number (RN) and other 
information relevant to the item is returned in the status words. 
Most subsequent references to the item will be in terms of its 
reference number. 


Register 


X0 
X1 
X4 


X5 


X6 


Parameter 


(Implicit) 
TRAP 
TREE NAME 


TREE SIZE 


BEHALF 


ELSIZE 


ACCESS 


Description 


20 = Open Primitive code number 


Trap location 


Location of the tree name of the item being 
opened 


Number of words in the tree name (a multipl 
of six) 


Behalf indicator - Bit 17 
1 = Originator (normal setting) 
O = Owner 


The element size, expressed in bits, in 
which subsequent data transactions involvin 
this file are to be expressed (not required 
for events). . 


Requested access for item 
Bit 31 - Read (File) 
Bit 32 - Write (File) 
Bit 33 - Append (File) Notify (Event) 
Bit 34 - Execute (File) Cause (Event) 
Bit 35 - Lock (File,Event) 
If this word is set to zero, the program 
will receive all the accesses to the item 
that it is allowed. The accesses granted 
are returned in Status Word 2. 
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Open Primitive (Continued) 


STATUS RETURN WORDS 


Word l 

0-17 File or Event reference number 

18-35 Logical Status Code (See Appendix A-2) 
Word 2 

- j length 1 pe Fil 

uaa tense roof ieietenteles 3 seit), 

20-25 Access mask (right justified) 

26 | Not used 

27-35 Device ID (See Fig. III-1). 


Tree Name Conventions for Opening Device Files 


The tree name of a device file contains two levels. These levels 
correspond to the identifier 'DEVICE', and the name code of the device 
type and number of the device. (If the identifier 'AA' is used, the 
next available free device will be supplied). The two words assigned 
to the password at each level are filled with ASCII blanks. 


Device Name Code Device Type 
DI Disc 
DR Drum 
OP Operator's Console 
CP Card Punch 
LP Line Printer 
CR Card Reader (see "Communication With Card 
Reader From the Listener") 
TT Teletypewriter 
CL Communication Line Multiplexer Channel 
MT Magnetic Tape 


Example of treename coding for any magnetic tape (tree name = DEVICE/MTAA) 
ACI 6,DEVICE 2 Device Identifier 
ACI 6,MTAA Code Name for any Card Reader 

Example of treename coding for tape number 5 (tree name = DEVICE/MTO5) 


ACI 6,DEVICE a Device Identifier 
ACI 6,MT05 Code Name for Tape Handler 5 
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Open Primitive (Continued) 


REMARKS 


1) 


2) 


3) 


Each time the OPEN primitive is issued, a new reference number for 
the specified file is returned. Hence, a given process may open 
the same file more than once. 


Several processes may open the same file during a given time interval. 
The reference number returned by the OPEN primitive is private to 

to the process which issued the OPEN; that is, the reference number 

is an entry in the Known Item Table for the process. Global 
information about the file is maintained in a single Active Item 
Table (AIT) entry to which all of the KIT entries point. 


Each device, except the operator's console, can only be opened by 

one process at a time. Subsequent processes trying to open it before 
the first process has closed will receive logical error status 3 
(software busy). They can use the deallocate event to wait for its 


release. 
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Close Primitive Code = 2l 
CLOSE TRAP, RN 


The item whose reference number is 'RN' is made unknown to the process 
When the item is closed, its attachment court is decremented by one. 
The global entry for the item (in the Active Item Table) is not remove 
until the attachment count reaches zero. 


Register Parameter . Description 
XO (Implicit) 21 = Close Primitive code number 
X1 TRAP Trap address 


Xe RN File or event reference number 


STATUS RETURN WORDS 


Word 1 
0-17 Undefined 
18-35 Logical Status Code (See Appendix A-2) 
REMARKS 


If a scratch file is closed with attachment count zero, the storage 
allocated to the scratch file is returned to the free storage pool. 
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Catalog Primitive Code = 22 
“ATLOG TRAP, RN,TREE NAME,TREE SIZE,SWITCH, UACCESS , OACCESS 


The scratch item whose reference number is 'RN' is catalogued with the 
tree name specified by 'TREE NAME'. A segment spawned from a catalogued 
file will be write inhibit if the write inhibit indicator in 'SWITCH' 

is set on. 


Register Parameter _Description 
XO (Implicit) 22 = Catalog Primitive code number 
X1 TRAP Trap location 
X2 RN Reference number of the file or event being 
catalogued 
X4 TREE_NAME Location of the tree name of the catalogued ite 
X5 TREE SIZE Number of words in tree name (a multiple of six 
X6 SWITCH Bit 17 - Behalf Indicator 
Originator's behalf (normal setting) 


— 
tool 


Owner's behalf 


Bit 16 - Owner's Access Privilege Indicator 
(Files Only). See Remarks. 


QO = Access to owner's ID not granted (normal 
setting) 
1 = Access granted to owner's ID 


Bit 15 - Write Inhibit Indicator (Files Only) 
O = Segment spawned from file will not be 
write inhibit 


1 = Segment spawned. from file will be write 
inhibit (See Remarks) 
A UACCESS Universal Access 


Q OACCESS Owner's Access 
| Bit 31 - Read (File) 


Bit 32 - Write (File) . 

Bit 33 - Append (File) Notify (Event) 
Bit 34 - Execute (File) Cause (Event) 
Bit 35 - Lock (File,Event) 
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Catalog Primitive (Continued) 


STATUS RETURN WORDS 


Word 1 

0-17 Undefined 

18-35 Logical Status Code (See Appendix A-2) 
REMARKS. 


1) If the owner's access privilege switch is set on, any user with 
execute access on this file will be allowed the use of the file 
owner's id when the user spawns this file as segment zero of a 
process, (i.e. when the file is spawned as segment zero the user 
doing the spawn will have all access privileges that the file owner 
has including access to the owner's entire directory structure). 
This switch should rarely be set on if the owner desires to protect 
his files. 


If owner's access is granted for a file, the owner will be protected 
only if control cannot be transferred outside of the procedure that 
this file spawns into. 


2) If the write inhibit indicator is set on, the segment which is 
spawned from this file will be write inhibit , and the file 
itself will have its WRITE and APPEND access bits set off. That 
is, neither write nmr append operations to the file will be allowed. 
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Destroy Primitive Code = 23 


/ 


NESTRO TRAP,TREE NAME,TREE SIZE, BEHALF 


The item named by 'TREE_NAME' is uncatalogued (i.e. its directory entry 
is destroyed). If the item is currently active, it is transformed into 
a scratch item. 


Register Parameter Description 
XO (Implicit) 23 = Destroy Primitive code number 
X1 TRAP Trap location 
X4 TREE NAME Location of tree name of item to be destroye 
X5 TREE SIZE Number of words in tree name 
X6 BEHALF 1 = Originator's behalf (normal setting) 


O = Owner's behalf 


STATUS RETURN WORDS 


Word 1 
O-17 Undefined 
18-35 Logical Status Code (See Appendix A-2) 
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Jpen Scratch Primitive 
"ENS TRAP, DEVID,MAXLEN,ELSIZE 


[he Open Scratch Primitive opens a zero length, scratch (uncatalogued) 
file on the device specified by 'DEVID' (disc or drum). The File 
Reference Number of the file is returned in the status word. Subsequent 
data transactions involving this file will occur in units specified by 
'ELSIZE'. The maximum file length is given by 'MAXLEN' and the type of 
error recovery by ‘STATUS'. The scratch file is granted all of the 
access attributes. 


Register Parameter Description 
X0 (Implicit) 24 = Open Scratch Primitive code number 
X1 TRAP Trap Location 
X4 DEVID Device Identification of device on which 
scratch file is to be opened 
l = Disc 
2 = Drum (access restricted to privileged users) 


X5 MAXLEN The maximum file length in elements. Attempts 
to access file outside this length will give 
an error return. 


X7 ELSIZE Element size, expressed in Bits, in which all 
subsequent data transactions for the file are 
to be expressed. The number of bits must be 
an integral multiple of the unit size for the 
disc or drum (i.e. a multiple of 32*36=1152). 


If this field is set to zero, a default element 
size of 1152 bits (32 words) is set up. 


STATUS RETURN WORDS 


Word 1 
0-17 File Reference Number 
18 - 35 Logical status code (See Appendix A-2).. 
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Update Primitive Code = 25 
UPDATE TRAP, FRN 


The Update Primitive writes current information to the branch. It 
can be called previous to any close. A final close is no longer 
required to update information in the branch. 


Register Parameter Description 
X0 (Implicit) 25 = Update Primitive code number 
Xl TRAP Trap location 
X2 FRN File Reference Number 


STATUS RETURN WORDS 


0-17 Undefined 
18-35 Logical status code 
REMARKS 


An invalid file reference number or an attempt to update a scratch 
file will return with an error message. 
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Catalog Directory Primitive Code = 26 
wATDIR TRAP,T REE NAME,TREE SIZE, BEHALF, UACCESS , OACCESS 


An empty directory with name specified by an N level 'TREE NAME' is 
catalogued in the directory specified by the previous N-1 levels of 
'TREE NAME'. Only privileged users are allowed to catalog with 
N=1, since this corresponds to making an entry at the root level of 
the directory structure. 


Register Parameter Description 
XO (Implicit) 26 = Catalog Directory Primitive code number 
X1 TRAP Trap location | 
X4 TREE NAME Location of tree name of directory being cata- 
logued 
X5 TREE SIZE Number of words in tree name 
X6 BEHALF 1 = Originator's behalf (normal setting) 


nou 


O Owner's behalf 
A UACCESS Universal Access 
Q OACCESS Owner's Access 


Bit 31 READ - Read directory entries includi 
access control lists 


Bit 32 WRITE ~- Delete or modify specifically 
named entries 


Bit 53 APPEND - Add entries without changing 
existing entries 


Bit 34 EXECUTE - Can use directory for a tree 
search on a symbolic name 


STATUS RETURN WORDS 


Word 1 
0 - 17 | Undefined 
18 - 35 Logical Status Code (See Appendix A-2) 
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Write Access Control List Code = 27 
TRACL TRAP, BUFLOC, TREE NAME,TREE SIZE, BEHALF, BUFSIZE 


The Write Access Control List Primitive modifies the access control lis 
which is associated with a given file, directory, or event. The primi- 
tive either adds a new user entry to the list, modifies an existing 
entry, or deletes an existing entry. 


Several entries may be added with a given command. The name and access 
associated with each entry is defined in a five word block of informatix 
which is contained in a buffer of size 'BUFSIZE' which starts at 'BUFLO( 
The format for the five word entry is specified below. 


The primitive adds a new entry for a user if none exists previously. 
Otherwise, it modifies the existing entry. The executive stores status 
in each five word block if the operation is not successful. 


Register Parameter Description 
XO (Implicit) 27 = Write Access Control List code number 
X1 TRAP Trap location 
X3 BUFLOC Starting location of buffer in slave program 


which contains the five word blocks defining 
names and accesses to be written 


X4 TREE_NAME Location of the tree name of the file 
or event whose access is being modified 

X5 TREE SIZE Number of words in the tree name 

X6 BEHALF Behalf Indicator - Bit 17 


1 = Originator's behalf (normal setting) 
O = Owner's behalf 


X7 BUFSIZE Number of words in the buffer which contains 
the five word access control list blocks. The 
maximum size is 50 words and all intermediate 
sizes must be a multiple of 5. 


STATUS RETURN WORDS 


Word 1 
0 - 17 Not specified 
18 - 35 Logical status code (See Appendix A-2) 
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Format for the 5 Word Access Control List Block 


Words 1-4 
Word 5 


Bits 0-17 


Bit 29 


Bits 30-35 


\ 2EMARKS 


The name of the user as it appears in the root 
directory of the system catalog (i.e. the first 
level of the user's tree name). 


Reserved for storing additional status by the 
executive. The executive stores 777777, in this 
field if the access specified in this block has 

not been successfully written to the access control 
list. This occurs when the name specified in Words 
1-4 is not catalogued in the root directory. 


Erase bit. If this bit is set ON the previously 
defined entry for the named user will be deleted 
from the access control list. 


Access to be granted to the named user 
Bit 30 -- READ (file) 

Bit 31 -- WRITE (file) 

Bit 32 -- APPEND (file) or NOTIFY (event) 
Bit 33 -- EXECUTE (file) or CAUSE (event) 
Bit 34 -- LOCK (file,event) 

Bit 35 -- TRAP (not implemented yet) 


If the owner's name appears on the list, the owner's access will be 
changed in the branch. If the delete bit is on, the owner's access will 
be set equal to the universal access. 
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ame 
na 


Read Access Control List Code = 28 
RDACL TRAP, INDEX, BUFLOC, TREE NAME,TREE SIZE, BEHALF,NUMBER 


The Read Access Control List Primitive reads entries from the access 
control list of a specified file, directory, or event, and writes 
them to a buffer in the user program. The name and access for each 
entry is written in a five word block, similar to that employed in 
the Write Access Control List Primitive. 


Reading starts from the entry number in the control list which is 
specified by 'INDEX'. The number of entries read, up to a maximum 
of 10, is given by ‘NUMBER’. 


Register Parameter Description 
XO (Implicit ) 28 = Read Access Control List Primitive code 
number 
X1 TRAP Trap location 
Xe INDEX Number of the access control list entry at 
which reading is to begin (=1 for first entry). 
X3 BUFLOC Location of buffer into which the five word 


block containing names and accesses are to 
be written by the executive 


X4 TREE NAME Location of the tree name of the file, 
directory, or event whose access is being 
read | 

X5 TREE SIZE Number of words in the tree name 

X6 BEHALF 1 = Originator's behalf (normal setting) 
O = Owner's behalf 

X7 NUMBER Number of ACL entries to be read, up to a maxi- 


mum of 10. Reading begins from the entry 
number stored in -X2-. 


STATUS RETURN WORDS 


Word 1 
0- 17 Not specified 
18 - 35 Logical status code (See Appendix A-2) 
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Read Access Control List (Continued) 


Format for the 5 Word Access Control List Block 


Words 1 - 4 
Word 5 
Bits 30-35 


The name of the user as it appears in the 
root directory of the system catalog (i.e. 
the first level of the user's tree name). 


Access 
Bit 30 
Bit 31 
Bit 32 
Bit 353 
Bit 34 
Bit 35 


which has been granted to user 

-~- READ (file) 

-- WRITE (file) 

-- APPEND (file) or NOTIFY (event) 
EXECUTE (file) or CAUSE (event) 
-~ LOCK (file, event) 

-- TRAP (not implemented at present) 
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Read Directory Primitive Code = 29 
RDDIR TRAP, INDEX, BUFLOC,TREE NAME,TREE SIZE, BEHALF, BUFSIZE 


The Read Directory Primitive reads the contents of one or more 
branches from the directory specified by 'TREE NAME' into a buffer 
area in the slave program which starts at 'BUFLOC'. The branches are 
read sequentially, the starting branch being specified by the number 
"INDEX'. The number of branches read depends upon the buffer size, 
'"BUFSIZE', there being one branch read for each ten word block which 
is assigned. The number of branches read is returned in the upper 
half of Status Word l. 


Read Access is required for the directory specified. 


Register Parameter Description 
XO (Implicit) 29 = Read Directory Primitive code number 
Xl TRAP Trap location 
X2 INDEX Index in directory of first branch to be read. 


(The index is =l for the initial branch in the dir) 


X3 BUFLOC Starting location of slave buffer area where 
information from the specified branches will 
be returned 


X4 TREE NAME Location of tree name of directory being read 
X5 TREE SIZE Number of words in tree name 
X6 BEHALF 1 = Originator's behalf (normal setting) 


O Owner's behalf 


X7 BUFSIZE Size of slave buffer area where branch informa- 
tion will be returned. Ten words must be 
specified for each branch to be returned. The 
buffer starting location is stored in X3. 


STATUS RETURN WORDS 


Word 1 . 
0-17 The number of branches which have been read 
into the buffer area 
18 - 35 | Logical status code (See Appendix A-2) 
REMARKS 


1) For system information, use the Read Branch Primitive. 
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Read Directory Primitive (Continued) 


Sormat for Each 10 Word Block of Returned Branch Information 


Word 1 Upper 
Bits 0-1 


Bit 3 
Bits 12-17 
Bits 14-17 


Word 1 Lower 
Bit 1& 
Bit 19 


Bit 20 
Bit el 


Bit 22 
Bits 31-35 


Word 2 Upper 
Bits 0-11 
Bits 12-16 


Word 2 Lower 
Bits 18-23 
Bits 24-35 

Word 3 Upper 


Word 3 Lower 


Entry Type 

0O - File 

Ol - Directory 
10 - Event 

11 - Link 


Owner's Directory Privilege Switch (file) 
Owner's Access (all except Link) 


Number of names in tree name (link) 


Password Bit (=l if item has password) 


Active Bit (file or event) 
=l if item is open 


Write inhibit (file) 


Access control list bit (not link) 
=l if item has ACL 


System information bit (file) 
=l1 if file has system information in branch 


Requestor's access (all except link) 


Day item last used (file or event) 


Universal access (all except link) 


Not Used 
Date Last Modified 


File Length (file) 

or 

Current Count (event) 

or 

No. of Blocks used (root directory entry) 


Maximum file length in units (file) 

or 

Maximum queue length (event) 

or 

Maximum number of blocks allowed (root dir. entry) 
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Read Directory Primitive (Continued) 


Format for each 10 Word Block of Returned Branch Information (cont'd) 


Word 4 Upper Units allocated (file) 
or 
Bit 6 Pass event indicator (event ) 
Bit 7 Unlock event indicator (event ) 
Bit 8 Mode (event) 
Bit 9 Infinity bit (event) 
Bit 10 Time event indicator (event) 
Word 4 Lower System ID. (file) 
=O since no system information returned 
(This field may be non-zero for the Read 
Branch primitive) 
or 
Time Limit (event) 
Words 5 and 6 Password (returned only for priv. ID) 
Words 7-10 Branch name 


NOTE: The first six words of returned information has the same format 
in the Read Branch, Read Directory, and Read Link Primitives. 
The last 4 words are different for each primitive. 
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Open Working Directory Primitive Code = 30 
OPENW TRAP,TREE NAME,TREE SIZE, BEHALF 


The Open Working Directory Primitive resets the user's current working 
directory to the directory specified by 'TREE_NAME'. Execute access 
is required on the directory so specified. 


Register Parameter Description 
XO (Implicit) 30 = Open Working Directory code number 
X1 TRAP Trap location 
X4 TREE NAME Location of tree name of working directory 
X5 TREE SIZE Number of words in tree name 
X6 BEHALF 1 = Originator's behalf (normal setting) 


O = Owner's behalf 


STATUS RETURN WORDS 


Word 1 
O- 17 Not used 
18 - 35 Logical status code (See Appendix A-2) 
Word 2 Originator (For use by special SPAWN) 
REMARKS 


There are certain instances when it becomes necessary to reference, 

by tree name, several items which are catalogued in the same directory 
(e.g., when a user is initially opening several files at sign on). 

The open working directory primitive enables the user to expedite 

the tree search for such items by allowing the search to start at the 

level of the working directory specified instead of at the root level. 


When a process is initially spawned by the LISTENER, its current 
working directory is set to the user's main directory (i.e. the 
directory at the level immediately below the root directory). The 
initial current working directory, so specified, must be referenced 
using the originator's behalf. The current working directory can be 
changed by re-issuing the open working directory primitive with the 
tree name for the rew directory. If a father spawns a son, the son's 
current working directory is initialized to the fathers. 


The special symbol '*' is used as the first component of a tree name 
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Open Working Directory Primitive (Continued) 


REMARKS (Cont 'd) 


to indicate that referencing is to start from the directory specified 
by the current working directory. The '*' may be followed by a tree 
name of any level, up to the maximum allowable by the system. 


Note that the '*' convention to be described can be used in specifying 
the tree name for any file or event primitive which utilizes the tree 
name parameter. 


The following examples should clarify the use of the '*' convention 
and the current working directory. 


Example 1 


Assume the open working directory primitive is issued with the tree 
name as specified below: 


ACI 6,GJF Name of user's main directory 
ACI 6,FORTRAN-PROGRAMS Name of directory in main directory 


The current working directory for this tree name is the directory 
GJF/ FORT RAN- PROGRAMS . 


File FORTA in the directory FORTRAN- PROGRAMS can be referenced by the 
following tree name using the '*' convention to denote use of the 
current working directory. 


ACI 6,* Indicator that initial components of tree 
mame are specified by tree name of current 
working directory 

ACI 6,FORTA Name of file in current working directory. 


In example 1 the tree name *,FORTA is equivalent to the tree name. 
GJF FORTRAN-PROGRAMS/ FORTA. 


Example 2 


Consider the working directory whose tree name is GJF/DIRECTORYA/ 
DIRECTORYB. 


.. Then the tree name * DIRECTORYC/DIRECTORYD/FILEA is equivalent to the 


treé nadine: 


GJF/DIRECTORYA/DIRECT ORYB/D LRECTORYC/D IRECTORYD/FILEA 
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Open Working Directory Primitive (Continued) 


REMARKS (Cont 'd) 


This second example illustrates that the current working directory 
can both reference and be followed by multiple level tree names. 


Access when using the '*' convention 
The use of the '*! convention does not alter the access which is 
allowed the user. That is, the access associated with the current 


working directory is the same as the access that would be granted if 
the directory was referenced from the root level. 
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Read Branch Primitive Code = 21 
(DBRN TRAP,SYSID,BUFLOC,TREE NAME,TREE SIZE, BEHALF 


The Read Branch Primitive reads the contents of the branch specified 

by the tree name, into a 10 word block in the slave program which starts 
at 'BUFLOC'. If a system identifier is specified, system information 
(previously entered by the write system information primitive) will 

also be supplied. The format for the returned branch information is 
specified below. 


Read access is required for the directory specified. 


Register Parameter Description 
XO (Implicit) 31 = Read Branch Primitive code number 
X1 TRAP Trap location 
X2 SYSID Specifies either the System Identifier Number 


or a Block Number. The Block Number denotes 
the block of system information to be read. 


System Identifier Number Code 
O - System information not requested 


1 - TSS 
2 - MARK2 
3 - GECOS 


Block Number Code 
-J Specifies that the Jth block of system 
information is to be read (J=l, 2, 3 at 
present). Note the minus preceding J. 


X3 BUFLOC Starting location of 10 word buffer in a slave 
program where branch information is returned. 


x4 TREE_NAME Location of the tree name of the directory 
X TREE SIZE Number of ds treename. If X5=0, X4 is 

2 - assumed Eo contain the FRN of the item being access- 
X6 BEHALF ed. 


Originator's behalf (normal setting) 


O = Owner's behalf 
STATUS RETURN WORDS 
Word 1 
O- 17 Not specified 
18 - 35 Logical status code (See Appendix A-2) 
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Read Branch Primitive (Continued) 


Format for Returned Branch Information 


Word 1 Upper 
Bits O-1l 


Bit 3 
Bits 12-17 
Bits 14-17 


Word 1 Lower 
Bit 18 
Bit 19 


Bit 20 
Bit el 


Bit 22 


Bits 31-35 


Word 2 Upper 
Bits O-11l 
Bits 12-16 


Word 2 Lower 


Word 3 Upper 


_ Word 3 Lower 


Entry type 
00 - File 
Ol - Directory 
10 - Event 
11 - Link 


Owner's Dir. Priv. Switch (file) 
Owner's Access (all except link) 


Number of names in tree name (link) 


Password Bit (=1 if item has password) 
Active Bit (file or event) 

=l if item is open 

Write inhibit (file) 


Access control list bit (not link) 
=] if item has ACL 


System information bit (file) 
=l1 if file has system information in branch 
(See Remark 3) 


Requestor's access (all except link) 


Day item last used (file or event) 


Universal access (all except link) 
Not used 


File length (file) 

or | 

Current count (event) 

or 

Number of blocks used (root directory entry) 


Maximum file length in units (file) 

or 

Maximum queue length (event) 

or 

Maximum number of blocks allowed (root dir. entry) 
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Read Branch Primitive (Continued) 


Format for Returned Branch Information (cont'd 


Word 4 Upper 


Bit 10 


Word 4 Lower 


Words 5 and 6 


Words 7-10 


Units allocated (file) 
or 
Pass event indicator (event) 


Unlock event indicator (event) 

Mode (event) O=steady state l=transient 
Infinity bit (event) 

Time event indicator (event) 

System ID (file) 

=O if no system information returned 

= ID of system for returned information 


or 
Time limit (event) 


Password (returned only for priv. ID). 


System information 


NOTE: The first 6 words of information have the same format as the 
information returned by the Read Directory and Read Link 


Primitives. 


REMARKS 


The last 4 words are different for each primitive 


1) System information can only be obtained from the Read Branch 


Primitive. 


(It is not returned by the Read Directory Primitive). 


2) The Read Branch Primitive can never return information about a link. 


3) Im general there may be several blocks of system information associ- 
ated with a given branch, there being one block for each system 
which has written such information. The System Information Bit 
(Bit 22 in the lower half of Word 1) provides the following informa- 
tion about these blocks. 


The System Information Bit is set ONif: 


a) The block of system information requested is not the last block 
of system information in the branch 
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Read Branch Primitive (Continued) 


REMARKS (Cont'd) 


b) System information is present in the branch but none was 
returned (i.e., either 'SYSID' =O was specified or the ID (or 
block) was invalid). 

The system information Bit is set OFF if 


a) The block of system information requested is the last block i 
the branch or 


b) There is no system information at all in the branch 
Note the above conditions hold whether 'SYSID' is an ID or a 
block number. 


4) If system information is returned, the SYSID is given in Word 4 
Lower of the information block. 
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Read Link Primitive Code = 32 
RDLNK TRAP,BUFOC ,TREE NAME,TREE SIZE,BEHALF ,BUFSIZE 


The Link name is returned in the user specified buffer area. If the 
buffer size specified is too small, then an error status is returned. 
A buffer size of 96.,(6 X 16) is the maximum size possible and 
therefore, will guarantee a correct buffer size for any link name. 


Register | Parameter Description 
XO (Implicit) 32 = Read Link Primitive code number 
X1 TRAP Trap location 
X3 BUFLOC Starting location of buffer area 
X4 TREE_NAME Location of tree name 
X5 TREE_SIZE Number of words in tree name 
X6 BEHALF l=originator's behalf (normal setting) 
O=owner's behalf 
X7 BUFSIZE Size of buffer area must be a multiple 


of six words. 


STATUS RETURN WORDS 


Word l 


0 -17 Not sp ecified 
18 -35 Logical status code (See Appendix A-2) 


FORMAT FOR RETURNED BUFFER INFORMATION 
Words 1 to 6 Same as read directory 
Words 7 to 12 First level link name 
Words 13 to 18 Second level link name 


Words 6N+l1 to 6N+6 N'th level link name 
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Write System Information Primitive | Code = 33 
WSINF TRAP,SYSID,BUFLOC, TREE NAME,TREE SIZE, BEHALF, DELETE 


The Write System Information Primitive allows various subsystems 
(TSS, BASIC, GECOS, etc.) to append additional system information to 
the file branch specified by 'TREE_NAME'. The subsystem specifies 
the information to be added in a four word information buffer located 
at 'BUFLOC'. If this is the first time information is to be written 
for the particular subsystem, a new information block is added. 
Otherwise, the existing information block is modified. An existing 
information block is deleted if 'DELETE' is set ON. 


Register Parameter Description 

XO (Implicit) 33 = Write System Information Primitive code 
number 

X1 TRAP Trap location 

X2 SYS ID Sub-system identifier number 
1 - TSS 
2 - MARK2 
3 - GECOS 

X3 BUF LOC Location of the four words of sub-system 
information to be written 

| XA TREE NAME Location of the tree name of the file to 


whose branch the additional sub-system informa- 
tion is to be added. 


X5 TREE SIZE Number of words in tree name (a multiple of 
six), If X5=0, X4 i dt 
of the teen béing accessed. peas moose 

X6 BEHALF 1 = Originator's behalf (normal setting) 

| O = Owner's behalf 
X7 DELETE Delete switch 


=0 Add or modify block 
=] Delete block 


STATUS RETURN WORDS 


Word 1 
O- 17 Not specified 
18 - 35 Logical status code (See Appendix A-2) 
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Catalog Link Primitive Code = 34 
CATLK TRAP,LINK_NAME,LINK_ SIZE,TREE NAME,TREE SIZE,BEHALF 


The CATLK primitive catalogs a link with a name of TREE NAME. The 
link points to the item specified in the tree name LINK_NAME. All 
passwords associated with the item must be included in the LINK_NAME. 
The TREE NAME is the name of the link, and the LINK_NAME is the 
name of the actual file pointed at by the link. 


Register Parameter Description 
XO (Implicit) 34 = Catalog Link Primitive code number 
X1 TRAP Trap location 
X2 L-NAME Location of link name | 
X3 L-SIZE Number of words in link name, must be a 

multiple of six 

X4 TREE NAME Location of tree name 
X5 TREE SIZE Number of words in tree name, must be a 


multiple of six 


X6 BEHALF l=originator's behalf (normal setting) 
O=owner's behalf 


STATUS RETURN WORDS 


Word 1 
0 -17 Not specified 
18-35 Logical status code (See Appendix A-2) 
REMARK 


Example - if user X attempts to link to user Y's file, then on a 
2 level basis, 


X/LINK 
Y/FILE 


. TREENAME 
LINKNAME 
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Write Branch Primitive Code = 35 


WTBRN TRAP ,BUFLOC , TREE NAME,TREE_SIZE,BEHALF 


The WIBRN primitive is used to alter the information or name of 

a file, event or directory. It allows slave processes to change 
certain information in the branch (that is, directory, file, event 
and link blocks). 


F=File Block; E=Event Block 
D=Directory Block; =Link Block 


The information that may be changed is: 


1) password and name for F,E,D and L (the password is changed only 
if the password bit is on) 

2) owners and universal access in F,E, and D 

3) maximum length in F and E 

4) owners access directory privilege switch in F 

5) time limit in E 


In the case of events, the following checks are made: 


1) Time limit must be less than 1800 sec. and greater than zero. 
Otherwise, an error is returned. | 

2) Maximum Q length must be less than 15 and greater than zero. 
Otherwise, an error is returned. 


In the case of files, the OADPS is changed in the AFT entry if the 
file is open. Also, the maximum length of the file is not changed if 
the write inhibit bit is on. 


In the case of root directories, the maximum number of blocks allowed 
is changed if the user is a privileged user. 


The buffer should be set up as a 10 word buffer with the format of 
the first six words of the RBRN buffer. The last 4 words contain the 
ney npame of che entry, If no change in the name is desired, the original 


Register Parameter Description 
x0 (Implicit) 35 = Write Branch Primitive code number 
X1 TRAP Trap location 
X3 BUFLOC Location of 10-word buffer 
X4 TREE NAME Location of tree name 
X5 TREE_SIZE Number of words in tree name 
X6 BEHALF l=originator's ID (normal setting) 


O=owner's ID 
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Write Branch Primitive (Continued) 


STATUS RETURN WORDS 


Word 1 
0 -17 Undefined 


18-35 Logical status code (See Appendix A-2) 
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Lock Primitive Code = 36 
LOCK TRAP, RN 


The Lock Primitive enables a user to lock a file or event which he has 
opened. This prevents other users from operating on it until he has 
unlocked it. If the user has lock access, the executive inhibits 
interrupts while determining whether the item referenced by 'RN' 
(Reference Number) is currently locked. If the item is locked, 
interrupts are restored and a busy signal returned in the status word. 


Otherwise, the item is locked on behalf of the user, interrupts are 
restored, and a successful return is made. 


Register Parameter Description 
XO (Implicit) 36 = Lock Code Number 
Xl TRAP Trap address 
X2 RN Reierence number of file or event to be locke 


STATUS RETURN WORDS 


Word 1 
0-17 Undefined 
18 - 35 Logical Status Code (See Appendix A-2) 
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Unlock Primitive Code = 37 
UNLCK TRAP, RN 


The Unlock Primitive enables the user to unlock a file or event, 
specified by 'RN' (Reference Number", that he had previously locked. 
A successful return is also given if the item referenced was not 
locked to begin with. 


Register Parameter Description 
XO (Implicit) 37-2 Unlock code number 
X1 TRAP Trap address 
X2 RN Reference number of file or event to be locked 


STATUS RETURN WORDS 


Word 1 
0 - 17 Undefined 
18 - 35 Logical Status Code (See Appendix A-2) 
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Notify Primitive Code = 38 
NOTIF TRAP, ERN,CTRAP, STATE 


The process which issues the notify primitive is trapped at location 
'TRAPC' when the event specified by reference number 'RN' is caused 
with the given 'STATE'. If the process which causes event 'RN' has 
specified a message, this message is returned in Status Word 2 of 
TRAPC. 


The location 'TRAP' is associated with the issuance of the notify. 
Control is returned to 'TRAP' after the notify has been completed 
with the acceptance (or rejection) indicated in the Status Word l. 


Register Parameter Description 
XO (Implicit) 38 = Notify primitive code number 
X1 TRAP Trap location associated with the issuance of 


the notify. This trap is similar to the trap 
associated with the issuance of any other 
primitive. When the operation of issuing the 
notify is completed, control returns to 'TRAP! 
with the success indicated in the corresponding 
status words. 


X2 ERN Event Reference Number of the event, whose 
causing will result in the process being 
notified. 


X3 TRAPC Trap location associated with the causing of 
| event 'RN'. Control is returned to 'TRAPC' 
after some process issues a cause to event 'RN' 
with a state matching that specified by 'STATE'. 


A STATE Value which must be specified by the CAUSE for 
the notify to occur. If the state is all ones 
(i.e. 777777777777 3) the process will be notified 
regardless of the State specified in the cause. 


Note, state can only be defined for transient 
mode events. For steady state events, state 
must be set to zero. If not, the primitive 
will be rejected. 


STATUS RETURN WORD? 


TRAP 
Word 1 
0 - 17 . Not specified 
18 - 35 Logical Status Code ieee Appendix A-2) 
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Notify Primitive (Continued) 


STATUS RETURN WORDS (Cont 'd) 


TRAPC 
Word 1 
0-17 . FRN of passed item (pass event) 
18 - 35 Logical Status Code (See Appendix A-2) 
Code is zero if trap has returned due to 
issuing of cause. Error code if trap returns 
because time limit is exceeded. 
Word 2 
Non-pass event 
0 - 35 Message (optional) returned by process issuing cau 
Pass Event 
0-17 Messace (optional) returned by process issuing cau 
18 - 35 Accounting ID for pass event 
WARNING 


If a slave process continues processing after issuing a NOTIFY (i.e. it 
Ages not issue the PAUSE primitive) then it must be prepared to handle 

—41e notify trap whenever it occurs. In particular this means that the 

trap routine for the NOTIFY and all other trap routines which may occur 

at the same time as the NOTIFY must be coded to exit with a RET to the 

trap routine exit location. This is necessary since the order in which 

the traps return cannot be pre-determined. (The programmer should 

review the discussion on trap handling in Section II if this is not clear). 


Care must also be taken in using the PAUSE primitive when a NOTIFY trap 
is outstanding. The trouble occurs when the trap for the primitive 
returns ‘'fast'' so that the PAUSE is issued when it is not really required. 
For example, suppose a primitive is issued followed by a PAUSE, and the 
executive returns control to the trap routine (i.e. the fast return) 
rather than to the instruction following the primitive MME. The trap 
routine, using the standard RET to the trap exit location, causes the 
PAUSE to be issued, even though the primitive has already been completed. 
Normally the PAUSE would be ignored by the executive since there would 
be no additional traps outstanding. However, since there is a NOTIFY 
trap outstanding, the PAUSE will be accepted and the process will go 
into a blocked state. The process will remain blocked until the CAUSE 
for the NOTIFY is issued which is not generally what the programmer 
wants. To avoid this possibility when a NOTIFY trap is outstanding, DO 
NOT ISSUE THE PAUSE IF THE TRAP FOR THE PRIMITIVE OPERATION HAS ALREADY 
“TURNED. 
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Notify Primitive (Continued) 


The following code may be employed to determine whether a PAUSE should 
be issued when a NOTIFY trap is outstanding. 


STZ 


TRAP+2 
O 
SAVE,ON 
TRAP+2 
4.1 
15,DU 

) 
RESTORE 
*-4 


Zero trap return location before issuing MM 
MME initiating the primitive operation 
Inhibit interrupts 

Test if trap has returned 

If so, bypass the PAUSE 

Otherwise issue the PAUSE 


Restore interrupts 
Insure that exit is when trap returns 
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Cause Primitive 297 Code = 39 


- 


ea ‘ 
f+ ‘ 
CAUSE TRAP,ERN,STATE ,MESSAGE , NUMBER , FRN, ACCESS 


This primitive causes a subset of the processes awaiting event 'RN' 
whose state matches 'STATE' to be trapped. The number of processes 

to be trapped is specified by 'NUMBER'. (The address at which a process 
is trapped, and the state to be matched against, is specified by the 
Notify Primitive.) 

"MESSAGE' specifies an optional one word message which the causing 
process can return to the process being notified. 


Upon completion of the operation, the process issuing the cause is 
trapped at location 'TRAP' with the number of processes notified 
returned in the upper half of Status Word l. 


Register Parameter Description 
XO (Implicit) 39 = Cause Primitive code number 
X1 TRAP Trap location associated with issuance of 
the Cause 
X2 ERN Reference number of event being caused 
X3 NUMBER Number of processes (with state matching 


'STATE') which are to be notified (i.e., 
trapped). If 'NUMBER'=0, all processes (with 
matching state) awaiting notification will be 
trapped. 


The current count is incremented by 'NUMBER' 
when the event is caused and decremented by 
one for each process which is trapped (for 
steady state events). 


X6 RN RN of item to pass (for pass mode) 

X7 ACCESS Access on item passed (for pass mode) 
(Bits 13-17) 

A STATE The state parameter is defined only for 


transient mode events. It must be set to 
zero for steady state events. 


Only those processes on the event queue whose 
state matches that specified by 'STATE' will 

be trapped. If the state word is set to all 
ones (i.e. 7777777777778) the number of 
processes specified by “NUMBER' will be trapped 
regardless of the state in their queue entry. 


Q MESSAGE — An optional one word message that the causing 
process can send to the process being notified. 
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Cause Primitive (Continued) 


STATUS RETURN WORDS _ 


Word 1 
0 - 17 


13. 25 


The number of processes trapped as a result 

of issuing CAUSE. If this field is zero for 
a CAUSE to a transient mode event, then there 
is no NOTIFY outstanding for the CAUSE. The 


‘CAUSE should be reissued in this case. 


Logical Status Code (See Appendix A-2) 
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oo 


Delete Event Primitive Code = 40 
DELET TRAP, ERN,STATE 


An entry for this process which has the specified state is deleted fr 
the event queue specified by 'RN' (Reference Number). 


Register Parameter Description 
XO (Implicit) 40 = Delete event code number 
X1 TRAP Trap address 
Xe ERN Reference number of event to be deleted 
A STATE State (must be zero for steady state event) 


STATUS RETURN WORDS 


Word 1 
0 - 17 =l if an entry was successfully deleted 
18 - 35 Logical status code (See Appendix A-2) 
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Uncause Event Primitive Code = 41 
UNCAU TRAP, RN, NUMBER 


The Uncause Primitive decreases the current count of the event specified 
by 'RN' (Reference Number) by the amount specified by 'NUMBER'. 


The Uncause Primitive is meaningful only for events in the steady state 
mode since the current count will not be allowed to go negative. 


Register Parameter Description 
XO (Implicit ) 4] = Uncause event primitive code number 
X1 TRAP Trap address 
X2 RN Event reference number 
X3 NUMBER Number by which current count is to be decreased 


STATUS RETURN WORDS 


Word 1 
O- 17 Undefined 
18 - 35 Logical Status Code (See Appendix A-2) 
REMARKS 


1) See "Summary of Macro Calls for Event Primitives" for a description 
of CURRENT COUNT. 
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Open Scratch Event Primitive Code = 42 
OPSCE TRAP,TIMLIM,MODE,MAXLEN 


The Open Scratch Event Primitive creates a scratch event, returning 
the reference number for this event in the upper half of Status Word 
1. Most further references to this event will be in terms of the 
reference number. 


Register Parameter Description 
XO (Implicit) 42 = Open Scratch Event Primitive code number 
Xl TRAP Trap address 
XS- . TIMLIM Time limit for process awaiting event (secs.) 


If zero, the maximum limit of 1/2hour is granted. 
X4 MODE Mode bit and pass event indicator 


Bit 17 - Mode Bit 
= O Steady State mode 
= ] Transient mode 


Bit 16 - Pass Event Indicator 
= O not an event of type "pass" 
= 1 scratch event is type "pass" (Only for 
transient mode events) 


X5 MAXLEN — Maximum queue length for event (1 to 16). 
| If set to zero, maximum of 16 is granted. 


STATUS RETURN WORDS 


Word 1 
0 - 17 Event reference number of opened scratch event 
18 - 35 Logical status code (See Appendix A-2) 
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System Status Measurements Primitive Code = 45 


MSTA TRAP,PLOC,LENGTH, BUFLOC 


The 'status' primitive transfers the contents of absolute core locations 
into a slave program buffer area. It also returns a pointer to the 
MMDDT symbol table in the upper half of the first status word. This 
primitive can be issued only by privileged processes. 


Register Parameter Description 
X0 (Implicit) 45 = System Status Measurement Primitive 
code number 
X1 TRAP Trap address 
X2 PLOC Address of argument list in slave program 
X3 LENGTH # of arguments in list 
X4 BUFLOC Address of buffer where the status is to 
be put 
REMARK 


A check is made to see that the address of all the arguments is within 
the bounds of the BAR. 


STATUS RETURN WORDS 


Word 1 
0 -17 Pointer to the MMDDT symbol table 
18-35 Logical status code (See Appendix A-1 ) 


FORMAT OF PARAMETER LIST 


Each argument is 1 word in length 
upper half of each word is the # of words to be read 


lower half of each word is the absolute core location 
to start reading from 
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Measure Read Me Primitive Code = 46 


RD ME TRAP,BUFLOC ,BSIZE 


This primitive is issuable only by certain privileged processes 
(the Listener, in particular). It is a request by a slave program 
to have a block of information transferred into the accounting 
stream. It is assumed the block specified contains one or more 
complete accounting blocks, each properly identified. 


Register Parameter Description 
XO (Implicit) 46 = Measure Read Me Primitive code numbe 
X1 TRAP Trap Location 
X2 BUFLOC Beginning address of buffer 
X3 BUFSZE Length of buffer (in words) 
REMARK 


A maximum of 32 words will be transferrable by one primitive call. 


STATUS RETURN WORDS 


Word 1 
0 -17 Undefined 
18-35 Logical status code (See Appendix A-1) 
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Create Segment Primitive Code = 47 


CRSG TRAP, FRN,SEGNUM 


The create segment primitive creates a segment from a specified file. 
It allows creation of a write inhibited segment, from a file, after 
the process has been spawned. The segment will be write inhibited 
only if the file was write inhibited. 


Register Parameter Description 
X0 (Implicit) 47 = Create Segment Primitive code number 
X1 TRAP Trap Location 
X2 FRN File Reference Number 
X3 SEGNUM Segment Number 


STATUS RETURN WORDS 


Word 1 
0 -17 Undefined 
18-35 Logical Status Code (See Spawn Primitive) 
REMARKS 
Access 
Seg 0 Execute 
Seg 1-3 Execute or Read 
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Write Me Primitive Code = 


WRITEM TRAP,TRCPR, PLOC , LENGTH 


The Write Me Primitive allows writing into absolute core location 
and may start 'sample' tracking of the process. 


Register Parameter Description 
X0 (Implicit) 48 = Write Me Primitive code number 
X1 TRAP Trap Location 
X2 TRCPR Tracking Parameter 


O=to be ignored 
l=start tracking process 


X4 PLOC Location of array of arguments 
X5 LENGTH Length of array of arguments 
(must be less than or equal to 64) 


oTATUS RETURN WORDS 


Word 1 
0 -17 Not specified 
18-35 > Logical status code (See Appendix A-1) 


FORMAT OF AN ARGUMENT PAIR: 


First Word: DU = Absolute Address 


Second Word: New Value of Location 
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Who Am I Primitive Code = 49 


WAMI TRAP ,CORELOC 


The Who Am I primitive returns the first level of the current 
working directory and the Acode in a five word buffer which the user 
specifies. 


Register Parameter Description 
XO (Implicit) 49 = Who Am I primitive code number 
X1 TRAP Trap Location 
X4 CORELOC Location of 5-word buffer 


STATUS RETURN WORDS 


Word 1 
0 -17 Not specified 
18-35 Logical status code 


5 - I/0 out of bounds 
FORMAT OF RETURNED BUFFER INFORMATION 
Words 1-4 First level of current working directory name 


Word 5 Acode 
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Request Working Directory Primitive Code = 5l 
RQWD TRAP,CORELOC 
The Request Working Directory returns up to 6 levels of the current 


working directory in a 36 word buffer which the user specifies. The 
Acode is returned in the lower half of status return word 2. 


Register Parameter Description 
X0 (Implicit) 51 = Request Working Directory Primitive 
code number 
X1. TRAP Trap Location 
X4 CORELOC Location of 36-word buffer 


STATUS RETURN WORDS 


Word 1 
0 -17 Number of levels passed back 
18-35 Logical status code 
5 - 1/0 out of bounds 
Word 2 
0 -17 Not specified 
18-35 Acode 


ASCII treenames to be returned in buffer. 
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APPENDIX A 


SUMMARY OF LOGICAL STATUS CODES 


Value 
Dec Oct 
0 0 
1 1 
2 2 
3 3 
4 4 
5 5 
6 6 
7 7 
8 10 
9 ll 
10 12 
11 13 
12 14 
13 15 
14 16 
15 17 
17s 21 
19 23 
20 24 
21 25 
22 26 
23 27 
24 30 
25 31 
27 33 
29 35 
30 36 
31 37 
32 40 

Note: 


LOGICAL STATUS CODE FOR I/O PRIMITIVES 


Meaning 


Successful operation 

Invalid FRN 

Invalid access specified 

Operation cannot be done at this time (software) 
Invalid operation for device type 

I/O would be out of bounds 

Amount requested greater than file length 
Element size not a multiple of unit size 

Too many units specified for device 

Invalid mode specified 

Hardware error - operation not complete 

Device unavailable (hardware) 

Parity error in transfer - operation completed 
No freelist available for operation entry 
End-of file encountered 

Subchannel not currently connected 

Element count invalid 

Referencing a locked item 

Drum transfer must start at even core location 
Reading into a protected segment 

No file storage available 

*Terminate-writing* this subchannel 

End of tape | 

Subchannel connection not established 
*Quit-Reading* this subchannel 

Timer Run Out on operator's console or ring already 
present on CLM channel 

A to D conversion stopped, No read 

Line-break has occurred 

TTY parity error (used only for listener) 


The primitives, classified as 'I/0', for which the above status 
code is returned are: 


04--Sequential Read 
05--Append to File 
06--Read Random File 
07--Write Random File 
08--Scratch File 
09--Set Pointer 
10--Request Status 


11--Request Date and Time 
49--Who Am I 


LOGICAL STATUS CODE FOR FILE AND EVENT PRIMITIVES 


Value 
Dec Oct Meaning | 


0 0 Operation Was Successful 

1 1 Illegal File Reference Number 

2 2 Access Denied 

3 3 Operation Cannot Be Done At This Time 

4 4 Branch Improperly Formed 

5 5 Name Invalid 

6 6 Directory Full 

7 7 Unrecoverable Error 

8 10 Directory Not Empty 

9 11 Time Limit Exceeded 

10 =«12 Invalid Command 

ll 13 Item Locked 
12 14 Illegal Element Size 

13 15 Illegal Device ID 

14 16 Illegal Password 

15 17 Buffer too Small 

16 20 Access denied to Open on Behalf of Owner 
17 21 Too many File Operations Outstanding 

18 22 #AIT free list entries under threshold 
19 23 KIT Free list is empty 
20 24 No execute access on Directory Above Item Being Accessed 
21 25 Device not allocated (for deallocate event only) 


Note: The Primitives, classified as 'File and Event', for which the 
above status code is returned are: 


20--Open 37--Unlock 

21--Close 38--Notify 

22--Catalog 39--Cause 

23--Destroy 40--Delete Entry 
24--Open Scratch 41--Uncause 

25--Update 42--Open Scratch Event 


26--Catalog Directory 
27--Write Access Control List 
28--Read Access Control List 
29--Read Directory 

30--Open Working Directory 
31--Read Branch 

32--Read Link 

33--Write System Information 
34--Catalog Link 

35--Write Branch 


36--Lock 


SUMMARY OF STATUS RETURNS FOR CONTROL PRIMITIVES 


0 0 Successful Return 

Ll 1 Out of Bounds 

2 2 Upper Portion of Slave Fault Vector out of Bounds 
4 4 Squeze Mode Not Set Up 


Dec Oct 
4 4 Segment zero must be specified 
5 5 Illegal segment specification 
6 6 Invalid access on segment specification 
7 7 Illegal File reference number 
8 10 Only a file or event may be passed 
9 11 Resources not available 
12 14 Argument list must be at least 14 words long 


Segment Primitives 


o 
i) 
Q 
eo) 
Q 
ct 


Meaning 


Segment number out of range 

Segment not known 

1/0 activity in progress 

Segment is write inhibit 

Requested segment length equals zero 
Segment length out of range 

Segment already opened 
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APPENDIX B 


SUMMARY OF THE MODE PARAMETERS FOR DIFFERENT DEVICE TYPES 


SUMMARY OF THE MODE PARAMETERS FOR DIFFERENT DEVICE TYPES 


Disc, Drum 


Modes issued thru READ 
5 - Rewind 


Operator's Console 
Modes issued through APEND 


0 - Status 
1 - Attention 
2 - Apend 
3 - Standby 
Modes .issued through READ 
0 - Status 
1 - Attention 
2 - Read 
3 - Standby 


Card Reader 


Status 

- Attention 

Read Card Binary 

- Read Card Hollerith 
~ Read Card Mixed 


mH WNHH CO 
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Card Punch 


0 - Status 

1 - Attention 

2 - Write Card Binary 

3 - Write Card Hollerith 

4 - Write Card Hollerith Edited 


Magnetic Tape 


Modes issued through READ 
- Request Status 
- Read Tape Decimal 


bt © 


- Forward Space File 
- Backspace File 
- Forward Space Record 


Backspace Record 


2 - Read Tape Binary 
3 - Set High Density 
4 - Set Low Density 
5 - Rewind 

6 - Rewind/Unload 

7 

8 

9 


~ 
i) 
’ 


Magnetic Tape (Con't) 


11 - Read Decimal Recovery 
12 - Read Binary Recovery 
13 - Read Tape 9 

14 - Read Tape 9, Recovery 
15 - Reread Decimal 

16 - Reread Binary 

17 - Set File Protect 


Memory Interface 


0 - Status 
1 - Attention 
2 - Read or Append 


Magnetic Tape 


Modes issued through APEND 
0 - Status 

- Write Decimal 

- Write Binary 

- Erase 

- Write End-of-File 
(normal use) 

- Write EOF Decimal 

- Write EOF Binary 

~ Append Decimal Recovery 

Append Binary Recovery 

- Write Tape 9 

- Write Tape 9, Recovery 


FWNrE 


Oo On DWN 
t 


Line Printer 

0 - Status 

1 - Attention 

2 - Write edited continuous, 
no slew 

3 - Edited, no slew 

4 - Edited, slew 1 line 

5 - Edited, slew 2 lines 

6 - Edited, slew top of form 

7 - Non-edited, no slew 

8 - Non-edited, slew 1 line 

9 - Non-edited, slew 2 lines 

QO - Non-edited, slew top of 

form 

11 - Slew 1 line 

12 - Slew 2 lines 

13 - Slew top of form 


Summary of the Mode Parameters for Different Device Types (con't) 


Communications Line Multiplexers 


Generally the CLM10 Modes are identical 
to the teletype modes (See Below). 


CLM10 Modes 

Modes issued thru APPEND or READ 

Oct Dec 

00 00 Status Request 
O01 O21 Initialize CLM10O system 
02 02 Not used 

03 03 Unmask one SBCH 

04 04 Mask one SBCH 

05 05 Accept ring 

06 06 Initiate ACU 


Modes issued only thru *APPEND* 

07 07 Write to one SBCH 

10 308 Terminate writing to one SBCH 
Modes issued only thru *READ* 


11 09 Quit reading from one SBCH 
12 10 Accept attention read 
13-17 11-15 Not presently in use 


Read Modes transmitting all LF's 


20 16 Issue LF and READ to CR or TRO 
21 17 Read to CR, .TRO, EOM, or EOT~. 

22 18 Issue LF and READ to TRO with LF 
23 19 READ to TRO or EOT 


24-27 20-23 Not presently in use 


Begin READ modes suppressing CRS not following NON-CRS 


30 24 Issue LF and READ. to CR 

31 25 READ to CR 

32 26 Issue LF and READ to TRO with LF 
33 27 READ to TRO 


34-37 28-31 Not presently in use 


SUMMARY OF MODE PARAMETERS (Continued) 


TTY 


Modes which may be issued through APEND or READ 
0 - Status request 
- Disable all subchannels (SBCHS) (Init. TTY system) | 
- Enable all SBCHS 
- Unmask one SBCH 
Mask one SBCH 
- Accept ring 
- Initiate ACU 
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Modes which may be issued only thru APEND 
7 - Write to one SBCH 
8 - Terminate writing to one SBCH 


All of the modes which follow may be issued only through READ 
9 - Quit reading from one SBCH 
10-15- Not presently in use 


Read modes transmitting all LF's 
16 - Issue LF and READ to CR 
17 - Just READ to CR 
18 - Issue LF and READ to TRO with LF 
19 ~ Just READ to TRO 
20-23- Not presently in use 


Read modes suppressing CR's not following Non-CR's 
24 - Issue LF and READ to CR 
25 - Just READ to CR 
26 - Issue LF and READ to TRO with LF 
27 - Just READ to TRO 
28-31- Not presently in use 


Note on READ-to-CR: Occurrence of TRO before CR terminates the READ. 
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APPENDIX C 


Primitive Command Summary 


SUMMARY OF PRIMITIVE COMMANDS AND THEIR CODE NUMBERS 


Primitives Executed Directly by the Master Mode Executive 


Primitive Code and Name 


00--Privileged Command From Slave Exec 


01--Set Up Fault Vector 
02--Set Up Squeze Mode 
03--Enter Squeze Mode 

04 --Read 

05--Append 

06--Random Read 

07--Random Write 

Q08--Scratch File 

09=-Set Pointer 

10--Request Status 
1l1--Request Date and Time 
12--Request Elapsed Run Time 
45--System Status Measurement 
46--Measure Read Me 
48--Write Me 

49--Who Am I 

51--Request Working Directory 


Primitive Classification 


CONTROL 
CONTROL 


CONTROL 


Primitives Executed by the Slave Mode Executive 


13--Spawn 
14--Terminate 


_ 15--Pause 


16--Open Segment 

17--Close Segment | 
18--Change Segment Length 
19--Exchange Segments 
20--Open 

21--Close 

22--Catalog 

23--Destroy 

24--Open Scratch 

25--Update 

26--Catalog Directory 
27--Write Access Control List 
28--Read Access Control List 
29--Read Directory 

30--Open Working Directory 
31--Read Branch 

32--Read Link 

33--Write System Information 
34--Catalog Link 

35--Write Branch 

36--Lock 

37--Unlock 

38--Notify 

39--Cause 

40--Delete Entry 


A LTamalInmAaisaa 


CONTROL 
CONTROL 
CONTROL 
CONTROL 
CONTROL 
CONTROL 
CONTROL 

FILE AND EVENT 
FILE AND EVENT 
FILE AND EVENT 
FILE AND EVENT 
FILE 

FILE - 

FILE ° 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE AND EVENT 
FILE AND EVENT 
EVENT 

EVENT 


_EVENT 


TST PrNaArhM 


Primitives Executed by the Slave Mode Executive (con't.) 


42--Open Scratch Event EVENT 
47--Create Segment CONTROL 


Summary of Macro Calls for System Primitives 


Primitive 


Code 


Ol 
02 
03 
O4 


Macro Call 


SETFV 
SETSQ 
SQUEZ 
READ 
APEND 
RRE- 
WRF 
SCR 
SPTR 
RQST 
RQDT 
RQERT 
SPAWN 
TERM 
PAUSE 
OS EG 
CLSEG 
CHS EG 
EXS EG 
OPEN 
CLOSE 
CATLOG 
DEST RO 
OPENS 
UPDATE 


TRAP, CORELOC 

TRAP, LOCTBL 

TRAP, REGS, [C 

TRAP, FRN, CORELOC,N, MODE 

TRAP, FRN, CORELOC ,N, MODE 

TRAP, FRN, FILELOC , CORELOC, N 
TRAP, FRN, FILELOC , CORELOC ,N 
TRAP, FRN, FILELOC 

TRAP, FRN,N 

TRAP, RN 

No Arguments 

No Arguments 

TRAP, PLOC , LENGTH 

No Arguments 

No Arguments 

TRAP, SEGNUM , LENGTH 

TRAP, SEGNUM 

TRAP, SEGNUM, LENGTH 

TRAP, SEGLINUM, SEG2NUM 

TRAP, TREE NAME, TREE _SIZE,BEHALF,ELSIZE,ACCESS 
TRAP, RN 

TRAP, RN, TREE _NAME,TREE_SIZE,SWITCH,UACCESS ,OACCESS 
TRAP, TREE | NAME, TREE SIZE, BEHALF 
TRAP, DEVID , MAXLEN , ELSIZE 

TRAP, FRN 


CATDIR TRAP,TREE_NAME,TREE_SIZE, BEHALF ,UACCESS , OACCESS 


WRACL 
RDACL 
RDDIR 
OPENW 
RDBRN 
RDLNK 
WS INF 
CATLK 
WTBRN 
LOCK 


UNLOCK 


NOTIF 
CAUSE 
DELET 
UNCAU 
OPSCE 
MSTA 
RDME 
CRSG 


WRITEM 


WAMI 
RQWD 


TRAP, BUFLOC , TREE NAME,TREE_ SIZE, BEHALF, BUFSIZE 

TRAP, INDEX, BUFLOC , TREE NAME,TREE SIZE, BEHALF, NUMBER 

TRAP, INDEX, BUFLOC, TREE NAME,TREE SIZE, BEHALF, BUFSIZE 
TRAP, TREE NAME, TREE | SIZE, BEHALF 

TRAP, SYSID, BUFLOC, TREE | NAME, TREE_SIZE, BEHALF 

TRAP ,BUFLOC , TREE NAME , TREE _ SIZE, BEHALF » BUFSIZE 

TRAP, SYSID, BUFLOC, TREE | NAME TREE | SIZE, BEHALF, DELETE 

TRAP, LINK_NAME, LINK | SIZE, TREE NAME, TREE SIZE, BEHALF 

TRAP , BUFLOC , TREE NAME, TRee. _ SIZE, BEHALF 


TRAP, ERN,CTRAP, STATE 
TRAP, ERN, STATE, MESSAGE, NUMBER 
TRAP, ERN, STATE 
TRAP, ERN,NUMBER 
TRAP, TIMLIM, MODE , MAXLEN 
TRAP, PLOC , LENGTH, BUFLOC 
TRAP ,BUFLOC , BUFSIZE 
TRAP, FRN, SEGNUM 
TRAP, TRCPR, PLOC , LENGTH 
TRAP ,CORELOC 
TRAP, CORELOC 
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Summary of Macro Calls for Control Primitives 


Macro Call Description 
SETFV TRAP,CORELOC 
SETSQ TRAP,LOCTBL 
SQUEZ TRAP,REGS,IC 


Setup Fault Vector 
Setup Squeze Mode 
Enter Squeze Mode 


RQDT No Arguments 
RQERT No Arguments 


Request Time and Date 
Request Elapsed Run Time 


SPAWN TRAP, PLOC , LENGTH 
TERM No Arguments 
PAUSE No Arguments 


Spawn a process 
Terminate a process 
Block a process 


OSEG TRAP,SEGNUM, LENGTH 
CLSEG TRAP, SEGNUM 

CHSEG TRAP,SEGNUM, LENGTH 
EXSEG TRAP,SEGINUM,SEG2NUM 


Open a segment 

Close a segment 

Change segment length 
Exchange segment numbers 


MSTA TRAP, PLOC , LENGTH, BUFLOC 
RDME TRAP, BUFLOC ,BUFSIZE 
WRITEM TRAP, TRCPR, PLOC , LENGTH 
WAMI TRAP,CORELOC 

RQWD TRAP,CORELOC 

CRSG TRAP,FRN,SEGNUM 


System status measurement 
Measure read me 

Write me 

Who am I 

Request working directory 
Create Segment 


Parameter Summary for Control Primitive Macro Calls 


CORELOC 


LENGTH 


‘LOCTBL 
BLOC 
PLOC 
REGS 
Ic 
SEGNUM 
SEGINUM 


SEG2NUM 
TRC PR 


TRAP 


Location of slave fault vector 


SPAWN - No. of words in spawn parameter list at 'PLOC' 
OSEG and CHSEG - No. of words in segment 


Location of squeze mapping table 

Beginning address of block 

Location of SPAWN parameter list 

Location of register settings to be used on entry to squezed 
prog. 


IC and indicators on entry to squeezed program 


Segment numbers (0, 1, 2, 3) 


Tracking parameters 0 (to be ignored) 
1 (to start tracking this process) 


Location of trap routine 
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Summary of Macro Calls for 1/0 Primitives 


Code Macro Call Description 
04 READ TRAP FRN CORELOC ,N,MODE Sequential Read 
05 APEND TRAP,FRN,CORELOC ,N,MODE Sequential Write 
06 RRF TRAP,FRN,FILELOC,CORELOC,N Random File Read 
07 WRF TRAP,FRN,FILELOC ,CORELOC,N Random File Write 
08 SCR TRAP,FRN,FILELOC Scratch File 
09 SPTR TRAP,FRN,N Set File Pointer 
10 RQST TRAP,RN Request Status 


Parameter Summary for I/O Primitive Macro Calls 


TRAP Location of trap routine 
FRN Reference number of a file 
RN Reference number of a file or an event 


CORELOC Starting core location in slave program for data transmission 
FILELOC Starting file location for data transmission (expressed as 


an element number). The first element is equal to zero. 


N Number of elements to be transmitted. 
MODE Device dependent indicator specifying mode of data 
transmission. 


_ Summary of Macro Calls for File Primitives 


Code Macro Call 
20 OPEN TRAP, TREE_NAME, TREE_SIZE, BEHALF ,ELSIZE,ACCESS 
21 CLOSE TRAP,RN 
22 CATLOG TRAP,RN, TREE NAME,TREE SIZE,SWITCH,UACCESS ,OACCESS 
23 DESTRO TRAP, TREE _NAME, TREE_ SIZE , BEHALF 
24 OPENS TRAP , DEVID ,MAXLEN, ELSIZE 
25 UPDATE TRAP,RN 
26 CATDIR TRAP,TREE NAME,TREE SIZE,BEHALF ,UACCESS ,OACCESS 
27 WRACL TRAP , BUFLOC , TREE _ NAME TREE _ SIZE, BEHALF ,BUFSIZE 
28 RDACL TRAP, INDEX BUFLOG (TREE _NAME TREE _ SIZE, BEHALF , NUMBER 
29 RDDIR TRAP, INDEX ,BUFLOC , TREE NAME, TREE SIZE, BEHALF , BUFSIZE 
30 OPENW TRAP, TREE NAME, TREE SIZE, BEHALF 
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Code Macro Call 


31 RDBRN TRAP,SYSID,BUFLOC ,TREE NAME,TREE SIZE, BEHALF 

32 RDLNK TRAP,BUr LOC , TREE _ NAM ME, TREE "SIZE, BEHALF, BUFSIZE 

33 WSINF TRAP,SYSID ,BUFLOG TREE _NAME,TREE SIZE,BEHALF, DELETE 
34 CATLK TRAP,LINK _ NAME , LINK _ SIZE TREE _NAME ,TREE_ SIZE , BEHALF 
35 WTBRN TRAP, , BUFLOC , TREE NAME TREE SIZE, BEHALF 

36 LOCK TRAP "RN 

37 UNLOCK TRAP,RN 


Parameter Summary for File Primitive Macro Calls 


Parameter Meaning 
ACCESS Requested access ‘ 
UACCESS _ Access granted to universe ls St 32 33 34 3 
OACCESS Access granted to owner Not 

Presently 

Used 
BEHALF Specifies whose ID is used in checking whether access 


is to be granted 
=l1 Originator's ID (normal setting) 
=0 Owner's ID 


BUFLOC Location of buffer in slave program for reading and 
writing branch information 

BUFSIZ Number of words in buffer located at 'BUFLOC' 

DELETE Specifies action on system information block 


=Q Add or modify block 
=] Delete block 


DEV ID Specifies device on which scratch file is opened 
=l Dise 
=2 Drum (only granted to privileged users) 


ELSIZE Element size, expressed in bits, in which subsequent 
data transactions for file are to be expressed. Must 
be a multiple of unit size. 

=0 Element size set equal to unit size 


Device Unit Size 
Disc ,Drum 1152 bits (32 words 
Card Reader, Card Punch, Line Printer 6 bits 
Teletypewriter 9 bits 
Magnetic Tape 36 bits 
CLM-10 36 bits 
A to D converter 36 bits 
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Parameter Summary for File Primitive Macro Calls (Continued) 


Parameter 


INDEX 


LINK_NAME 
LINK SIZE 
MAXLEN 
NUMBER 
RN 

SWITCH 


SYSID 


TRAP 
TREE NAME 
TREE_SIZE 


Meaning 


The entry number at which reading begins (=1 for first 
entry). 


The tree name which is stored in a branch of type "Linl 
Number of words in LINK_NAME. Must be multiple of 6. 
Maximum length of scratch file, in elements 

Number of ACL entries to be read. Maximum value is 10 
Reference number of file or event | 

Indicator associated with the cataloging of a file 


Bit 17 - ON if originator's behalf 
Bit 16 - OFF if access not granted to owner's files 
Bit 15 - OFF if file is not write inhibit when spawned 


0 | 15 1 


6 
6) 
A 
P 
S 


MoS mm wes 


W 
R 
1 
N 
H 


Identification code for system information stored in 
branch | 

=Q System information not requested 

= TSS a 

=2 MARK 2 | | 

= GECOS 


=-J (J=1,2,3) specifies Jth block of system informatio 


Location of trap routine 


Location of tree name of entity. 


Number of words in 'TREE_NAME'. Must be a multiple of 


Summary of Macro Calls for Event Primitives 


The following calls are applicable for files and events 


Code 


20 
21 


Macro Call 


OPEN  TRAP,TREE NAME,TREE SIZE,BEHALF,ELSIZE,ACCESS 
CLOSE TRAP,RN 
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Summary of Macro Calls for Event Primitives Continued 
Code Macro Call 


" 22 CATLOG TRAP, »RN, TREE NAME, TREE SIZE,SWITCH ,UACCESS ,OACCESS 
23 DESTRO TRAP, TREE NAME, TREE SIZE, BEHALF 
36 LOCK TRAP, RN 
37 UNLCK TRAP,RN 


The following calls apply only to events 


Code Macro Call 

38 NOTIF TRAP,ERN,CTRAP,STATE 

39 CAUSE TRAP,ERN,STATE, "MESSAGE, NUMBER 
40 DELET TRAP,ERN,STATE 

41 UNCAU TRAP,ERN,NUMBER 

42 OPSCE TRAP, TIMLIM , MODE ,MAXLEN 


Parameter Summary for Event Primitive Macro Calls 
Parameter Meaning 


ACCESS Requested access 0 33 34 35 
UACCESS Access granted to universe 
OACCESS Access granted to owner 


BEHALF Specifies whose ID is used in checking whether access is 
to be granted 
=l1 Originator's ID (normal setting) 
=0 Owner's ID 


ELS IZE Not specified for events 
ERN Reference number of an event 


MAXLEN Maximum number of entries which can be placed on the 
queuc for a particular event. May be from 1 to 16. 


MESSAGE One word message to be transmitted to the notified 


process 
MODE Specifies event mode (Bit 17) and event type(Bit 16) 
Bits 16-17 00 -- Steady state mode, regular event 
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Parameter Summary for Event Primitive Macro Calls (Continued) 


Parameter Meaning 


NUMBER 
RN 
STATE 


SWITCH 


TIMLIM 


TRAP 


TRAPC 


10 -- Transient mode, regular event 
11 -- Transient mode, event of type ''pass' 
10 -- Error. Pass event must be transient 


Number of processes which are to be notified 
Reference number of a file or an event 


Only those processes on the event queue whose state 
matches that specified by 'STATE' will be trapped as a 
result of a CAUSE. Must be set to zero for steady 
state events. 


Bit 17 Behalf indicator. ON if originator's behalf 
(normal setting) 
Bits 15-16 Not specified for events 


Maximum time a process allowed to wait for an event 
to be caused. Expressed in seconds up to a maximum 
of 1800. 


Trap location associated with the issuance of the 
primitive. 


Trap location associated with the causing of event ‘ERN'. 
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REGISTER ASSIGHEEN. CUR SYIDECI ribiiivco 


REGISTER ASSIGNMENTS 


PRMITIVE A X3 n4 X5 XS XT 
UP TAULT VECTOR - a 
eT UP SQUEEZE RODE 
CNTeR SQUEEZE WOCE Cc. 
Ee cae 
7:10, See Nae a a Sete tes = 
FinnOOM READ aaa FaN F-LELUC CORELCE q 
RANDOM WSITE ees TRaP | FRAN FILELOC CORELOC ee eee me 
Pscratcw rue —S—SSCSCSCS SS [reap _| FRA PeGeMee ge oe e 
SET PO:uTER : Be CRE Meee 
REQUEST STATUS 
REMICST DATE ANO TIME 
RiQUEST ELAPSED RUN TIME 
SPAWN 
TERMINATE 
PAUSE 
GPEN SEGMENT 
CLOSE SCGHENT 
Chewof SEOMENT LeduTH eee 
EXCHANGE SCGRENT eae 
CRIN 4 [| Trae ELSZE 
CLOSE. ea ees er a NEE Cain ERE 
CATALOG T=SIZE 
DESTROY Pees See oe T~S'ZE BHALF 
OPEN SCRATCH eae Sea eee MAXLEN et ELSIZE 
UPOATE is RI eee 
CaELCG DIRECTORY é 
WRITE ACCESS CONTROL LIST Se | TRAP | T SIZE BUF SZE 
READ ACC'SS CONTROL LIST es es ee BHALF NUMBER 
READ CIRECTORY a ee Ee T- NAME T-SIZE Bu ALF BUFSZE 
CPEN WORKING DIRECTORY eee Ree a es: T=SIZE 
BEAD ERANCH eee pee eee TRAP | SYS'> BUFLOC T-nave/ RM | T-SIZE/ 0 BHALF ~ 
READ LINK are See TRAP BUFLOC T-RAME | T~SIZE BUFSZE 
“WRITE SYSTEM INFORMATION eas a Ee Oe BUFLOC T-NAME/ FAN HALF DELETE 
CATALOG LINK eee a L-RAME L-SIZE BHALF eee 
WRITE BR" HCH DY ete pitts isin cee es = a ey = s! BHALF 
LOCK eee ener Dees Eee Eee 
UNLOCK oie EE ean Rapin ee ence Cemaree means 
NOTIFY STATE aaa ES ees Eee 
bet Te eutRY 343 ee ee ed = 
UREA caacecaerares| ai] 
OPEN SCRATCH EVENT aes aoe 242 MODE a eee 
eee pee ee oe ce = 
Hiner sara eee 7 nen! etaesenn DIRE 
SYSTEA STATUS WSASUREVENTS Paces ON : BUFLOC feast oo Plan on 
MEASURE SEARO aE eee ices ieee) SEEN Bee 
TOR eeaaeny es 
WR ME _PLOC LENGTH __ |! 
WHO AM I Hn CORELOC es 
QuTPIT BEALUREWENTS le eed ner Geena MEER a 
REQUEST WORKING DIR Paseo dl CORELGC 


APPENDIX D 


SUMMARY OF MACRO PROTOTYPES FOR SYSTEM PRIMITIVES 


SETFV 


SETSQ 


SQUEZ 


READ 


MACRO 
REM 


SETFV 


SETSQ 


READ 


MACROS FOR CONTROL PRIMITIVES (CODE NUMBERS 1 THRU 3) 


TRAP, CORELOC 


SETUP FAULT VECTOR CODE NUMBER 
TRAP ADDRESS 
LOCATION OF SLAVE FAULT VECTOR 


TRAP, LOCTBL 


SETUP SQEEZE MODE PRIMITIVE CODE NUMBER 
TRAP ADDRESS 
LOCATION OF SQUEZE TABLE 


TRAP ,REGS, IC 


SQUEEZE PRIMITIVE CODE NUMBER 

TRAP ADDRESS 

LOCATION OF REGISTER SETTINGS 

INSTRUCTION COUNTER INDICATORS 


MACROS FOR I/O PRIMITIVES (CODE NUMBERS 4 THRU 10) 


TRAP, FRN,CORELOC ,N,MODE 


MACROS FOR I/O PRIMITIVES (CODE NUMBERS 4 THRU 10) cont'd 


READ TRAP, FRN,CORELOC ,N,MODE 
READ LDXO 4 ,DU READ PRIMITIVE CODE NUMBER 
LDX1 #1 TRAP ADDRESS 
LDX2 #2 FILE REFERENCE NUMBER 
LDX4 #3 STARTING LOCATION IN SLAVE AREA FOR READ 
LDX5 #4 _ NUMBER OF ELEMENTS TO BE READ 
LDX6 #5 MODE INDICATOR - DEVICE DEPENDENT 
SPECIFY ING 
MME 0 ISSUE THE READ 
REM 
ENDM 
APEND TRAP,FRN,CORELOC,N,MODE 
END MACRO 
LDXO 5,DU | APEND PRIMITIVE CODE # (I.E. SEQUENTIAL 
WRIT) 
LDX1 #1 TRAP ADDRESS 
LDX2 #2 FILE REFERENCE NUMBER 
LDX4 #3 STARTING LOCATION IN SLAVE AREA FOR WRITE 
LDX5 #4 NUMBER OF ELEMENTS TO BE WRITTEN 
LDX6 #5 DEVICE DEPENDENT MODE INDICATOR FOR WRITE 
MME 0 ISSUE THE WRITE 
REM 
ENDM 
RRF TRAP,FRN,FILELOC ,CORELOC ,N 
RRF MACRO 
REM 
LDXO 6 ,DU RANDOM READ CODE NUMBER 
LDX1 #1 TRAP ADDRESS | 
LDX2 #2 FILE REFERENCE NUMBER 
LDX3 is #3 STARTING LOC. IN FILE FOR READ 
(ELEMENT # ) 
LDX4 #4 STARTING LOC. IN SLAVE AREA FOR READ 
(WORD) 
LDX5 #5 NUMBER OF ELEMENTS TO BE READ 
MME 0 ISSUE THE RANDOM READ 
REM 
ENDM 
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MACROS FOR I/O PRIMITIVES (CODE NUMBERS 4 THRU 10) cont'd 


SCR 


SPTR 


SCR 


SPTR 


D-3 


TRAP, FRN, FILELOC ,CORELOC ,N 


RANDOM WRITE CODE NUMBER 

TRAP ADDRESS 

FILE REFERENCE NUMBER 

STARTING LOCATION IN FILE FOR WRITE 
(ELEMENT ) 

STARTING LOC. IN SLAVE AREA FOR WRITE 
(WORD ) 

NUMBER OF ELEMENTS TO BE WRITTEN 
ISSUE THE RANDOM WRITE 


TRAP, FRN, FILELOC 


SCRATCH PRIMITIVE CODE NUMBER 
TRAP ADDRESS 

FILE REFERENCE NUMBER 

ELEMENT IN FILE TO SCRATCH FROM 
ISSUE THE SCRATCH REQUEST 


TRAP, FRN,N 


SET POINTER CODE NUMBER 

TRAP ADDRESS 

FILE REFERENCE NUMBER 

## OF ELEMENTS READ PTR IS SHIFTED 
ISSUE THE SCRATCH COMMAND 


MACROS FOR I/O PRIMITIVES (CODE NUMBERS 4 THRU 10) cont'd 


RQST TRAP,RN 
RQST MACRO 
REM 
LDXO 10,DU REQUEST STATUS CODE NUMBER. 
LDX1 #1 TRAP ADDRESS 
LDX2 #2 FILE OR EVENT REFERENCE NUMBER 
MME 0 
REM 
ENDM 


MACROS FOR CONTROL PRIMITIVES (CODE NUMBERS 11 THRU 19) 


RQDT NO ARGUMENTS 
RQDT MACRO 
REM 
LDXO 11,DU § REQUEST DATE AND TIME PRIMITIVE CODE 
NUMBER 
MME 0 
REM 
ENDM 
RQERT NO ARGUMENTS 
RQERT MACRO 
REM 
LDXO 12,DU | REQUEST ELAPSED RUN TIME CODE NUMBER 
MME 0 
REM 
ENDM 
SPAWN ‘TRAP, PLOC, LENGTH 
SPAWN MACRO 
REM 
LDXO 13;DU § SPAWN PRIMITIVE CODE NUMBER 
LDX1 #1 TRAP ADDRESS 
LDX4 ss #2 STARTING ADDRESS OF PARAMETER LIST FOR 


SPAWN 


MACROS FOR CONTROL PRIMITIVES (CODE NUMBERS 11 THRU 19) cont'd 


SPAWN TRAP, PLOC, LENGTH 


SPAWN LDX5 #3 NUMBER OF WORDS IN ABOVE PARAMETER LIST 
LDQ #4 ORIGINATOR (FOR SPECIAL SPAWN) 
MME 0 
REM 
ENDM 
TERM NO ARGUMENTS 
TERM MACRO 
REM 
LDXO 14 ,DU TERMINATE PRIMITIVE CODE NUMBER 
MME 0 
REM 
ENDM 


PAUSE NO ARGUMENTS 


PAUSE MACRO 
REM 
LDX0 15 ,DU PAUSE PRIMITIVE CODE NUMBER 
MME 0 
REM 
ENDM 


MACROS FOR CONTROL PRIMITIVES (CODE NUMBERS 11 THRU 19) 


OPSEG TRAP, SEGNUM, LENGTH 


OPSEG MACRO 
REM 
LDX0O 16 ,DU OPEN SEGMENT PRIMITIVE CODE NUMBER 
LDX1 #1 TRAP ADDRESS 
LDX2 #2 SEGMENT NUMBER (SPECIFIED BY USER PROCESS) 
LDX3 #3 LENGTH OF SEGMENT TO BE OPENED 
MME 0 
REM 
ENDM 


MACROS FOR CONTROL PRIMITIVES (CODE NUMBERS 11 THRU 19) cont'd 


CLSEG TRAP, SEGNUM 


CLSEG MACRO 
REM 
LDXO 17,DU CLOSE SEGMENT PRIMITIVE CODE NUMBER 
LDX1 #1 TRAP ADDRESS 
LDX2 #2 SEGMENT NUMBER 
MME 0 
REM 
ENDM 
CHSEG  TRAP,SEGNUM, LENGTH 
CHSEG MACRO 
REM 
LDXO 18,DU § CHANGE SEGMENT LENGTH PRIMITIVE CODE 
NUMBER 
LDX1 #1 TRAP ADDRESS 
LDX2 #2 SEGMENT NUMBER 
LDX3 #3 DESIRED SEGMENT LENGTH 
MME 0 
REM 
ENDM 
EXSEG  TRAP,SEGINUM,SEG2NUM 
EXSEG MACRO 
REM 
LDXO 19,DU | EXCHANGE SEGMENT PRIMITIVE CODE NUMBER 
LDX1 #1 TRAP ADDRESS 
LDX2 #2 SEGMENT 1 NUMBER 
LDX3 #3 SEGMENT 2 NUMBER 
MME 0 
REM 
ENDM 


MACROS FOR FILE PRIMITIVES (CODE NUMBERS 20 THRU 37) 


OPEN TRAP, TNAME,TSIZ,BHALF ,ELSIZ,ACCESS 


OPEN MACRO 
REM 
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MACROS FOR FILE PRIMITIVES (CODE NUMBERS 20 THRU 37) cont'd 


OPEN TRAP, STATUS , TNAME , TSIZ , BHALF ,ELSIZ , ACCESS 
OPEN LDXO 20,DU OPEN PRIMITIVE CODE NUMBER 
LDX1 #1 TRAP ADDRESS 
LDX4 #2 LOCATION OF TREE NAME 
LDX5 #3 NUMBER OF WORDS IN TREE NAME 
LDX6 #4 BEHALF INDICATOR 
LDX7 #5 ELEMENT SIZE 
LDQ #6 REQUESTED ACCESS 
MME 0 
REM 
ENDM 
CLOSE _ TRAP,RN 
CLOSE MACRO 
REM 
LDXO 21,DU CLOSE PRIMITIVE CODE NUMBER 
LDX1 #1 TRAP ADDRESS 
LDX2 #2 FILE OR EVENS REFERENCE NUMBER 
MME 0 
REM 
ENDM 
CATLOG TRAP,RN,TNAME,TSIZE, SWITCH ,UACCESS ,OACCESS 
CATLOG MACRO 
REM 
LDXO 22,DU  CATLOG PRIMITIVE CODE NUMBER 
LDX1 #1 TRAP ADDRESS 
LDX2 #2 FILE OR EVENT REFERENCE NUMBER 
LDX4 #3 LOCATION OF TREE NAME 
LDX5 #4 NUMBER OF WORDS IN TREE NAME 
LDX6 #5 SWITCH INDICATOR 
LDA #6 UNIVERSAL ACCESS 
LDQ #7 OWNER'S ACCESS 
MME 0 
REM 
ENDM 
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MACROS FOR FILE PRIMITIVES (CODE NUMBERS 20 THRU 37) 


DESTRO TRAP,TREE-NAME, TREE-SIZE, BEHALF 


DESTRO MACRO 

REM 

LDXO 23,DU DESTROY PRIMITIVE CODE NUMBER 

LDX1 #1 TRAP ADDRESS 

LDX4 #2 TREE NAME LOCATION 

LDX5 #3 NUMBER OF WORDS IN TREE NAME 

LDX6 #4 BEHALF 

MME 0 

REM 

ENDM 

OPENS  TRAP,DEVID,MAXLEN,ELSIZE 

OPENS MACRO 

REM 7 

LDXO 24,DU  # OF THE OPEN SCRATCH COMMAND 

LDX1 #1 TRAP ADDRESS 

LDX4 #2 DEVICE ID 

LDX5 #3 MAXIMUM FILE LENGTH IN ELEMENTS 

LDX7 #4 ELEMENT SIZE IN BITS 

MME 0 

REM 

ENDM 

UPDATE  TRAP,FRN 

UPDATE MACRO 

REM 

LDXO 25,DU # OF UPDATE COMMAND 

LDX1 #1 TRAP ADDRESS 

LDX2 #2 FILE REFERENCE # 

MME 0 

REM 

ENDM 

: CATDIR TRAP,TNAME,TSIZE,BHALF ,UACCESS ,OACCESS 
CATDIR MACRO | 

REM 

LDXO 26,DU §_CATLOG DIRECTORY PRIMITIVE CODE NUMBER 
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MACROS FOR FILE PRIMITIVES (CODE NUMBERS 20 THRU 37) cont'd 


CATDIR TRAP, TNAME,TSIZE,BHALF ,UACCESS ,OACCESS 


CATDIR LDX1 #1 TRAP ADDRESS 
LDX4 #2 LOCATION OF TREE NAME 
LDX5 #3 NUMBER OF WORDS IN TREE NAME 
LDX6 #4 | BEHALF INDICATOR 
LDA #5 UNIVERSAL ACCESS 
LDQ #6 OWNER'S ACCESS 
MME 0 : 
REMC 
ENDM 


WRACL  TRAP,BUFLOC, TNAME, TSIZ ,BHALF , BUFSIZ 


WRACL MACRO 
REM 
LDXO 27,DU WRITE ACCESS CONTROL LIST CODE NUMBER 
LDX1 #1 TRAP LOCATION 
LDX3 #2 BUFFER LOCATION 
LDX4 #3 LOCATION OF TREE NAME 
LDX5 aa NUMBER OF WORDS IN TREE NAME 
LDX6 #5 BEHALF INDICATOR 
LDX7 #6 BUFFER SIZE 
MME 0 
REM 
ENDM 
RDACL TRAP, INDEX, BUFLOC , TNAME, TSIZ , BHALF , NUMBER 
RDACL MACRO 
REM 7 
LDXO 28,DU §-_- READ ACCESS CONTROL LIST CODE NUMBER 
LDX1 #1 TRAP LOCATION 
LDX2 #2. INDEX INTO ACL FOR READ TO BEGIN 
LDX3 © #3 BUFFER LOCATION 
LDX4 #4 LOCATION OF TREE NAME 
LDX5 #5 NUMBER OF WORDS IN TREE NAME 
-LDX6 #6 BEHALF INDICATOR 
LDX7 #7 NUMBER OF ACL ENTRIES TO BE READ 
MME 0 
REM 
ENDM 
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MACROS FOR FILE PRIMITIVES (CODE NUMBERS 20 THRU 37) cont'd 


RDDIR 


OPENW 


RDBRN 


RDDIR 


29 ,DU 


#1 
#2 
#3 


RDBR 


TRAP, INDEX , BUFLOC , TNAME , TSIZ , BHALF , BUFSIZ 


READ DIRECTORY CODE NUMBER 

TRAP ADDRESS 

INDEX IN DIRECTORY OF FIRST BRANCH READ 
SLAVE LOC. WHERE BRANCH INFORMATION IS 
STORED 

LOCATION OF TREE NAME 

NUMBER OF WORDS IN TREE NAME 

BEHALF INDICATOR 

SIZE OF BUFFER WHERE BRANCH IS RETURNED 


TRAP, TREE-NAME , TREE-SIZE , BEHALF 


OPEN WORKING DIRECTORY CODE NUMBER 
TRAP LOCATION 

LOCATION OF TREE NAME 

NUMBER OF WORDS IN TREE“ NAME 
BEHALF INDICATOR 


TRAP, SYSID, BUFLOC , TNAME , TSIZE , BEHALF 


READ BRANCH PRIMITIVE CODE NUMBER 
TRAP ADDRESS 

SYSTEM ID 

STARTING LOCATION OF BUFFER 
LOCATION OF TREE NAME 

NUMBER OF WORDS IN TREE NAME 
BEHALF INDICATOR 


MACROS FOR FILE PRIMITIVES (CODE NUMBERS 20 THRU 37) cont'd 


RDLNK 


WS INF 


CATLK 


RDLNK 


WS INF 


CATLK 


34 ,DU 


TRAP, BUFLOC , TREENAME , TREES IZE, BHALF , BUFSZE 


READ LINK PRIMITIVE CODE NUMBER 
TRAP ADDRESS 

STARTING LOCATION OF BUFFER 
LOCATION OF TREE NAME 

NUMBER OF WORDS IN TREE NAME 
BEHALF INDICATOR 

SIZE OF BUFFER 


TRAP, SYSID, BUFLOC , TNAME, TSIZ , BHALF , DELETE 


WRITE SYSTEM INFORMATION CODE NUMBER 
TRAP LOCATION 

SYSTEM ID 

LOCATION OF FOUR WORD INF BUFFER 
LOCATION OF TREE NAME 

NUMBER OF WORDS IN TREE NAME 

BEHALF INDICATOR 

DELETE SWITCH (=1 DELETE) 


TRAP, LNAME , LS1Z , TNAME, TS1Z , BHALF 


CATLOG LINK CODE NUMBER 

TRAP LOCATION 

LOCATION OF NAME TO BE CATALOGUED IN LINK 
NUMBER OF WORDS IN ABOVE NAME 

LOCATION OF TREE NAME OF DIRECTORY 

NUMBER OF WORDS IN TREE NAME FOR -X4- 
BEHALF INDICATOR 
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MACROS FOR FILE PRIMITIVES (CODE NUMBERS 20 THRU 37) cont'd 


WTBRN 


LOCK 


UNLCK 


MACROS FOR 


NOTIF 


ENDM 


WIBRN 


UNLCK 


TRAP, BUFLOC ,TREE_NAME,TREE_SIZE,BEHALF 


WRITE BRANCH CODE NUMBER 
TRAP LOCATION 

STARTING LOCATION OF BUFFER 
TREE NAME LOCATION 

## WORDS IN TREE NAME 

BEHALF INDICATOR 


TRAP ,RN 


LOCK PRIMITIVE CODE NUMBER 
TRAP ADDRESS 
FILE OR EVENT REFERENCE NUMBER 


TRAP ,RN 


UNLOCK PRIMITIVE CODE NUMBER 
TRAP ADDRESS 
FILE OR EVENT REFERENCE NUMBER 


EVENT PRIMITIVES (CODE NUMBERS 38 THRU 42) 


NOTIF 


TRAP, ERN , TRAPC , STATE 


NOTIFY EVENT PRIMITIVE CODE NUMBER 
TRAP LOCATION FOR COMPLETION OF NOTIFY 


EVENT REFERENCE NUMBER 


TRAPC LOC (CNTRL RETURNED WHEN EVNT CAUSED) 


STATE 


D-12 


MACROS FOREVENT PRIMITIVES (CODE NUMBERS 38 THRU 42) cont'd 


CAUSE 


DELET 


UNCAU 


CAUSE 


39 ,DU 
#1 


DELET 


UNCAU 


TRAP, ERN, NUMBER , STATE , MESSAGE ,RN , ACCESS 


CAUSE PRIMITIVE CODE NUMBER 

TRAP ADDRESS 

EVENT REFERENCE NUMBER 

NUMBER OF PROCESSES TO BE TRAPPED 
REFERENCE # FOR PASS EVENT 

ACCESS FOR PASS EVENT 

STATE 

MESSAGE 


TRAP, ERN, STATE 


DELETE EVENT PRIMITIVE CODE NUMBER 
TRAP ADDRESS 

EVENT REFERENCE NUMBER 

STATE 


TRAP, ERN, NUMBER 


UNCAUSE EVENT CODE NUMBER 

TRAP ADDRESS © 

EVENT REFERENCE NUMBER 

NUMBER BY WHICH CURRENT COUNT DECREASED 


MACROS FOR CONTROL PRIMITIVES (CODE NUMBERS 45 THRU 51) 


CPSCE TRAP, TIMLIM, MODE , MAXLEN 


OPSCE MACRO 
REM 
LDXO 42,DU OPEN SCRATCH EVENT CODE NUMBER 
LDX1 #1 TRAP ADDRESS 
LDX3 #2 TIME LIMIT 
LDX4 #3 MODE (STEADY-S-00, TRANS-01, PASS EVNT-11) 
LDX5 #4 MAXIMUM QUEUE LENGTH 
MME 9) 
REM 
ENDM 
MSTA TRAP, PLOC , LENGTH, BUFLOC 
MSTA MACRO 
REM 
LDXO 45 ,DU SYSTEM STATUS MEASUREMENTS CODE NUMBER 
LDX1 #1 TRAP ADDRESS 
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REM 
ENDM 
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REM 
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REM 
ENDM 
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ENDM 
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MME 0 
REM 
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REM 
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LDX4 #2 CORE LOCATION 
MME 0 
REM 
ENDM 
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REM 
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MME 0 
REM 
ENDM 
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MICRO@CODED PrivILEGED PRIMITIVE 
SET UP FAULT VECTOR 

SET UP SQUEEZE MODE 
ENTER SQUEEZE MODE 

READ 

APPEND 

READ RANDOM FILE 

WRITE RANDOM FILE 
SCRATCH 

SET POINTER 

REQUEST STATUS 

REQUEST DATE AND TIME 
REQUEST ELAPSED RUN TIME 
SPAWN 

TERMINATE 

PAUSE 

QPEN SEGMENT 

CLOSE SEGMENT 

CHANGE SEGMENT LENGTH 
EXCHANGE TWO SEGMENTS 
OPEN 

CLOSE 

CATALOGUE 

DESTROY 

OPEN SCRATCH 

UPDATE 

CATALOGUE DIRECTORY 
WRITE ACCESS CONTROL LIST 
READ ACCESS CONTROL LIST 
READ DIRECTORY 

OPEN WORKING DIRECTORY 
READ BRANCH 

READ LINK 

WRITE SYSTEM INFORMATION 
CATALOGUE LINK 

WRITE BRANCH 

LOCK 

UNLOCK 


300 
310 


330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 


MBR 


04 


09"17=71 


692937 


000046 
000047 
00900050 
con05! 
000052 
000055 
000056 
900057 
000060 
000061 
000063 


INPUT/OUTPUT SCHEDULER == J0S MONITOR 


PAGE 


DEFINITIONS OF EXECUTIVE SYSTEM CONSTANTS 


176 eNOTIF EQU 38 
177 CAUSE EQU 39 
178 sDELET EQU 40 
179 eJNCAU EQU 44 
180 .OPSCE EQU 42 
181 «MSTA EQU 45 
182 eRDME EGU 46 
163 .«CRSG EQU 47 
184 ewTME EQU 48 
185 eWAMI EQU 49 
186 «RQWD EQU $1 


187 *$» DISK XBITS 


NOTIFY 

CAUSE 

DELETE EVENT 

UNCAUSE EVENT 

OPEN SCRATCH EVENT 

SYSTEM STATUS MEASUREMENTS 
MEASURE READ ME 

CREATE SEGMENT 

WRITE ME 

WHO AM I 

REQUEST wORKING DIRECTORY 


MBR 


of 


09—"17=71 


090937 


002000 
091000 
n00400 
oo0200 
090100 
n000406 
n00020 
000010 
000004 
q00002 
000001 


400000 
200000 
100000 
040000 
920000 
010000 
004000 
No2000 
001000 
000400 
000200 


000020 
000010 
oo0004 
go00002 
000001 
000037 
000004 
000002 


INPUT/OUTPUT SCHEDULER == TOS MONITOR 


BIT AND STATUS DEFINITIONS 


189 
190 
191 


* 
* 
% 
193 * 
194 * 
195 * 
* 

198 RPT 
199 ABIT 
200 SBIT 


202 TZE 
203 TNZ 


HEAD 


BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 


BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 


BOOL 
EQU 
EQU 
EOU 
EQU 
EQU 
BOOL 


_ Eu 


PAGE 7 

B 110 
120 

130 

Str DEFINITIONS 140 

150 

160 

170 

DEFINITIONS FOR REPEAT INSTRUCTIONS 180 
190 

002000 COUNT FIELD FOR RPT INSTRUCTIONS 200 
001000 INCREMENT FIRST INDEX REGISTER 210 
000496 INCREMENT SECOND INDEX REGISTER 220 
000200 LOAD C(xg) FROM REPEAT INSTRUCTIAN 230 
000100 FERO ; 240 
009040 NON ZERO 250 
000020 NEGATIVE 260 
Oo0010 POSITIVE 270 
000004 CARRY 280 
000002 NO CARRY 290 
009001 OVERFLOW 300 
310 

320 

DEFINITIONS FOR INDICATOR REGISTER 330 
340 

400000 ZERO INDICATOR BIT 350 
200006 NEGATIVE 360 
100000 CARRY 370 
049000 OVERFLOW 380 
020000 EXPONENT OVERFLOW 390 
019000 EXPONENT UNDERFLOW 400 
004000 OVERFLOW MASK == ON PREVENTS OVERFLOW FAULTS 
002000 TALLY RUNOUT 420 
001000 PARITY ERROR 430 
000400 PARITY ERROR MASK 440 
000200 MASTER MODE 450 
460 

470 

DEFINITION FOR ACCESS BITS 480 
490 

20 READ ACCESS §00 
RD/2 WRITE 510 
WT/2 APPEND 520 
AP/2 EXECUTE 530 
EXx/2 LOCK 540 
RD+wT+APoEXelLK ALL 550 
4 NOTIFY 560 
NO/2 CAUSE 570 
580 


MBR O1 Q9—17=7}4 094937 


B 


900010 
oonao4 
400000 
000000 
oo0001 
nooo002 


000000 
000001 
000000 
o00002 


INPYT/OUTPYT SCREDULER |©= 10S MONITOR 


238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 


BIT AND STATUS DEFINITIONS 


BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 


BOOL 
BOOL 
BOOL 
BOOL 


PAGE 


DEFINITION FOR SPAWN BITS 


10 

4 
400000 
0 

1 

2 


DEFINITIONS FOR 


NYO” Oo 


CORE END SEGMENY 

PROESS TO KNOW OF ITSELFe=8ASTARN SIT 
WRITE PROTECTED 

VOID SEGMENT 

SPAWN FROM PARENT®S SEGMENT 

SPAWN FROM PARENT?’S FILE 


MODE BIts AND PAss INDICATORS 


STEADY STATE 
TRANSIENT 

NOT OF TYPE PASS 
PASS EVENT 


MBR OL 99"17=71 7190937 


B 


090000 
abolanehop: 
Qong0e2 
gono0s 
090004 
no0005 
090006 
000007 
Ooooil 
no0dle 
0000135 
090016 
000026 
000035 


090005 
00n007 
ooo00i1 
ooo001s 
no00016 


Q00004 


oo0011 


000077 
400000 
490000 
200000 
190000 
040000 


INPUT/OUTP YT SCHEQYULER |-= 105 MONITOR 


257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
259 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
251 
282 
283 
284 
285 
286 
287 
288 
249 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
362 
303 
304 
305 
306 


STATIS DEFINITIONS 


#2e+eweweeeemnrse & # HF 


@O * 
-— 
z 
x 


SIGN 
TERM 
DELIM 
DIGIT 
OPR 


BOOL 
BOOL 
BOOL 
BOOL 


BOOL © 


BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 


BOOL 
BOOL 
BOOL 
BOOL 
BOOL 


BOOL 


BOOL 


BOOL 
BOOL 
BOOL 
EQU 
EQU 
EQU 


PAGE 


DEFINITIONS FOR EXEC STATUS RETURNS 


LOGICAL sTATUS CNDE FOr 1/0 PRIMITIVES 


00 
01 
02 
03 
04 
5 


OK 

INVALID FRN 

INVALID aCCESS SPECIFIED 
EXECUTIVE TOO 3USY 

INVALID OPERATION FOR THIS DEVICE 
COPY POINTER IS OUT OF BOUNDS 


790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 


AMOUNT REQUESTED GREATER THAN FILE LENGTHOIO 
FLEMENT SIZE IS NOT A MULTIPLE OF UNIT SIZEQ 


INVALID MODE 


HARDWARE ERROR =@ OPERATION NOT COMPLETE 


DEVICE UNAVAILABLE (HARDWARE) 
FND@OFeFILE ENCOUNTERED 
NO FILE STORAGE AVAILABLE 


TIMER RUN OuT ON OPERATOR? s CONSOLE 


LOGICAL stAus CODE FOR FILE AND EVENT PRIMITIVES 


5 
7 
11 
13 
16 


INVALID NAME 
UNRECOVERARLE ERROR 
TIME LIMIT EXCEEDED 
ITEMED LOCKED 
INVALID PASSWORD 


LOGICAL sTATUS CODES FOr CONTROL PRIMITIVES 


1/0 ACtIyIty IN PROGRESS 


LOGICAL sTATUS CODED FOr sPAWN AND CREATE SEGMENT? 


{1 


RESOURCES NOT AVAILABLE (800eHI Ss) 


MISCELLANEOUS BITS 


77 

400000 
400000 
TERM s2 
DELIM/2 
DIGIT/2 


STATUS BIT MASK 
SIGN BIT 
TERMINATOR BIT 
NELIMINATOR 
DIGIT 

OPERATOR 


930 

940 

950 

960 

970 

980 

990 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 


MBR OL O9—817=71 692937 


B 


091700 
740000 
000017 
920000 
a90001 
010000 
qonoo0!1 
97777 
097777 


002000 
004000 
006000 
010000 
012000 
014000 
016000 


900000 
002000 
004000 
006000 
010000 
012000 


INPUT/ 


308 
309 
310 
Bit 
312 
313 
314 
315 
316 
317 
318 
319 
320 
324 
322 
323 
324 
325 
326 
327 
328 
329 
330 
3314 
332 
333 
334 
335 
336 
337 
338 
339 
340 
3414 
342 
343 
344 


OUTPUT 


STATUS 


SCHEDULER w= 10S MONITOR PAGE 
DEFINITIONS 
DEFINITIONS FOR JSFLAG 
JSFLAGS (UPPER) 
BOOL 1700 MEDIA MASK FOR rCw (BITS 26 = 29) 
BOOL 7490000 JOB NUMBER MASK (TOP 4 BITS) 
BOOL 17 4 BIT MASK 
BOOL 020006 HEADER MASK (ON @ QUTPUT BANNER) 
BOOL 1 HEADER BIT MASK 
BOOL 019006 QUTPUT TYPE MASK (OFF # 5123 ON » 320) 
BOOL 1 OuTPUT BIT MASK 
BOOL 007777 START ADDRESS IN ELEMENTS OF JSBUFSZ 
BOOL 7777 BIT MASK 
COMMANDS RETURNED YO MONITOR 
BOOL 002000 PERIPHERAL GOTTEN (NOT SENT) 
BOOL 004090 PERIPHERAL KILLED 
BOOL 006000 PERIPHERAL RELEASED 
BOOL 010090 NOT USED 
BOOL 012000 PERIPHERAL RESTARTED 
BOOL 014000 JOB SUCCESSFULLY FINISHED 
BOOL 016000 READY PERIPHERAL 
COMMANDS SENT TO sUB=MODULES 
BOOL 009000 ABORT PERIPHERAL XXXX 
BOOL 002000 GET PERIPHERAL ¥XXXX 
BOOL 004000 KILL PERIPHERAL XXXX 
BOOL 006000 RELEASE PERIPHERAL xXXXX 
BOOL 019000 UNDEFINED 
BOOL 01200Cc RESTART PERIPHERAL XXXX 
DISK ASCI! 


10 


1300 
13510 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 


MBR OL O09917=71 092937 


B 


oqn000 
600004 
000007 
nogote 
000015 
200040 
900040 
600043 
200044 
600046 
000052 
200054 
000056 
240057 
100060 
000072 
200073 
000077 
000101 
000177 


000177 


INPUT/QNUTPUT SCHEDULER <= 


346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
3706 
371 
372 
373 


ASCII CHARACTERS 


HEAD 


BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 


BOOL 


A 


0 


4+3$D0ELIM+BSTERM 


7 

12 

15 
40+BSDELIM 
40 


Tas MONITOR 


ASCII CHARACTERS 


NyLt 

eEOT 
RELL 
LINE FEED 
CARRIAGE RETURN 
SPACE 
BLANK 


43+BSVELIM*+#a3$TERM ASCII 4 


44+BSDELIM 


DOLLAR SIGN 


46+BSDELIM4+S8S$TERM ASCII AMPERSAND 


52 
54+8SDELIM 
56 


57+B8SDELIM+3S0PR 


6O+BSDIGIT 
72 
73+BSDELIM 
77 

101 

177 


177 


ASTERISK 

COMMA 

DECIMAL POINT 
SLASH 

DIGIT ZERO 

COLON 

SEMI-COLON 

QUESTION MARK 

LETTER A 

DELETE 


ASCII CHARACTER MASK 


pAGE 


il 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 


MBR O01 Q9"17=71 69937 INPUT/OUTPUT SCHEVULER == 10S MONITOR PAGE 12 


A SPECIAL ASCII TABLE 

375 HEAD A 400 

376 * 410 

377 « 420 

378 * SPECIAL ASCI! TABLE 430 

379 * 440 

380 * 450 

004620 381 use CONST 460 

094620 382 ASCTS BSS 0 470 

094620 000000200040 383 vFO O36/ASSP 480 
094621 onacocon004 384 vFO O36/41 l 490 
004622 cn00G0000042 385 vFD 036/42 " 500 
094623 000000600043 386 VFO O36/ASTERM # 510 
094624 oncn0dz00n44 387 vED O36/ASDOL $ 520 
004625 000000000045 388 yFD 036/45 % 530 
094626 000000600046 389 VFD O36/ASAMPER & 540 
094627 000000000047 390 VFD 036/47 ° 550 
004630 o0n000000050 391 VFO 036/50 ( 560 
904631 oonn000000S1 392 VFD 036/514 ) 570 
004632 000000000052 393 vFD 036/52 * 580 
004633 00000040053 394 vFD 036/53+BS0PR + 590 
094634 o00000200054 395 vFD O36/ASCOMMA » 600 
004635 000000040055 396 vFD 036/554BS0PR - 610 
004636 000000000056 397 VFD 036/56 é 620 
004637 9000000240057 398 vFD O36/ASSLASH / 630 
004649 6900000100060 399 VFD O36/60+BSDIGIT 0 640 
004641 000000100061 400 vFD O36/614BSDIGIT 1 650 
004642 900000100062 401i VFD 036/62+8SDIGIT 2 660 
004643 900000190063 402 VFO 036/63+BSDIGIT 3 670 
004644 900000100064 403 vVFD 036/64+BSDIGIT 4 680 
094645 000000100065 404 vFD 036/654+BSDIGIT § 690 

END OF BINARY CARD 10S00003 

004646 0900000100066 405 vFD 036/6648SDIGIT 6 700 
004647 000000100067 406 vFD 036/67+BSDIGIT 7 710 
004650 000000100070 407 vFD OI6/7C4+BSDIGIT 8 720 
004651 oon0oo100071 408 vFD O36/714+B8SDIGIT 9 730 
004652 000000000072 409 vFD 036/72 / 740 
094653 000000200¢C73 410 VFD O36/ASSCOL 3 750 
004654 900000040074 4il vVFD 036/74+BS0PR < 760 
004655 000000000075 412 VFD 036/75 = 770 
004656 0000060040076 413 vFD 036/76+BS80PR > 780 
094657 900000000077 414 vFD 036/77 ? 790 
000040 415 ASCLN EU e-ASCTB TABLE LENGTH 800 

no0000 416 USE PREVIOUS 810 


417 *$* DISK ACCOUNT 820 


MBR OL Ogal17=71 390937 


A 


0009000 
n90001 
no00002 
9000038 
000007 
n0001e2 
n00013 
090014 
900015 
090016 
000017 
n00020 
000021 
000022 
000023 
oo0024 
000025 
n90026 
000027 
900030 
o000s1 
n90032 
000033 
000035 
000037 


INPUT/OUTPUT SCHEDULER <= 


419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
636 
437 
438 
439 
440 
441i 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451i 
452 


ACCOUNTING Bh ocK DESCRIPTION 


#22 3s 82 @ 


® 

FAC 
TIMES 
DATES 
Ip 
SHOP 
UNUSED 
DISK 
DRUM 
OPCON 
Cp 

LP 
CORD 
UNUSED 
CLM 

MT 

AD 
UNUSED 
UNUSED 
MIP 
UNUSED 
UNUSED 
CPU 
CORE 
RL 
TIMEO 


e$u 


HEAL 


ACB 


THESE sYMBOLS ArRE USED IN REFERENCING SPECIFIED wORDS 


A 


TOS MONITOR 


IN THE ACCOUNTING CONTROL BLOCK (ACB), 


Equ 
EQU 
EQu 
EQU 
EQU 
SET 
EQu 
EQU 
EQU 
EQU 
EQU 
EQu 
SET 
EQU 
EQU 
EQU 
SET 
SET 
EGU 
SET 
SET 
EQU 
EQU 
EQU 
EQU 
DISK 


0) 

FaC+i 
TIMES+1 
DATES+¢1 
ID+4 
SHOP 43 
UNUSED+4 
DISKel 
DRUM] 
OPCON+1 
Cp+i 
LP+1 
CORN +41 
UNUSED+1 
CLM41 

MT +1 
ADe} 
UNUSED+4 
UNUSED+e] 
MIP+1 
UNUSED+1 
UNUSED+3 
CPU41 
CORE 42 
RL+9 

TcB 


FaCILI ty us€P FOR ACCESSED 
TEME OF START 

DATE OF START 

USER ID 

SHOP ORDER 

NOT USED 

DISK UNITS 

DRUM UNITS 
OPERATOR*®S CONSOLE 
CARD PUNCH 

LINE PRINTER 

CARD READER 

NOY USED 

CLM 10 

MAGNETIC TAPE 

AsD CONVERTER 

NoT USED 

NOT USED 

MEMORY INTERFACE PROCESSOR 
NOT USED 

NOY USED 

CPU TIME 

CORE PRODUCT 

RL NUMBER (TTY) 
TIME OFF 


PaGE 


i) 


092937 


020000 
990001 
900002 
000003 


000004 


000005 
0900906 
000006 
000007 
000030 


000027 
000026 
090025 
000024 
000023 
000022 
900021 
000020 


000017 
000016 
000015 
000014 
000013 
000012 
Oooo11 
000010 


INPUT/OUTPUT SCHEDUI ER == 


454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
496 
499 
500 


TRAP BLOCK DESCRIPTION 


HEAD 


T 


10S MONITOR 


PAGE 


TCE 


THESE SYMBOLS ARE USED IN REFERENCING SPECIFIED wORDS 
IN THE TRAP SLOCK (TBLOCK). 


EQu 
EQu 
EQU 
EQU 


EQU 


EQU 
EQU 
EQU 
EOU 
EOU 


Equ 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


GN — oO 


5 

6 
NCB 
7 
24 


LEN@=1 

TEMP] 
TEMP2@} 
TEMP3@=1 
TEMP4-} 
TEMPS=1 
TEMP6=4 
TEMP7=1 


FIRST STATUS RETURN WORD FROM EXEC 
SECOND STATUS RETURN WORD 

SAVED IC/IR WHEN EXEC SPRINGS TRaP 
CONTROL IS TRANSFERRED HERE WHEN EXEC 
SPRINGS THE TRAP. IT CONTAINS AN XED 
OF A CHAIN WHICH LINKS THE TRAP TO THE 
MASTER TASK QUEUE. 

(UPPER) RESTART ADDRESS FOR TASKS ON 
ON A QUEUE (SUCH AS THE QS$TASK) 
(LOWER) MAY RE USED TO SAVE RETURN 
FROM A REENTRANT ROUTINE 

(UPPER) LINK TO PREVIOUS TCB 

(UPPER) POINTER TO NCB 

(LOWER) POINTER TO JCB 

SPARE 

LENGTH oF TCB (NICE YF MULTIPLE oF 8) 


TEMPORARY STORAGE AT END OF BLOCK 
MORE TEMPORARY STORAGE 


NO ONE EXCEPT RSGETC SHOULD USE TEMPS = TEM16 


EQu 
EQU 
EQU 
EQU 
EQU 
EQU 
E@U 
EQU 
DISK 


TEMP8=} 
TEM9-1 
TEMLO=1 
TEM{1i-1 
TEML2~) 
TEMI3=1 
TEML4=1 
TEM{5=1 
JCB 


14 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
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T JOB CONTROL BLOCK DESCRIPTION 
512 HEAD J 110 

503 * 120 

504 * 130 

505 » JCR 140 

506 * 150 

507 * 160 

508 « 170 

509 * THESE SYMBOLS ARE USED IN REFERENCING SPECIFIED wORDs 180 

510 * IN THE JOB CONTROL SLOCK (HERAFTER CALL JC), 190 

Siti * 200 

000000 5i12 OFRN EQU 0 (UPPER) FRN OF ASSOCIATED INPUT FILE 210 
oo0001 513 OFLOC EQU OFRNel Ryw PTR POSITION OF INPUT FILE IN #QFRNG 220 
000002 514 FRN EQU OFLOC+1 FRN OF FILE TO BE PROCESSED 230 
N00008 515 TYPE EQU FRNG1 (UPPER) TYPE 240 
00n003 516 DISP €EQU TYPE (LOWER) DISPOSITION 250 
000004 517 AcOne E€QU DISP+! ACODE FOR ACCOUNTING 260 
000005 518 NCB EQu ACODE +1 (yPPER) Ptr TO NCB 270 
000005 519 TCB EQU NCB (LOWER) PTR TO TCB 280 
000006 520 STaTI €£0U NCB! INITIATE STATE FOR COMMUNICATIONS 290 
000007 521 Jorn EQU STATI 41 JoR NUMBER 300 
000007 522 sTart Equ JOB TERMINATE STATE FOR COMMUNICATIONS 310 
000010 523 MESS EQU STATT+1 MESSAGE FOR COMMUNICATIONS 320 
000011 524 BUF EQU MESS+1 WORKING BUFFER 330 
no0012 §25 SIZE EQU BUF 41 AMOUNT OF DATA TO BE PROCESSED 340 
000013 526 RES EQU SIZEs1 START OF RESOURCE REQUIREMENT LIST 350 
000026 527 TT SET RESs3e1@QFRNe7 ROUND TO MULTIPLE OF 8 360 
000020 528 TT SET TT/8*8 ROUND | 370 
000020 529 LEN EQU TT LENGTH OF JCB (MINIMUM LENGTH #® 46, ) 380 


530 #$« DISK NCB 390 


MBR OL O09—17—=71 C9.2937 


J 


oo00000 
noo00! 
000002 
000003 
fon004 
n00005 
000005 
000006 
000006 
000007 
000027 
000026 
000025 
000024 
000023 
000022 
000021 
000020 
000017 
000016 
000015 
000014 
090013 
000012 
qooo1!1 
000010 
0n0024 
090025 
000030 
000031 
000032 


000033 


000034 
000035 


INPUT/OUTPUT SCHEDU ER <= 


532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
5586 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 


NOTIFY BLOCK NESCRIPTION 


e=eewete #£e 8 


w 
SRW1 
SRW2 
RET 
XED 
TRA 
LINK 
RLINK 
NCB 
Jca 
ABBR 
TEMP1 
TEMP2 
TEmMP3 
TEMP4 
Temes 
TEMp6 
TEMP7 
TEMPS 
TEM9 
TEM10 
TEMLitL 
TEMI2 
TEM13 
TEML4 
TEM15 
TEM16 
ERN 
STATE 
OFRN 
OFLOC 
BUSy 


RUN 


QUEUE 
RES 


HEAD 


c 


TOS MONITOR 


PAGE 


NCB 


THESE SYMBOLS ARE USED IN REFERENCING SPECIFIED wOrRns 


IN THE NOTIFY BLOCK 


EQU 
EQU 
EU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EOU 
EQU 
EQu 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EOU 
EOU 
EQU 
EQU 
EQU 
EQU 


EQu 


EQU 
Eu 


(ALIAS NCB). 


A NCB Is A TCB WITH EXTRASe 


TSSRw! 
TSSRwW2 
TSRET 
TSXED 
TSTRA 
TSLINK 
LINK 
TSNCA 
T$JCR 
TSSPARE 
TSTEMP} 
TSTEMP2 
TSTEMPS 
TSTEMP4 
TSTEMPS 
TSTEMPS 
TSTEMP7 
TSTEMPS 
TSTEMS 
TSTEMIO 
TSTEMIL1 
TSTEML2 
TSTEM1L3 
TSTEM14 
TSTEML5 
TSTEMI6 
TEMP4 
TEMPS 
TSLEN 
QFRNGIL 
GFLOC41 


Busy+el 


RUN41 
QUEUE +! 


(LOWER) RESTART AFTER NOTIFY 


ASCII ABREVIATION OF NCB 


ERN FOR NOTIFY axwBENE NOTAsee 

STATE FoR NOTIFY ##eBENE NOTASee 
(UPPER) INPUT A FILE 

R/W PTR FOR "QFRNE 

NO. OF FILES CURRENTLY ACTIVE FROM THIS 
INPUT QUEUE FILE 

PTR TO RSOMAX FOR THE TYPE REQURCES 
NEEDED By THIS JOB. IF RSOMAX =» OQ, THEN 
SHOULD IGNORE HIM FOR NOW (SAVVY) 

PTR TO WAIT QeLIST TO PLACE JOB AN 
RESOURCE LIST (MUST BE LAST) 

THIS WAY WE TEST FIRST TO SEE IF WE 
HAVE ANY PERIHERAL AT ALL 


330 
340 
350 
360 


390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
WE 

550 
560 
570 
580 
590 


MBR 


01 


09917871 


C 


092937 


INPUT/OUTPUT SCHEUJULER <= 


NOTIFY BLOCK DESCRIFTIAN 


582 
583 
584 
585 
586 
587 
586 
589 
590 
591 
592 #1 
593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 FRAIL 
604 

605 

606 

607 

608 

609 

610 

6il 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 *$« 


zeetenetewes#e 


IGS MONITOR 


PAGE 


THIS MACRO IS USED TO GENERATE THE NECESSARY NOTIFY CONTROL 
BLOCKS FOR THE COMMUNICATIONS NETWORK. 


MACRO 
USE 
EIGHT 
BSS 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
UASCI 
puP 
DEC 
ARG 
ZERO 
DuP 
DEC 
ARG 
DEC 
DEC 
ARG 
ARG 
INE 
ZERO 
INE 
ZERO 
INE 
ZERO 
Dec 
ySE 
ENDM 
DISK 


LABEL» ABBR» RESTARTmADDsERNGSTATE sRSOMAX sD ILISTsRESsNOeRES eNO wees 


STORE 


0 
Os38TRO 
0,9 

020 

029 
kee 0 


Co #3 


*@CENC3R2*°CSJCB 


1,#2 
1516-4 
0 

#4 
#520 
1,2 


HID a >e 
8i0se#11 
HL 2a PP 
#120H13 
“i 
PREylOys 
NCB 
INPUT 


LABEL 

SRW13 SIMULATE A TIMER RUNQUT 
SRW2 

RET 

XED 

TRA 

LINK/ RESTART 

"NCB/ JcB POINT TO THEMSELVES 
ASCIT ABREVIATION 

TEMI16 THRU TEMPS 


ERN 
STATE 
TEMP2 & TEMP1 


QFRN 
QFLOC 
BUSY 
RUN PTR TO RSOMAX OF TYPE NEEDED 


Q-LIST PTR 
RESQURCE TYpPE/NUMBER NEEDED 


DITTO 


MARK END OF RESOURCE REQUIREMENT LIST 
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610 
620 
630 
640 
650 
660 
670 


690 
700 
710 
720 
730 
760 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 


MBR OL O9-17=71 192937 


C 


000000 
000001 
ooo0001 
do0002 


000002 


000008 
000004 


00000! 
000003 


090100 
004400 


INPUT/OUTPUT SCHEDULER <= 


623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 


INPUT DESCRIPTION FORMATS 


@22eee*# &@ 4H 8 


READ 


10S MONITOR 


PAGE 


THE INPUT FILES TO 83E PROCESSED ARE NAMED IN A FILE 


°PRINT@FILE=QuEUE’s OR 
ARE CATALOGED IN THE DIRECTORY eSYSOUTe, 


"PUNCH@=FILE@“QUEUE%. 80TH 


EACH FILE 


WHICH REPRESENTS A JOB IS NAMED IN A 64. WORD RECORD, 


THESE SYMBOLS ARE USED IN REFERENCING SPECIFIED WORDS 
IN THE RECORD. 


EQu 
Equ 
EQU 
EQU 


EQU 


EQU 
EQU 


EQu 
EQU 


EQu 
EQU 
DISK 


0 
1 
1 
2 


TYPE 


64 
S6*QBFS7 
0cB 


CHECKSUM OF OTHER 63, WORDS 
(UPPER) NUMBER OF WORDS IN TREE@NAME 
(LOWER) NON=7ERO MEANS NO BANNER 
(UPPER) TYPE OF FILE 

0 = 512 wORD EDITED BLOCK 

1 » 320 GECOS FORMAT 

(LOWER) DISPOSITION OF FILE 

0 = DESTROYs. SCRATCH, & CLOSE 
{is SCRATCH. & CLOSE 
2s CLOSE 
ACODE FOR BILLING 

START OF TREE@NAME 


TYPE MASK 
DISPOSITION MASK 


INPUT BUFFER SIZE 
ELEMENT SIZE » ONE RECORD 
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£10 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 


MBR OL 09"17=745 992937 


000000 
090001 
g00002 
oo00004 
N00006 
oon010 
oo0001e2 


No0013 
000014 
000015 
00016 


090017 
000020 


no0004 
noo0003 


INPUT/SOQUTPUT SCHEDUI FR <= 


656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
6738 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 


QUEUE MANAGEMENT QDEFINITIONS 


HEALD 


G 


10S MONITOR 


PAGE 


aCcB 


THESE SYMBOLS &4RE USED IN REFERENCING SPECYFLED worDS 
IN A NBLOCK GENERATEL By THE QUEUE MACRO, 


Equ 
EQU 
EQU 
EQU 
EQu 
EQuU 
EQU 


EQu 
EOU 
EQU 
EQU 
EQu 
EQU 


EQU 
EOU 
DISK 


0 
FIRST+i 
LASTe1 
XADDe2 
XENQe2 
XDEQ+2 
XINVe? 


BUSY+1 
MAX4} 

AVAIL 41 
SPARI+¢1 
SPAR2¢1 
ABBR+I 


4 
OFFST=}j 
cca 


POINTER TO First BLOCK OF QueEUE 
POINTER TO LAST BLOCK OF OLIEVE 
INSTRUCTION PAIR FOR ADDINGA BLOCK 
INSTRUCTION PAIR FOR ENQUEUEING 
INSTRUCTION PAIR For DEQUEVEING 
INSTRUCTION PAIR For INVERTING 
RESPONSIBLE BLOCK IF QUEVE IS Busy 
ZERO OTHERWISE 


410 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 


MAXIMUM NUMBER OF ITEMS ASSOCIATED WITH 0280 


NUMBER OF ITEMS CURRENTLY AVAILASLE 
SPAR1 

SPAR2 

ASCI!T ABBREVIATION OF QUEUE 

LENGTH OF QUEUE (WISE TO KEEP EVEN) 


OFFSET FOR QUEVE POINTER 
FORWARD LINK POINTER 


290 
300 
310 
320 
330 
340 
350 
360 
370 
380 


MBR OL O09"17=71 992937 INPUT/OUTPUT SCHEDULER == TOS MONITOR . PAGE 20 


Q CORE MANAGEMENT DEFINITIONS 
685 HEAD R 110 
686 * 120 
687 * 130 
688 * CCB 140 
689 * 150 
690 * 160 
691 * THESE SYMBOLS ArE USED IN REFERENCING SPECIFIED wORDs IN 170 
692 * A BLOCK ON THE FREE MEMORY LIST. 180 
693 * 190 
000000 694 LINKF Egu 0 POINTER TO SUCCESSOR (UPPER) 200 
o00000 695 LEN EQU LINKF TOTAL LENGTH (IN WORDS) OF BLOCK (LOWER) 210 
oo000! 696 LINKB EOU LINKF 41 POINTER TO PREDECCESSOR 220 


697 *$s DISK HEAD 230 


MBR OL O09°17=71 094937 


R 


000001 
000002 
000003 


000004 
000005 


000006 
000007 


777777 
525200 
525200 
000777 
000040 
777700 
000100 
000005 


INPUT/OUTP'IT SCHEDULER |= IS MONITOR 


699 
700 
701 
702 
703 
764 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 


GLOBAL DEFINITIONS 


2 es £8 8 8 


2#@e# #82 8e# ee 8 H&S 


ee ee TO ON ~< K~4 


ERROR 


wo 
Cc 
i>) 


BUGBUG 
CxmK 
TALyB 
TALMK 
TAL 
RTMAX 


HEAD 


HEAD 
HEAD 
HEAD 
HEAD 
HEAD 
HEAD 
HEAD 
HEAD 
HEAD 
HEAD 
HEAD 


GLOBALS 


HEAT SYMBOL USAGE 


xARHDWOOAOD 


GLOBAL AND EXEC CONSTANTS 
GENERAL PURPOSE BITS 
COMMUNICATIONS ROUTINES 

JCB SYMBOLS AND ROUTINES 
OPERATOR INTERFACE AND LOGGING 
QUEUE SYMBOLS AND ROUTINES 
RESOURCE ALLOCATION 

STATISTICS COUNTERS 

TRAP SYMBOLS AND ROUTINES 
DIAGNOSTIC ROUTINES 


INDEX REGISTER DEFINITIONS 


THE SYMBOLIC INDEX REGISTERS USED IN THIS PROGRAM ARE 
ONE CHARACTER SYMBOLS» DEFYNED UNDER EACH HEAD SYMBOL 
IN USE IN THE PROGRAM, 
SINCE IT IS USED FOR REPEAT INSTRUCTIONS.» SO IT IS NOT 


SYMBOLIC. 


HEAD 


Equ 
EQU 
EQU 
EQU 
EQU 
Equ 
EQU 


HEAD 
EQU 
BOOL 
SET 
BOOL 
BOOL 
BOOL 
BOOL 
EQuU 


Dela Joe QaRa ToX 


NED OF GEN 


INDEX REGISTER O IS SPECIAL. 


TRAP BLOCK POINTER 
TEMP 

TEMP 

TEMP 

QUEVES AND GENERAL USE 
JOB NUMBER 


PAGE 


LINK REGISTER FOR SUBROUTINE CALLS 


OTHER GLOBAL SYMBOLS 


71 
$25200 
BUG 
777 

40 
777706 
100 

5 


USED TO GENERATE MEMORy FAULTS 
BUGGING QUANTITY 

MRe Ge Me Ie Ae BUGGER 

STATUS MASK (9 BITS) 

TALLYB BIT 

MASK FOR TALLY COUNT FIELD 
TALLY DISPLACEMENT 

RETRY FRROR ONLY 5 TIMES 


2! 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
3530 
540 
550 
560 
570 
580 
590 
600 


MBR OL 09817871 092937 


004660 
094660 122125102105 
004666 111117123104 
END OF BINARY CARD 10800004 
000014 
n44000 
000037 
000000 


000000 


001000 
002000 
004001 


005300 


005300 000400 on0000 


005301 001000 000000 
005302 00635¢ 0000 00 
005303 007000 o000 00 


000000 


INPUT/OUTPUT SCHEDULER 


750 
751 
752 
753 
754 
755 
756 
787 
758 
759 
760 


761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 


GLOBAL CONSTANTS 


HEAD 


use 
UASCI 
UASCI 


EQU 
EQU 
BOOL 
USE 


EqQu 
EQU 
EQU 
EQu 


USE 
ZERO 
ZERO 
ARG 
ARG 
USE 
DISK 


@=- 10S MONITOR PAGE 
GLOSALS 

DUMPFILE PARAMETERS 

CONST 

6eRUBENS 

6210SDUMP 

#eDTNn TREE=SI7E 

36*542 ELEMENT SIZE (ONE PAGE OF CORE) 

BSALL 

PREVIOUS 

MEMORY MANAGEMENT PARAMETERS 

0 SEGMENT WHERE DYNAMIC BUFFER IS LOCATED 

512 QUANTUM FOR MEMROY REQUEST 

1024 ONE K DECIMAL 

2eiKel MAX MEMORY REQUEST/SHOT 

STORE 

2271020 MEMORY AVAILABLE 

MQUAN»S9 MEMORY REQUIREMENT/ NEED ONE UNIT ALWAYS 

ZTOPO END OF PROGRAM 

ZT0P TOP OF MEMORY 

PREVIOUS 


FAULT 


22 


620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 


730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 


MBR 


END 


OL 09°17=71 


00000 004106 
000001 c00370N 
on0002 000000 
000003 000370 
Q00004 9000006 
000005 060370 
000006 o00000 
000007 9000370 
6090010 900007 
On0011 000370 
onoo012 000000 
000013 000370 
000014 000009 
000015 000370 
000016 000000 
OF BINARY CARD 
6N0017 000370 
900026 000000 
090021 0900370 
on0022 000009 
0000235 900370 
000024 900000 
090025 000370 
000026 o00000 
000027 000370 
900030 000000 
000031 000370 
000082 000000 
090033 000370 
000034 9000000 
000035 000370 
000056 000000 
000037 000370 


690937 


N4090900 


000000 
000000 


7100 00 
7170 00 
600000 
7170 00 
000900 
7170 00 
cooooo 
7170 00 
cocaoo 
7170 90 
cacnoo 
7170 00 
co0000 
7170 00 
000000 
10800005 
7170 00 
900000 
7170 00 
oocooo 
7170 00 
000000 
7170 00 
coonoo 
7170 00 
000000 
7170 00 
coco00 
7170 00 
ooco000 
7170 oO 
000000 
7170 90 


INPUT/OUTPUT SCHEDULER == Ing MONITOR 


7&2 
783 
754 
785 
786 
787 
768 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
8038 
804 
05 
806 


897 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
8238 


LOW CORE ALLOCATION «= FAULT VECTOR 


USE 
HEAD 


CODE 
x 


FAULT VECTOR 


CONSINER ALL FAULTS FATAL 


ORG 
BSs 
TRA 
xED 
ZERO 
XED 
ZERO 
XED 
ZERO 
xED 
ZERO 
xED 
ZERO 
xED 
ZERO 
XED 
ZERO 


XED 
ZERO 
XED 
ZERO 
XED 
ZERO 
xED 
ZERO 
XED 
ZERO 
xED 
ZERO 
XED 
ZERO 
xED 
ZERO 
XED 


0 
0 

$uUP 
FAULT 
FAULT 
FAULT 
FAULT 
FAULT 
FAyLT 


FAULT 


FAULT 
FAULT 
FAULT 
FAULT 
FAULT 
FAULT 
FAULT 
FAULT 
FAULT 


IN CASE oF PRECEEDING ERRORS» ForRCE 27ERO 


FAULT VECTOR 
0 = SHUTDOWN 


i 
2 


8 


9 


MEMORY 

MASTER MODE ENTRY 
FAULT TAG 

TIMER RUNOUT 
COMMAND 

DERATIL 

LOCKyP 


CONNECT 


PARITY 


io = ILLEGAL OP CODE 


ii 
12 
13 
14 


15 


m OPERATION NOT COMPLETE 


STARTUP 
OVERFLOW 
DIVIDE CHECK 
EXECUTE 


PAGE 


23 


410 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 


360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
$00 
510 
520 


MBR 


END 


Ol Q9"17"71 690937 
Xx 
000040 
900040 
000050 c00900 cotooo 
900051 900009 antnon 
000052 
9900053 
000054 001101070701 


OF BINARY CARD 10800006 
000055 on0000 con0 60 


090056 
000056 


000160 
000170 00900 00 
000020 
000170 
000170 


000160 


825 
826 
827 
828 
829 
830 
831 
832 
8335 
834 
835 
836 
837 
838 
839 
840 


841 
842 
843 
844 
845 
846 
847 
848 
849 
851 
852 
653 
854 
655 
856 


INPUT/OUTPUT SCHEDULER <= 


10S MONITOR 


LOW CORE ALLOCATION e#= DEBUS STORAGE 


DEBUG STORAGE 


STORAGE FOR REGISTERS AND IC ON CRASH 


EIGHT 
Bss 
ZERO 
ZERO 


DATE AND TIME OF CRASH 


8 


STORAGE FOR CRASH REGISTERS 


Ic BEFORE FAULT 
1C AT FAULT 


DATE OF CRASH 
TIME OF CRASH 
ASSEMBLy DATE 


BAR SETTING WHEN CRASHED 


LEAVE LoTS OF ROOM 


FOR NESUGGING QuEUE 


BSS 1 
gss 1 
DATE 

ARG 0 
PATCH AREA 
EVEN 

BSs 64 
STORAGE 
EIGHT 

ARG DBGa 
EQU 16 
EIGHT 

BSS 8«DBGOQN 
DISK DIAG 


QUASH STUPTD ASSEMBLER BUG. 
POINTER TO NEyT ENTRy 
NUMBER OF ENTRIES 


RESERVE SPACE 


PaGE 


24 


540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 


700 
710 
720 
730 
740 
750 
760 
770 
780 
800 
810 
820 
830 
840 
850 


MBR 


END 


NL 09897871 
x 

000370 000051 
000371 000372 
000372 900040 
000373 900051 
000374 777776 
900375 000050 
000376 900013 
000377 o00000 
000400 000052 
000401 000024 
000402 000414 
000403 0904660 
000404 600014 
000405 o00001 
000406 044000 
OF BINARY CARD 
000407 000037 
000410 ocn00c00 
090411 000017 
000412 000000 
000413 000411 
000417 0900414 
000420 6900425 
000421 000414 
000422 000003 


094937 


090370 


1093570 


000401 


2200 
2210 
2240 
2250 
2260 
2270 


10800007 


2360 
oo10 


2200 
onio 
7100 


900414 


2220 
6010 
7200 
1000 


03 
03 
Os 
Os 
a3 
oR 


07 
090 


03 
00 
00 


00 
00 
00 
a3 


INPUT/NQUTPUT SCHEUW) ER =< 


858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
858 
889 
890 
891 
892 
893 


894 
895 
896 
897 
898 
899 
900 
901 
9n2 
903 
904 
915 
90 


DIAGNOSTICS 


@»eeeheeeneeeeesss *t 


FAULT 


Fri 


TRAP 


USE 
HEAD 


CODE 
x 


1aS MONITOR 


NIAGNOSTICS 


THIS SECTION IS ENTERED FROM THE FAULT VECTOR IN THE 


EVENT OF aA PROGRAMMING ERROR. 


PRESERVED. THE ENTIRE PROGRAM IS WRITTEN OUT INTO 


THEN REGISTERS ARE 


THE FILE RUBENS/LPCPDUMP. 


CONSINER ALL FAULTS FATAL, 


ENTER FROM THE FAULT VECTOR BY 


EVEN 
BSS 
sTC1 
TRA 
SREG 
LOX 
LDA 
STA 
LDX 
MME 
STAQ 


0 

Ic 

ol 

REGS 

Oe IC 

=-220 

ICi 

Os S.RODTADU 


DATE 


OPEN DUMP FILE 


BSS 
LDX 
LDX 
LDX 
LDX 
LDX 
LDX 


LDA 
MME 


0 

Oe 8.0PENSDU 
1. TRAP{,DU 
4,3DTNsDU 
5,3DTS7.DU 
6a ieDU 
7e$DES7,DU 


SDACCs IL 


PAUSE YILL OPENED 


LDX 
MME 
TRA 
BSS 
LDX 
TNZ 
LXL 
CmPxX 


OsS,PAUSEe DY 


a2 

3 

Ze TRAP 
FT2 
O,TRAP! 
0.38$887.Dy 


XED X$FAULT 


ENTRY POINT 

SAVE IC AND IR 

BREAK XED 

SAVE REGISTERS 

FIND ICe1 AT FAULT 
GET SAVED IC 

FOR SPECIAL LOCATION 
REQUEST DATE AND TIME 


SAVE DATE AND TIME 


OPEN THE DUMP FILE 
MME NUMBER 

TRAP 

TREE@NAME 
TREE@SIZE 

BEHALF 
ELEMENT@SIZE 


ACCESSES 
TRY OPENING 


PAUSE INDEFINITELY 

WAIT FOR TRAP 

KEEP WAITING 

TRAP ON DUMPFILE OPEN 

GET FRN 

DID WE REALLY GET IT OPEN? 
NO» SEE WHY NOT 

wAS THE EXEC too Busy? 


25 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 


470 
480 
490 
500 
310 
3520 
330 
540 
550 
560 
570 
580 
390 


MBR 


END 


OL O9"17=871 
xX 
000423 oon4ot 
000424 900470 
090425 on0016 
000426 900435 
000427 eoco4i4 
000430 oao0n0nco 
000431 oca000 
000432 0060017 
090433 oan000 
0N0434 000432 
00044q 906435 
OF BINARY CARD 
000441 900445 
090442 nonn03 
000443 000425 
000444 9¢6¢047n 
0006445 000007 
090446 Qgnoc461 
000447 000414 
000450 onGoon 
000451 9go0000 
090452 0n0055 
000453 000055 
0900454 000377 
090455 gn0000 
000456 000017 
000457 o00000 
000460 000456 
000464 000461 
0900465 900470 
000466 ogoc003 
090467 900445 
000470 000016 


990937 


000425 
2200 O38 
2210 03 
2220 00 
2239 03 
0010 00 


22°00 oO8 
9010 00 
7100 00 
090435 
7200 09 
1ns09008 
6009 00 
i000 o3 
60C0 00 
7100 00 


000445 
2200 O83 
2210 03 
2220 00 
2230 03 
2240 03 
5500 00 
2250 00 
3659 03 
9010 00 


907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921i 
922 
923 
924 
925 


926 
927 
926 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 


Fr2 


TRAP2 


Frs 


TRAPS 


TERM 


INPUT/OUTPUT SCHEDULER == 


DIAGNOSTICS 


TZE 
TRA 


SCRATCH 


Bss 
LOX 
LDX 
LDX 
LDX 
MME 


FTI 
TERM 


DUMP FILE 


i) 
Oo3.SCR»DU 
LeoTRAP2,DU 
2a TRAP] 
SeOeTU 


PAUSE TILL SCRATCHED 


LDX 
MME 
TRA 
BSS 
LX 


TZE 
CMP xX 
TZE 
TRA 


START CORE TO FILE DuMP 


Bss 
LDX 
LDX 
LDX 
LDX 
LDXx 
SBAR 
LDX 
ANXS 
MME 


PAUSE TILL DuMP Is DONE 


LDX 
MME 
TRA 
BSS 
LXL 
TZE 
CMP X 
TZE 
ass 
LDX 


OsS.pAusEsDu 


na? 
3 
Oe TRAP2 


FT3 
Os3$9827,0U 
FT2 

TERM 


0 
OsSewRFoDU 
lsTRAP3,DU 
2eTRAPI 
3e0eDU 
4e0eNU 
SBAR 
5,SBAR 
RO0377 o Dy 


Os S.PAUSEa Dy 


a2 

3 

Os TRAPS 
TERM 
02388Z.DU 
FY3 

0 

Oe d.TERMSDU 


10s MONITOR 


YES» SO RETRY 
NOPE» WELL THAT?’S IT 


MME NUMBER 
TRAP ADDRESS 
FRN OF FILE 
SCRATCH IT 


ALWAYS pAUSE 
WAIT 
FOREVER 


CHECK EXEC STATUS RETURN 


OKs CONTINUE 

NO» WELL WAS THE EXEC TON BUSY? 
YESs JUST RETRY 

NOPEs just BLEWIT 


WRITE RANDON FILE 

TRAP ADDRESS 

FRN OF DUMPFILE 

TOs FILE LOCATION 

FROMs CORE LOCATION 

GET CORE=SIZE 

LOAD NUMBER OF ELEMENTS 
MASK TO NUMBER OF ELEMENTS 
INITIATE THE COPY 


ALWAYS PAUSE 

WAIT 

FOREVER 

CoPY TO DUMP FILE 

GET STATUS 

NOW IT 1S TIME TO TERMINATE 
WAS THE EXEC TOO BUSY 

YESs SO JUST RETRY 

TIME TO SAY SO LONG 
TERMINATE 
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X 


END OF BINARY CARD 


000471 
000472 


occoo0 
000470 


590937 


10S00009 
0010 90 
7100 00 


TNPUT/OUTPUT SCHEDULER == 10S MONITOR 


DIAGNOSTICS 


956 MME 
957 TRA 
958 *$« DISK 


wa? 
EXxIt™ 


RYEsRYE 
TAKE NO CHANCES 


PAGE 
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1090 
1100 
1110 


MBR OL O9"17=714 692937 INPUT/ONUTPUT SCHEDULER == 105 MONITOR PAGE 28 


x EXIT MACRO 
n00478 960 USE CODE 110 
961 HEAD 120 
962 * 130 
963 * 140 
964 * ExItT 150 
965 * 160 
966 * EXIT TERMINATES A THREAD OF CONTROL BY RETURNING TO THE 170 
967 * TASK DISTRIRUTOR. 180 
968 * 190 
969 ExIT MACRO NO ARGUMENTS 200 
970 TRA SEXIT 210 
971 ENOM EXIT 220 


972 *$* DISK BUGM 222 


MBR OL G9"17=71 690937 


990473 


INPUT/OUTPT SCHEDULER == 


974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
10138 
1014 
1015 
1016 
1017 
1018 
1019 
1020 


BUGGING 


wmweteteewee#tese&# & 8 


BUGBUG 


owt #@ # #@ SS 8 


uG6y 


BUGBUG 


® 
® 
* 
* 
® 
® 
* 
BUGL 


BUGRUG 


IOS MONITOR PAGE 
MACROS 


USE 
HEAD 


CODE 


BUGGING MACROS PLANT ADDRESSES IN INVALID DATA AREAS SO THAT 
ANY UNAUTHORIZED USE OF SUCH DATA WILL RESULT IN A MEMORY FAULT 
OR EXECUTIVE CALL REJECT. 


ByG 


BuG FILLS BOTH \YPPER AND LOWER HALVES OF A sTORAGE WORD wITH 
THE 8G PATTERN $BUGBUG. 


MACRO STORAGEADDRESS 
IFE $DBG»SONe4 

SET BUGRUG+1 

LOX Os, BUGRUGS™ DU 

STX Os#l 

SXL Osi 

ENDM Bus 


BuGy 


BuGU FILLS THE YPPER HALF OF A sTORAGE wORD wITH THE BUG 
PATTERN SBUGBUG 


MACRO STORAGE@ADDRESS 
IFE $D3GsS9N23 

SET BUGBUG+1 

LDX 0» 8UGBUGs. DU 

STX Oot 

ENDM BUGU 


BuGL 


BUGL FILL THE LOWER HALF OF A srORAGE WORD WITH THE BUG 
PATTERN S$BUGSUS, 


MACRO STORAGEADDRESS 
IFE S$DBGsSONeS 

SET BUGBUG41 

LDX 0»BUGBUG.DU 

SXL Os#l 

ENDM BUGL 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
310 
320 
330 
540 
550 
560 
570 


MBR OL Ogei7=71 09.937 


1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 


INPUT/OUTPUT SCHEDULER eo 


BUGGING 


* 
* 
* 
* 
* 
* 
B 


uGXR 


BUGBUG 


* @ @© @ & & 


* 
BUGA 


BUGBUG 


weteete t= & & 


UG9 


BUGBUG 


ECRM 


“Ge 


TOS MONITOR 


MACROS 


RUGXR 


BuGxrR LOADS THE gSPECIFIEN INDEX REGISTER(S) WITH THE 


MACRO INDEx=REGISTER(S) 
IFE $D8GsS0Ne4 

SET BUGBUG+41 

IDRP ai 

LDX #1.BUGBUGsDU 

IDRP 

ENDM BUGXR 


BuGA 


PAGE 


BUGA LOADS THE CONTENTS OF THE THE A REGISTER WITH THE BG 


PATTERN S$BUGBUG. 


MACRO <NO ARSUMENTS> 
IFE SDBGs$ONe3 

SET BUGBUG+41 

LDA BUGBUG, DU 

ORA BUGBUGs,DL 

ENDM BUGA 


BuGO@ 


BUGg@ LOADS THE CONTENTS OF THE g REGISTER WITH THE 8uUG 


PATTERN S$BUGBUG. 


MACRO <NO ARGUMENTS> 
[FE SDBGsSONSS 

SET BUGRUG+1 

LDA BuGBuUG. Du 

OR BUGBUG. DL 

ENDM BUGA 


DECRM MACRO 


DECREMENT A COUNTER 


MACRO COUNTER=ADDRESS 
LCQ 12DL 

ASO #1 

ENDM DECR™M 

DISK CKPT™ 


30 


590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 


MBR 


OL O9—a17—71 


000474 
000475 
000476 
000477 


000500 
000501 
000502 
000508 
000504 
000505 


005304 
000476 
005510 
000160 


000160 
000010 
000370 
000505 
000170 
000160 


99-937 


n00473 


000474 
000474 


5540 
7100 
75350 
7530 


2200 
0200 
10C0 
6020 
2200 
7400 


00 
00 
00 
$1 


00 
Os 
03 
00 
0s 
00 


INPUT/OUTPUT SCHEDULER #={ 10S MONITOR 


1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1041 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
titi 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 


CHECKPOINT MACRO 


one #88 €£ ee Ss Be eae ££ He Bee Yee EH HE OH 


KPT 


e@ ee 8 


» 8 


USE CODE 
HEAD x 


CHECKPOINTS 


THIS MARCRO CAUSES THE REGISTERS TO BE STORED IN 8=—wWORD 
BLOCKS IN A CIRCULAR QUEVE FOR DEBUGGING USE, 


IS STARED IN THE FOLLOWING FORMATS 


CcO>) ws C(x0) (yPPER) 
C(X1) (LOWER) 
C(1) wm C(X2) (UPPER) 
C(xX3) (LOWER) 
C(2) = C(X4) CUPPER) 
C(xS) (LOWER) 
Cc3) mw C(xX6) (yPPER) 
C(X7) (LOWER) 


C(4) = CA) 

C(S) = C(Q) 

C(6) = CE) (0"7 BITS) 

C(7) w CTR) (0"23 BITS) 
CKPT 

MACRO <NO ARGUMENTS» 

IFE $DBG.»SONel 

XED XSCKPT 


ENDM CKPT 


CKpy == SUBROUTINE 


EvEN 

BSS 0 ENTRY POINT 

S$TC1 CKIC SAVE IC 

TRA rs BREAK XED 

SREG CKREG SAVE REGISTERS FOR A RELOAD 
SREG REGel SAVE IN @#WORD BLOCK 


UPDATE POINTER FOR CIRCULAR QUEUE 


LDX OsREG GET CURRENT ADDRESS 
ADLX 028.DU BUMP TO NEXT ENTRY 
CMPX Os DBGO+8*DBGQN» DU OVER THE END? 


TNC «42 NOs THIS IS VALID 
LDx 0. DBGgsDu YES» RESET To SEGINNING 
STX OsREG SAVE FOR NEXT TIME 


PAGE 


INFORMATION 


31 


110 
120 
130 
140 
i150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
320 
530 
540 
550 
560 
570 
580 
590 
600 


MBR OL O9"17"71 992937 


900506 995319 9730 00 
0900507 005304 3300 00 


005304 
005304 
005310 
0053510 
000510 


INPUT/OUTPUT SCHEDULER == 10S MONITOR 


CHECKPOINT MACRO 


LREG 
RET 


Use 
BSS 
EIGHT 
BSS 
use 
DISK 


PREVIOUS 
SETUPM 


RESTORE REGISTERS 
RESTORE 1C 


TEMP STORAGE FOR IC/IR 


TEMP STORAGE FOR REGISTERS 


PAGE 
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610 
620 
630 
640 
650 
660 
670 
680 
690 
700 


MBR 


END 


O01 09°37=874 
x 

000510 000004 
000511 000512 
000512 o00000 
OF BINARY CARD 
000513 oao000 
000514 900520 
000515 co0002 
000516 oon0c0 
000520 000000 
000521 000522 
000522 005161 
000523 000524 
000524 005161 
000525 777777 


090937 


999510 


000510 

000510 
7400 11 
7o00 00 
4310 03 
10sn0010 
7570 11 
2370 00 
7570 11 
7100 10 


000520 
o0nn00 
7170 00 
5540 54 
7170 00 
5540 00 
6300 04 


INPUT/OUTPIT SCHEDULER == JOS MONITOR PAGE 


1134 
1135 
1136 
1137 
11368 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 


1162 
11638 
1164 
1165 
1166 
1167 


1166. 


1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 


1177 


TRAP SETUP MACRO 


were ee 


ETUP 


2e#se @©ehe &BH# G&G ee eB ES 


SETUP 


222 & 


TRAP 


a3w 


USE CODE 
HEAD 

SETUP MACRO 
MACRO NQ ARGUMENTS 
XED S$SETUP 


ENDM SETUP 


SETUP -= SUBROUTINE TO SET UP A TRAP 


CALL wITH 
C(XT) = TBLOCK=ADDRESS 
C(xJ) = JBLOCK ADDRESS 
C(x0) = TRANSFER ADDRESS FOR JSTRA 
ENTER BY 
XED TSSETUP 
DESTROYS ClA)ds C(O)e CIXO) 
USES NO TEMPORARIES 


EVEN 

Bss 0 

STX OsTSTRAsT SET TSTRA = RESTART ADDRESS 
TSX O,w+1 BREAK XED 

FLD OsDU ZERO OUT A AND O 

STAQ TSSRWisT ZERO STATUS WORDS 

LDAQ TRAP oj GET ZERO. XED wORDS 

STAQ TSXEp-1,7T SAVE ZEROs XED 

TRA 020 RETURN 


TRAP == XED SEQUENCE TO PUT BLOCK ON QSTASK 


EVEN 

ZERO CAN BE USED FOR CLEARING RET WORDS 
XED #+{ THIS IS EXECUTED FROM THE TALOCK 
STcl OSLAST+OSTASKSDEI "UPDATE PREVIOUS LaST POINTER 

xED #+1 ConTINUE WITHQUT AFFECTING IC 


STC1 QSLAST+O$TASK UPDATE POINTER TO LAST 
RET P1s2IC RETURN TO POINT OF INTERRUPTION 


Cisk SYSCALLS 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 


390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
3520 
530 
340 


MBR OL Ogelt7=71 59.937 


090526 


INPUT/OUTPUT SCHEDULER #= 10S MONITOR PAGE 


1179 
1180 
1181 
1182 
1183 
1164 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
11938 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
12038 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1216 
1219 
1220 
1221 


SYSTEM CALL MACRO DESCRIPTIONS 


e*eetee# tee eee te eeene tPeeee eneeneeeeneee eee eee HEU 


USE CODE 
HEAD 


ALL SYSTEM CALLS ARE DONE THRU PRE@DEFINED MACROS, THOSE 
MACROS ARE LISTED IN THE FOLLOWING PAGES. EACH OF THESE 
MACROS IS COMED TO SPECIFIC CONVENTIONSS 
ENTER By 
TSX OpS<MACRO@NAME> 
ENTERED WITH 
Cixt) # TBLOCK=ADDRESS 
C(xy) = JBLOCK-ANDRESS 
CALLS 
SETUP 
ISSUES MME AND THEN eEXITS? 
RETURNS TO FIRST LOCATION AFTER MACRO 
RETURNS WITH 
C(xXT) = TBLOCK=ANDRESS 
C(XJ) 2 JBLOCK=ANDpRESS 
C(XL) = RESTART@ADDRESS 


IN ACTUALITY» THE FOLLOWING HAPPENS® THE MACRO DOES 

DO THE *TSXO%, HOWEVER» FOLLOWING THAT INSTRUCTION IS 

THE SET OF ARGUMENTS FOR THE MME. THE SUBROUTINE ENTERED 
WHICH ALWAYS HAS THE SAME NAME AS THE MACRO KNOWS THE 

NUMBER OF ARGUMENTS IT IS PASSED, THEREFORE IT SIMPLY CaL~ 
CULATES THE RESTART ADDRESS. IT THEN CALLS *SETUP?® WHICH 
RESETS THE TRAP BLOCK (C(XT) = Xi) WITH THE FIRST THREE woRDS 
BEING ZEROED ANp THE LINK WORD FOR THE EXEC SET TO THE 

XED INSTRUCTION TO PLACE 7HE BLOCK ON THE O$y7ASK QUEUE. HENCE 
WHEN TRAPPED, THE BLOCK WILL BE LINKED ON THE QSTASK QUEUE 
AND THE INTERRUPT WILL BE TRANSPARENT TO THE CURRENTLY RIJN@ 
NING TASK UNLESS THE CURRENT TASK IS *PAUSE®, THE PARAMETERS 
ARE THEN FETCHED (SEE PROGRAMMER®S REFERENCE MANUAL IF You 
DON®T FULLY UNDERSTAND "Inc? MODIFICATIONSS CAUSE IF YOU pONPT 
YOU WILL BE LOst) AND THE MME EyECuTED. Ext? Is CALLEN 
THUS PLACING THE CURRENTLY RUNNING TASK IN & BLOCKED STATE 
WHILE STARTING THE NEXT READY=TO=RUN TASK, THIS IS HOW WE 
MULTI=PROGRAM, WHEN THE EXEC TRAPS THIS OPERATION, AS 

WE HAVE SAID, THE XED INSTRUCTION PLACES THE TASK BACK 

ON THE QSTASK QUEUE. 

DISK SETFVM 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 


MBR OL O9m17u7l 
000526 905320 
000527 o00001 
000539 900510 
000531 005320 
000532 o0000!1 
000533 000474 
000534 go0000 
000535 003074 
005320 000000 


094937 


000526 


7400 00 
0200 as 
000530 
7170 00 
2220 57 
2200 03 
000533 
7170 00 
0010 00 
000535 
7100 oO 


005320 
00co0 20 
000536 


INPUT/OUTP'T SCHEDULER e-« 


TOS MONITOR PAGE 


SETUP FAULT VECTOR MACRO 


ETFV 


moOoererenemete*e#eweeteteeeeee tet &£ He eS 


ETFy 


use Cone 
HEAD 
SETFV 
MACRO CORELOC 
TSX Os SSETFV 
ARG #1 ADDRESS OF SLAVE FAULT VECTOR 
ENDM SETFV 


SETFV *= SUBROUTINE 


THIS gUBROUTINE Is CALLED BY THE SETFV MACRO, 
COMMAND TO LOCATE THE SLAVE FAULT VECTOR, 


It Issues THE 


CALL wITH 
C(XT) # TBLOCK*ADDRESS 
C(XJ) = JBLOCK ADDRESS 
ENTER BY 


TSX Ose8SETFV 

ARG CORE LOCATION TO FAULT VECTOR 
TO FIRST LOC AFTER MACRO EXPANSION 
WITH 

C(XT) # TBLOCK=ADDRESS 

C(XJS) = JBLOCK ADDRESS 

C(XL) = RESTART ADDRESS 

USES LOCAL TEMPORARY ONLY 


RETURNS 
RETURNS 


STX OssErFr POINTER 7O ApGuMENYT LIst 
ADLX Osteo DU RESTART ADDRESS 

SETUP 

XED S$SETUP 

LDX 2eSETFTSIDC LOAD ANDRESS OF FAULTY VECTOR 
LDX O» eSETFVs.DU LOAD MME NUMBER 

CKPT CHECKPOINT 

XED X$CKPT 

MME SETUP FAULT VECTOR 

EXIT 

TRA SEXIT 

use STORE 

ARG Oo* POINTER TO ARGUMENT LIST 
USE PREVIOUS 

DISK READM 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 


450 
460 
470 


480 
490 


500 
510 
520 
530 
540 


MBR OL 0981771 


END OF BINARY CARD 


000536 
000537 


000540 
000541 
900542 
000543 
000544 
000545 


000546 
000547 


005321 
000004 


000510 
005321 
005321 
005321 
005321 
ooo004 


000474 
000000 


09-937 


N0N536 


1o0soool! 
7400 00 
6200 03 
000540 
7170 00 
2220 57 
2240 57 
2250 57 
2260 57 
2200 o3 
000546 
7170 00 
on10 00 


INPUT/OUTPUT SCHEDUIER «= 108 MONITOR 


1268 
1269 
1270 
1271 
1272 
1278 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
13038 
1304 


1305 
1306 
1307 


1308 
1309 
1310 
isil 
1312 
1313 


1314 


READ MACRO 

USE CODE 
HEAD 

* 

* 

* READ 

* 

READ MACRO FRN,CORELOCsNs MODE 
TSX Ose BREAD 
ARG #1 FRN ADDRESS 
ARG 82 ADDRESS oF CoRE Loc 
ARG #3 NUMBER OF ELEMENTS 
ARG a4 MODE 
ENDM READ 


* s+ #@ ee @ ££ eee He eee SE Eee SE EE SE 


READ 


READ -= suBROUTINE 


PAGE 


THIS SUBROUTINE IS CALLED SY THE READ MACRO. IT ISSUES THE 


COMMAND TO READ THE NEXT N ELEMENTS OF FRN IN A PARTICULAR MODE. 


CALL wITR 
CcxXxT) = TBLOCK=ADDRESS 
C(iXJ) = JBLOCK=ADDRESS 
ENTER BY 
TSX O»$READ 
ARG ADDRESS OF FRN 
ARG ADDRESS OF CORELOC 
ARG N 
ARG MODE 
RETURNS TO FIRST LOC AFTER MACRO EXPANSION 
RETURNS WITH 
C(XT) # TBLOCK=ANDRESS 
C(XJ) = JBLOCK=ADDRESS 
C(XL) # RESTART@ADDRESS 
USES |.OCAL TEMPORARY ONLy 


STXx OsREADT POINTER TO ARGUMENT LIST 
ADLX O24eNU RESTART ADDRESS 
SETUP 

XED SSETUP 

LDX 2eREADNTLA IDC LOAD FRN 

LDX 4eREADTLIDC LOAD CORE Loc 
LDX S,READT,IDC LOAD N 

LDx 6eREADTsS DC LoAD MODE 

LDx Os eREADS DY LOAD MME NyMBER 
CKPT CHECKPOINT 

XED XSCKPT 

MME READ 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 


480 
490 
500 


510 
520 
530 
540 
350 
560 


570 
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READ MACRO 
090550 1315 EXIT 580 
000550 003074 7100 00 TRA SEXIT 
1316 * 590 
005321 1317 USE STORE 600 
005321 ocoo0e 3000 20 1318 REApT ARG Oot POINTER TO ARGUMENT LIST 610 
000551 1319 use PREVIOUS 620 


1320 *$* DISK APPEND™ 630 


MBR OL Ogel7=71 992937 INPUT/OUTPUT SCHEDULER e= 105 MONITOR PAGE 3a 


APEND MACRO 


000551 1322 USE CONE 110 
1323 HEAQ 120 
1324 * 130 
1325 * 140 
1326 * APEND 150 
1327 * 160 
1328 APEND MACRO FRN»CORELOC osNo MONE 170 
1329 TSX Os SAPEND 180 
1330 ARG a1 FRN ADDRESS 190 
1331 ARG #2 ADDRESS oF CORE Loc 200 
1332 ARG a3 NUMBER OF ELEMENTS 210 
1333 ARG #4 MODE 220 
1334 ENDM APEND 230 
1335 * 240 
1336 * 250 
1337 * APEND == SUBROUTINE 260 
1338 * 270 
1339 » THIS SUBROUTINE IS CALLED BY THE APEND MACRO, IT ISSUES 280 
1340 * THE COMMAND TO APEND N ELEMENTS TO THE FRN SPECIFIED 290 
1341 * VIA THE SPECIFIED MODE. 300 
1342 * 310 
1343 * CALL wITH 320 
1344 * C(xXT) # TBLOCK=ADDRESS 330 
1345 *« Cixd) = JBLOCK=-ADDRESS 340 
1346 »* ENTER BY 350 
1347 * TSX Os8APEND 360 
1348 * ARG FRN ADDRSS 370 
1349 * ARG ADDRESS OF CORE LOC 380 
1350 * ARG NUMBER OF ELEMENTS 390 
1351 * ARG MODE 400 
1352 * RETURNS TO FIRST LOC AFTER MACRO EXPANSION 410 
1353 * RETURNS WITH 420 
1354 * C(xT) » TBLOCK*ADDRESS 430 
1355 * Cc(xJ) # JBLOCK ADDRESS 440 
1356 * C(XL) = RESTART ADDRESS 450 
1357 * USES LOCAL TEMPORARY ONLY 460 
1358 * 470 
1359 »# 480 
000551 005322 7400 o0 1360 APEND STX OsAPNDT POINTER TO ARGUMENT LIST 490 
090552 000004 0200 03 1361 ADLX 0,4,DU RESTART ADDRESS 500 
0005538 1362 SETUP 510 
000553 000510 7170 oOo XED $SETUP 
000554 005322 2220 57 1363 LDX 2eAPNDTSIDC LOAD FRN 520 
000555 05322 2240 57 1364 LDX 4,APNDTSZIDC LOAD CORE LOC 530 
000556 005322 2250 57 1365 LDX SeAPNDTSIDC LOAD NUMBER OF ELEMENTS 540 
090557 005322 2260 57 1366 LDX 6, APNDTZIDC LOAD MODE 550 
000560 000005 2200 93 1367 LDX Oo eAPENDs DU LOAD MME NUMBER 560 
000561 1368 CKPT CHECKPOINT 570 


END OF BINARY CARD 10800012 
nN0561 990474 7170 oo XED XSCKPT 


MBR 


O91 09"917=71 


090562 
000563 


005322 


¢o0000 
003074 


000000 


590937 


3019 90 
000563 
7100 00 


005322 
0000 20 
000564 


TNPUT/OUTPUT SCHEQULER == INS MONITOR 


APEND MACRO 


1369 
1370 


1371 * 
1372 

1373 APNOT 
1374 

1375 *$* 


MME 
EXIT 
TRA 


USE 
ARG 
USE 
DISK 


SEXIT 


STORE 
Os2 
PREVIOUS 
RRFM 


APEND 


POINTER TO ARGUMENT LIST 


PAGE 
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580 
590 


600 
610 
620 
630 
640 
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READ RANDOM MACRO 


000564 1377 USE Cone 110 
1378 HEAD 120 
1379 * 130 
1380 * 140 
1381 * READR 150 
1362 * 160 
1383 RRF MACRO -FRNoFILELOCsCORELOCSN 170 
1384 TSX Oe SRRF 180 
1385 ARG #1 FILE REFERENCE ADDRESS 190 
1386 ARG #2 SOURCE ELEMENT ADDRESS 200 
1387 ARG #3 DESTINATION ADDRESS 210 
1388 ARG #4 NUMBER OF ELEMENTS TO TRANSMIT 220 
1389 ENDM RRF 230 
1390 * 240 
1391 * 250 
1392 * RRF #= SUBROUTINE 260 
1393 * 270 
1394 * THIS SUBROUTINE IS CALLED BY THE RRF MACRO, IT ISSUES THE ' 280 
1395 * COMMAND TO READ RANDOMLY FROM THE FILE SPECIFIED BY THE 290 
1396 * FRN STARTING AT ELEMENT NUMBER FILELOC TO CORE STARTING aT 300 
1397 * CORELNC FOR N ELEMENTS. 310 
1398 * 320 
1399 * CALL wITH 330 
1400 * CcxXT) # TBLOCK=ADDRESS 340 
1401 * C(XJ) # JBLOCK ADDRESS 350 
1492 « ENTER BY 360 
1403 * TSX OsSRRF 370 
1404 * ARG FILE@REFERENCE=NUMBER 380 
1405 * ARG SQURCE*ELEMENT=NUMBER 390 
1406 * ARG DESTINATION@=ADDRESS 400 
1407 * ARG NUMBER@OF@ELEMENTS 410 
1408 * RETURNS TO FIRST LOC AFTER MACRO EXPANSION 420 
1409 * RETURNS WITH 430 
1410 * C(XT) = TBLOCK=ADDRESS 440 
141i * C(XJ) = JBLOCK ADDRESS 450 
1412 * C(XL) # RESTART ADDRESS 460 
1413 * USES ONLY LOCAL TEMPORARY 470 
1414 * 480 
000564 005323 7400O oOo 1415 rrF sTX OsRRFT POINTER TO ARGUMENT LIST 490 
000565 000004 96C0 o3 1416 ADX Oe 4eDU RESTART ADDRESS 500 
000566 1417 SETUP 510 
000566 000510 7170 oOo XED SSETUP 
000567 905323 2220 57 1418 LDX 2eRRFTsIDC LOAD FRN 520 
000570 005323 2230 57 1419 LDX JeRRFTSIDC LOAD SQURCE ELEMENT NUMBER 530 
090571 005323 2240 57 1420 LDXx 4eRRFTSIDC DESTINATION ADDRESS 540 
000572 005323 2250 57 1421 LDX 5eRRFTS*IDC NUMBER OF ELEMENTS TO TRANSFER 550 
000573 000006 22Co o3 1422 LDX Oa eRRFoDU LOAD MME NUMBER 560 
000574 1423 CKPT CHECKPOINT 570 
000574 009474 7170 00 XED XSCKPT 


000575 00000 0019 00 1424 MME READ RANDOM FILE 580 


MBR 


OL 09°17=71 090937 


090576 
000576 903074 7100 00 

095323 
005323 ¢co0000 0900 20 

000577 


INPUT/OUTPUT SCHEDULER #= 10S MONITOR 


READ RANDOM MACRO 


1425 


1426 * 
1427 

1428 RRFT 
1429 

1430 *$« 


Exit 
TRA 


USE 
ARG 
USE 
DISK 


SEXTT 


STORE 
CO, 
PREVIOUS 
WREM 


POINTER TO ARGUMENT LIST 


PAGE 
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590 


600 
610 
620 
630 
640 
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WRITE RANDOM MACRO 


000577 1432 USE CODE 110 
1433 HEAD 120 
1434 » 130 
1435 * 140 
1436 « WRF 150 
1437 * 160 
1438 WRF MACRO FRNeFILELOCesCORELOCaN 170 
1439 TSX Os SWRF 180 
1440 ARG #1 FILE REFERENCE ADDRESS 190 
1441 ARG #2 DESTINATION ELEMENT ADDRESS 200 
1442 ARG #3 SOURCE ADDRESS (CORE) 210 
1443 ARG 4 NUMBER OF ELEMENTS TO TRANSMIT 220 
1444 ENDM WRF 230 
1445 * 240 
1446 * 250 
1447 «* WRF |= SUBROUTINE 260 
1448 * 270 
1449 * THIS COMMAND IS CALLED BY THE WRF MACRO. IT ISSUES THE 280 
1450 * COMMAND TO WRITE RANDOMLY TO THE FILE SPECIFIED 8Y THE 290 
1451 * FRN STARTING AT ELEMENT NUMBER FILELOC FROM CORE STARTING AT 300 
1452 * CORELOC FOR N ELEMENTS. 310 
1453 * 320 
1454 * CALL wITH 330 
1455 * CcxT) » TBLOCK ADDRESS 340 
1456 * C(xJ) = JBLOCK ADDRESS 350 
1457 « ENTER BY 360 
1458 * TSX Os 8wRE 370 
1459 * ARG FILE*“REFERENCE=NUMBER 380 
1460 * ARG NESTINATION@ELEMENT=NUMBER 390 
1461 * ARG SOURCE*ADDRESS 400 
1462 * ARG NUMBER@*OF*ELEMENTS 410 
1463 * RETURNS TO FIRsS7 LOC AFTER MACRO EXPANSION 420 
1464 * RETURNS WITH 430 
1465 « C(XT) = TBLOCK ADDRESS 440 
1466 * C(xJ) = JBLOCK ADDRESS 450 
1467 * C(XL) 2 RESTART ADDRESS 460 
1468 * USES ONLY LOCAL TEMPORARY 470 
1469 * 480 
000577 005324 7400 oO 1470 WRF STX Os WRET POINTER TO ARGUMENT LIST 490 
000600 000004 5600 03 1471 ADX 00 4eDi RESTART ADDRESS 500 
000601 1472 SETUP 510 
END OF BINARY CARD 10860013 
000601 000510 7170 0o0 XED $SETUP 
000602 005324 2220 57 1473 LDX 2eWRFT* IDC LoAD FRN 520 
000603 005324 22230 §7 1474 LDX SeWRETs*IDC LOAD DESTINATION ELEMENT NUMBER 530 
000604 005324 2240 $7 1475 LDX 4eWRFTSIDC LOAD SOURCE ADDRESS 540 
000605 005324 2250 57 1476 LDX SeWRFTs* IDC NUMBER OF ELEMENTS TO TRANSFER 550 
000606 900007 2200 03 1477 LDX Os eWRFeDU LOAD MME NUMBER 560 
000607 G00000 £010 OO 1478 MME WRITE RANDOM FILE 570 


000610 1479 CKPT CHECKPOINT 580 


MBR 


OL O9-17=71 99.937 


090610 
000611 


005324 


000474 7170 oo 
Oo0é6i1 
063074 710 00 


005324 
000000 6000 20 
o00612 


INPUT/OUTPT SCHEDULER #2 108 MONITOR 


WRITE RANDOM MACRO 


1480 


1481 * 
1482 

1483 wWRFT 
1484 

1485 Se 


xED 
EXIT 
TRA 


USE 
ARG 
USE 
DISK 


XSCKPT 
SEXIT 


STORE 
On* 
PREVIOUS 
SCRM 


POINTER TO ARGUMENT LIST 


PAGE 


43 


590 


600 
610 
620 
630 
640 


MBR 


END 


OL O9"17~71 


000612 
000613 


000614 
000615 
090616 


000617 


000620 
000621 


000622 


005325 
000002 


000510 
005325 
005325 


000010 


000474 
000000 


003074 


OF BINARY CARD 


005325 


000000 


390937 


000612 


7400 00 
0600 O83 
000614 
7170 00 
2220 57 
2230 57 
2200 03 
000620 
7170 00 
0010 00 
000622 
7100 00 


005325 
10800014 
o0c0 20 

000623 


INPUT/OUTPUT SCKEDUIER == JOS MONITOR 


PaGE 


SCRATCH MACRO 


mses ££ 


Mme #8 © © SB & &£ He He SE HF HS HF BE SS DS 


USE CODE 
HEAD 
SCRATCH 
MACRO FRNsFLOC 
TSX 0.$SCR 
ARG #1 FILE REFERENCE ADDRESS 
ARG #2 FILE LOCATION (ELEMENTS) 
ENDM SCR 


SCRATCH #= SUBROUTINE 


THIS SUBROUTINE IS CALLED BY THE SCR MACRO. 
COMMAND TO SCRATCH A FILE. 
THE BEGINNING. 


IT ISSUES THE 
NOTE THAT THE FILE IS SCRATCHED TO 


CALL wITH 

C(xT) = TBLOCK ADDRESS 

C(xXJ) = JBLOCK ADDRESS 
ENTER BY 

TSX Os8SCR 

ARG FILE*REFERENCE@ADDRESS 
RETURNS TO FIRST LOC AFTER MACRO EXPANSION 
RETURNS WITH 

C(XT) = TBLOCK ANDRESS 

C(xXJ) = JBLOCK ADDRESS 

CiXL) w= RESTART ADDRESS 
USES ONLY LOCAL TEMPORARY 


STX O»SCRT POINTER TO ARGUMENT LIST 
ADX Oe2eDU RESTART ADDRESS 

SETUP 

XED $SSETUP 

LDX 2e2SCRTSIDC LOAD FILE REFERENCE NUMBER 
LDX 3,SCRT,IDC LOAD STARTING SCRATCH ADDRESS 
LDX On eSCReDU LOAD MME NUMBER 

CKPT CHECKPOINT 

XED XSCKPT 

MME SCRATCH FILE 

EXIT 

TRA SEXIT 

use STORE 

ARG Coe POINTER TO ARGUMENT LIST 
use PREv!Ous 

DISK SPTRM 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
380 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 


460 
470 


480 
490 


500 
510 


520 
530 


540 
550 
560 


MBR 


OL 09017=71 


000623 005326 
000624 000002 
000625 000510 
000626 905326 
000627 005326 
000630 6000011 
000631 000474 
000632 ococc0D 
000633 003074 
005326 ooc000 


094937 


090623 


7400 00 
0200 O3 
000625 
7170 00 
2220 57 
2230 57 
2200 903 
000631 
7170 00 
ooin oo 
000633 
7100 00 


005326 
cago 20 
000634 


INPUT/OQUTPIIT SCHEDU, ER <- 


1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
is51i 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1566 
1569 


1570 
1571 
1572 
1573 


1574 
1575 


1576 
1577 
1578 
1579 
1580 


SET POINTER MACRO 


mp et e 


PTR 


moeeneseeseeweeneneneeeneeee eee eee se 


PTR 


108 MONITOR PAGE 

USE CODE 
HEAD 

SET POINTER 
MACRO FRNeN 
TSX Ose SSPTR 
ARG #1 FRN ADDRESS 
ARG #2 NUMBER OF ELEMENTS Ton MOVE POINTER 
ENDM SPTR 

SET POINTER == SUBROUTINE 

THIS SUBROUTINE IS CALLED BY THE SPTR MACRO, IT ISSUES 


THE COMMAND TO ADD (OR SUBTRACT) 


N ELEMENTS TO THE CUR@ 


RENT SETTING OF THE READ POINTERe 


CALL WITH 


ENTER BY 


RETURNS 
RETURNS 


CiXT) = TBLOCK=ADDRESS 
CixJ) =» JBLOCK=ADDRESS 


TSX Oe8SPTR 

ARG FRN 

ARG NUMBER OF ELEMENTS 

TO FIRST LOC AFTER MACRO EXPANSION 
WITH 

Ccxy) = JCB 

CcxtT) 2» TCB 

C(XL) 2 RESTART ADDRESS 


USES LOCAL TEMPORARY ONLY 


STX 
ADLX 
SETUP 
xED 
LDx 
LDX 
LDX 
CKPT 
xED 
MME 
EXIT 
TRA 


USE 
ARG 
USE 
DISK 


Os SPTRT POINTER TO ARGUMENT LIST 

O.2,DuU RESTART ADDRESS 

SsETuP 

2eSPTRTSZIDC LOAD FRN 

3sSPTRT,ZIDC LOAD N 

Os eSPTReDU LOAD MME NUMBER 
CHECKPOINT 

XSCKPT 
SET POINTER 

SEXIT 

STORE 

Os* POINTER TO ARGUMENT LIST 

PREVIOUS 

RQSTM 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 


470 
480 
490 
500 


510 
520 


530 
§40 
550 
560 
370 
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REQUEST STATUS MACRO 


090634 1582 USE CoDE 110 
1583 HEAD 120 
1584 * 130 
1585 * 140 
1586 * REQUEST STATUS 150 
1587 * 160 
1588 RQST MACRO FRN 170 
1589 TSX O,8ROST 180 
1590 ARG #1 FrRn ADDRESS 190 
1591 ENDM ROST 200 
1592 * 210 
1593 * 220 
1594 « REQUEST STATUS *= SUBROUTINE 230 
1595 * 240 
1596 * THIS sUBROUTINE Is CALLED BY THE rost MACROe IT ISSUES 250 
1597 * THE COMMAND TO REQUEST STATUS ON THE FRN SPECIFIED, 260 
1598 * 270 
1599 * CALL wITH 280 
1600 * CcixT) a» CB 290 
1601 * C(xy) = JCB 300 
1602 * ENTER 8Y 310 
1603 * TSX Os$ROST 320 
1604 « ARG FRN 330 
1605 * RETURNS TO FIRST LOC AFTER MACRO EXPANSION 340 
1606 * RETURNS WITH 380 
1607 * C(XT) # TCB 360 
1608 * Cixy) = JCB 370 
1609 * C(XL) = RESTART ADDRESS 380 
1610 * USES 1 OCAL TEMPORARY ONLY 390 
1611 * 400 
1612 * 410 
000634 005327 7400 00 1613 RQST STX OsROSTT POINTER TO ARGUMENT LIST 420 
0090635 aoo0001 0200 03 1614 ADLX OnteDu RESTART ADDRESS 430 
000636 1615 SETuP 440 
000636 000510 7170 06 XE D $SETUP 
090637 005327 2220 57 1616 LDX 2eRQSTTAIDC LOAD FRN 450 
090640 c00012 2200 03 1617 LDx Oa eRQST»DU LoAD MME NUMBER 460 
000641 1618 CKPT CHECKPOINT 470 
000641 900474 7170 90 XED XSCKPT 
000642 9000000 0010 00 1619 MME REQUEST STATUS 480 
000643 1620 Ex!It 490 
090643 003074 7100 00 TRA SEXIT 
1621 * 500 
005327 1622 USE STORE 510 
END OF ByNARY CARD 10800015 
005327 0060000 6000 20 1623 RQSTT ARG O»* POINTER TO ARGUMENT LIST 520 
000644 1624 USE PREVIOUS 530 


1625 *$« DISK SPAWNM 340 


MBR OL O9-17-71 
000644 9053305 
000645 900003 
000646 n00510 
000647 905330 
000650 005330 
000651 005330 
000652 oco01i5 
000653 000474 
000654 9000000 
000655 003074 
005330 000000 


390937 


000644 


7400 00 
0600 os 
000646 
7170 00 
2240 57 
2250 57 
2360 57 
2200 O83 
000653 
7170 00 
colo 00 
000655 
7100 00 


005330 
co0d 20 


INPUT/OUTPUT SCHEDUIER == 


1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
16438 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1656 
1659 
1660 
1661 
1662 
1663 


1664 
1665 
1666 
1667 
1668 


1669 
1670 


1671 
1672 
1673 


SPAWN MACRO 


ese 6 & 


SPAWN 


moeteeeeeteeeeseee se #¢ te 2 ee Be He BH 


PAWN 


SPWNT 


USE 
HEAD 


MACRO 
TSX 
ARG 
ARG 
ARG 
ENDM 


THIS sUBROUTINE Ig CALLED BY THE 


CODE 


TOS MONITOR 


SPAWN 


PLOCSLENGTHsORIGINATOR 


Os SSPAWN 


PARAMETER LIST ANDRESS 
LENGTH ANDRESS 
ORIGINATOR ADDRESS 


SPAWN == SUBROUTINE 


SPAWN MACRO. IT ISSUES THE 


COMMAND TO SPAWN A PROGRAM, 


CALL wITH 


ENTER BY 


RETURNS 
RETURNS 


STX 
ADX 
SETUP 
xED 
LDX 
LDX 
LDQ 
LDX 
CKPT 
xED 
MME 
EXIT 
TRA 


use 
ARG 


CixT) 


2 TBLOCK ADDRESS 


C(XJ) # JBLOCK ADDRESS 


TSX Os SPAWN 


ARG PARAMETER LIST ADDRESS 

ARG LENGTH ADDRESS 

ARG ORIGINATOR ADDRESS 

TO FIRST LOC AFTER MACRO EXPANSION 


WITH 


C(XT) = TBLOCK ADDRESS 
CiXJ) = JBLOCK ADDRESS 
C(XL) # RESTART ADDRESS 
USES ONLY LOCAL TEMPORARY 


Oe SPWNT 
Os 3eDU 


SSETUP 
4aSPWNTZIDC 
5,SPWNYT,IDC 
SPWNT# IDC 
Os eSPAWNe Du 


X$CKPT 


SEXIT 


STORE 
Os* 


POINTER TO ARGUMENT LIST 
RESTART ADDRESS 


LOAD PARAMETER LIST ADDRESS 
LOAD P, Le ADDRESS 

LoAD ORIGINATOR 

LOAD MME NUMBER 


CHECKPOINT 


ISSUE SPAWN 


POINTER TO ARGUMENT LIST 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 


480 
490 
500 
510 
320 


530 
540 


550 
560 
570 
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SPAWN MACRO 


090056 1674 USE PREVIOUS 580 
1675 *$« DISK CHSEGM 590 


MBR 


END 


AL O09817=71 


000656 005331 
000657 00002 
000660 900510 
000661 005331 
000662 905331 
000663 0900022 
000664 9000474 
OF BINARY CARD 
000665 o90000 
000666 003074 
005331 000000 


690937 


000656 


7400 00 
0200 03 
000660 
7170 00 
2220 57 
2230 57 
2200 03 
000664 
7170 00 
10800016 
¢o10 00 
000666 
7100 00 


005331 
6000 20 
000667 


InPUT/QUTPUT SCHEDU, ER == IOS MONITOR 


1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1762 
1708 
1704 
1795 
1706 
1707 
1798 
1709 
1710 
1711 
1712 


1713 
1714 
41715 
1716 


1717 
1716 


1719 
1720 
1721 
1722 


CHANGE SEGMENT MACRO 


QO + & # 


Qos, #£#eeneeenenen ee ee eee ee 8S 


HSEG 


CHsGT 


USE CODE 
HEAD 
CHSEG 
MACRO SEGMENTeNUMBERSLENGTH 
TSX O,SCHSEG 
ARG Bi NUMBER=OF @SEGMENT 
ARG #2 NEWeL ENGTH 
ENDM CHSEG 


CHSEG #= SUBROUTINE 


THIs gUBROUTINE Ig CALLED BY THE CHSEG MACRO. IT IssuES 
THE COMMAND TO CHANGE THE LENGTH OF THE NAMED SEGMENT TO 
THE NEW LENGTH SPECIFIED. 


CALL wITH 
C(XT) # TBLOCK=ADDRESS 
C(xJ) = JBLOCK ADDRESS 
ENTER BY 
TSx Ose SCHSEG 
ARG SEGMENT#NUMBER 
ARG LENGTH 
TO FIRST LOC 
WITH 
Cixt) # TBLOCK@ADDRESS 
CixJ) #2 JBLOCK ANDRESS 
C(XL) a» RESTART ADDRESS 
USES LOCAL TEMPORARY ONLY 


RETURNS AFTER MACRO EXPANSION 


RETURNS 


STX OsCHsGr POINTER TO ARGUMENT LIST 
ADLX O22eDU RESTART ADDRESS 

SETUP 

XED $SETUP 

LDX 2eCHSGT,IDC LOAD SEGMENT NUMBER 

LDX SeCHSGTLIDC LOAD SEGMENT LENGTH 

LDX 0» eCHSEG.DU LOAD MME NUMBER 

CKPT CHECKPOINT 

XED XSCKPT 

MME CHANGE SEGMENT 

EXIT 

TRA SEXIT 

USE STORE 

ARG On* POINTER TO ARGUMENT LIST 
USE PREVIOUS 


pAGE 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 


470 
480 
490 
500 


510 
520 


530 
540 
550 
560 
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CHANGE SEGMENT MACRO 


1723 *&e DISK QPEN™ 570 


MBR OL O9"17=71 


000667 
000670 


000671 
000672 
000673 
000674 
000675 
000676 
000677 
000700 


005332 
o0000s 


coasia 
005332 
005332 
005332 
005332 
005332 
000000 
000024 


590937 


200667 


7400 
9600 


000671 


7170 
2240 
2250 
2200 
2270 
2360 
6260 
2200 


900701 


00 
oR) 


00 
57 
57 
57 
57 
57 
10 
03 


INPUT/ 


1725 
1726 
1727 
1728 
1729 
1736 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1736 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 


1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 


OUTPUT SCREDULER -= 108 MONITOR 
OPEN MACRO 
USE CODE 
HEAD 
* 
* 
* OPEN 
2 
OPEN MACRO TREENAMEsTREESI ZEsBEHALFoELSIZEs ACCESSES 
TSX Os S0PEN 
ARG Ali TREE@NAME@ADNDRESS 
ARG #2 TREERSITZE“ADDRESS 
ARG 43 BEHALF 
ARG n4 ELEMENT SIZE ADDRESS 
ARG AS ACCESSES 
ENUM OPEN 


OPEN == guBROUTINE 


COMMAND TO OPEN A FILE. 


CALL wITh 
C(xT) zs TBLOCK ADDRESS 
CiXJ) = JBLOCK ADDRESS 
ENTER BY 
TSX OefOPEN 
ARG TREE@NAME@ADDRESS 
ARG TREE@SIZE 
ARG BEHALF 
ARG FLEMENT#SI7E 
ARG ACCESSES 
RETURNS TO FIRST LOC AFTER MACRO EXPANSION 
RETURNS WITH 
Cixt) 2 BLOCK ADDrRsSs 
C(xXJS) = JBLOCK ADDRESS 
C(iXJ) 2 RESTART ADDRESS 
USES ONLY LOCAL TEMPORARY 


one #e# #£*e# £28 &#© SH BB Eee HEHE EHH HH HE He 


pEN STX OsOpENT POINTER TO ARGUMENT LIST 
ADX 025eDU RESTART ADDRESS 
SETUP 
XED SSETUP 
LDX 4,0PENT,IDC TREE=NAME ADDRESS 
LDX SsOPENTSIDC TREE“SIZE | 
LDX Os OPENTs IDC SETTING |©= SPARE XJ 
LDX 7,0PENT,IDC LOAD ELEMENT SIZE 
LDQ OPENTs IDC ACCESSES 
EAX 62020 MOVE SETTING INTO X6 
LpXx Os eOPENe DU MME NUMBER 


CKPrY CHECKPOINT 


PAGE 


THIS suBROUTINE Ig CALLED BY THE OPEN MACRO. IT ISSUES THE 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
300 
510 


520 
530 
540 
550 
3560 
570 
580 
590 


MBR 


Q1 O09°17=71 


090701 
on0702 


200703 


005332 


000474 
90900000 


003074 


coagao 


390937 


7170 00 

nonin oo 
a00703 

7100 90 


005332 
0000 20 
090704 


TNPUT/OUTPUT SCREQULER -= 105 MONITOR 


OPEN MACRO 
XE D 
1774 MME 
1775 EXIT 
TRA 
1776 * 
1777 use 
1778 OPENT ARG 
1779 USE 
1780 *$* DISK 


XSCKPT 
OPEN 


SEXIT 


STORE 

Os* POINTER TO ARGUMENT LIST 
PREVIOUS 

CLOSEM 


PAGE 


5? 


600 
610 


620 
630 
640 
650 
660 


MBR 


END 


04 O9—;7"74 


090704 995333 
OF BINARY CARD 
000705 900001 
000706 onodic 
000707 905333 
000710 000025 
000711 000474 
000712 ogo000c 
000713 003074 
005333 o00000 


090937 


nd0704 


7400 00 
19800017 
c2c0 O03 
000706 
7170 00 
2220 57 
2200 03 
Ooo711 
7170 00 
ooln oo 
noo713 
7100 00 


0053335 
9000 20 
000714 


TNPUT/OUTPUT SCHEDULER <= 


1782 
17838 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
4795 
1796 
1797 
1798 
1799 
1800 
1601 
1802 
1893 
1804 
1805 
1806 
1807 
1608 
1809 
1810 
1611 
1812 


1813 
1814 


1815 
1816 
1817 


1818 
1819 


1820 
1621 
1822 
1823 
1824 


CLOSE MACRO 


LOSE 


USE 
HEAD 


MACRO 
TSX 
ARG 
ENDM 


THIS sUBROUTINE Ig CALLED 8Y THE CLOs MACRO. 


TOS MONITOR PAGE 


CODE 
CLOSE 
FRN 
Os, BCLOSE 
#1 FILE REFERENCE ANDRESS 
CLOoS 


CLOSE -= SUBROUTINE 


It IssuEs THE 


MME Tn CLOSE A FILE. 


CALL wITH 
C(xXT) = TBLOCK@ADDRESS 
C(xJ) = JBLOCK ANDRESS 
ENTER BY 


RETURNS 
RETURNS 


TSX O48CLOS 

ARG FILE=REFERENCE@ADDRESS 

TO FIRST LOC AFTER MACRO EXPANSION 
WITH 

CcxT) = TBLOCK=ADDRESS 

CixJ) = JBLOCK ADDRESS 

C(XL) #2 RESTART ADDRESS 


USES LOCAL TEMPORARY ONLY 


STX 


ADLX 
SETuP 
xED 
LOX 
LDX 
CKPT 
XED 
MME 
EXIT 
TRA 


use 
ARG 
USE 
DISK 


Oe»CLOST POINTER TO ARGUMENT LIST 

Oole»DU RESTART ADDRESS 

SSETUP 

2eCLOSTsIDC LOAD FILE REFERENCE 

Ose eCfLOSESDU LOAD MME NUMBER 
CHECKPOINT 

XSCKPT 
CLOS 

SEXIT 

STORE 

O,* POINTER TO ARGUMENT LIST 

PREVIOUS 

DESTROM 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
3a0 
390 
400 
410 


420 
430 


440 
450 
460 


470 
480 


490 
300 
510 
520 
530 


MBR 


O1 O9-°17=71 


000714 
000715 


000716 
090717 
000720 
000721 
000722 


000723 
000724 


000725 


005334 


005334 
000003 


o000S5io 
008334 
005334 
005334 
000027 


000474 
000000 


n03074 


000900 


590937 


000744 


7400 00 
0600 O38 
000716 
7179 00 
2240 57 
2250 57 
2260 57 
2200 03 
000723 
7170 00 
colo 00 
000725 
7100 00 


N05334 
6000 20 


INPUT/OUTPUT SCHEDULER == 10S MONITOR PAGE 
DESTROY MACRO 
1826 USE CODE 
1827 HEAD 
1828 * 
1829 * 
1830 * DESTROY (UNCATALOG By TREE=NAME) 
183i * 
1832 DESTRO MACRO TREESNAME STREE@SI] zE eo BEHALF 
1833 TSX Os SNESTROA 
1834 ARG #1 TREE=NAME ADDRESS 
1835 ARG #2 TREE*SI7E ADDRESS 
1836 ARG #3 REHALF 
1837 ENDM DEST 
1838 » 
1839 * 
1840 * DESTROY == SUBROUTINE 
1441 * 
1842 * THIS SUBROUTINE Is CALLED BY THE DEST MACRO. IT IgsuES THE 
18643 * COMMAND TO DESTROY (IeEe UNCATALOG) A FILE. 
1844 * 
1845 * CALL wITH 
1846 * C (XT) # TBLOCK ADDRESS 
1847 *« C(XJ) = JBLOCK ADDRESS 
1848 * ENTER BY 
1849 * TSX Os fDEST 
1850 * ARG TREE=NAMEADDRESS 
1651 * ARG TREE#SIZE 
1852 * ARG BEHALF 
1853 * RETURNS TO FIRST LOC AFTER MACRO EXPANSION 
1854 * RETURNS WITH 
1855 * C(xT) # TBLOCK ADDRESS 
1856 * C(xJ) = JBLOCK ADDRESS 
1857 * C(XL) = RESTART ADDRESS 
1858 * USES ANLY LOCAL TEMPORARY 
1859 »* 
1860 DEstrRO stXx OsDEsTT POINTER 7O ArGyMENY LIst 
1861 ADX Os3eDU RESTART ADDRESS 
1862 SETUP 
XED $SETUP 
1863 LDX 4,DESTTS IDC LOAD TREE*NAME 
1864 LDX 5SeDESTTSLIDC TREE“-SI7E 
1865 LDX 6,DESTTAIDC BEHALF 
1866 LDX 0,,NESTRe»DU MME NUMBER 
1867 CKPT CHECKPOINT 
XED XSCKPT 
1868 MME DESTROY 
1869 ExIT 
TRA SEXIT 
1870 * 
1871 us& STORE 
1872 DESTT ARG Os* POINTER TO ARGUMENT LIST 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 


480 
490 
500 
510 
520 


530 
540 


550 
560 
370 


MBR OL 09917=71 092937 INPUT/OUTPUT SCHEDULER == [QS MONITOR PaGE 55 


DESTROY MACRO 


000726 1873 USE PREVIQUS . 580 
1874 * DISK UPDATE™M 590 


MBR O01 09817=71 694937 INPUT/OUTPUT SCREDU, ER == ToS MONITOR pAGE 56 


UPDATE MACRO 


n290726 1876 USE CODE 110 
1877 HEAD 120 
1878 * 130 
1879 * 140 
1880 * UPDATE 150 
1681 * 160 
1882 UPDATE MACRO FRN 170 
1883 TSX Os SUPDATE 140 
1884 ARG #1 FILE REFERNECE ADDRESS 190 
1885 ENDM UPDAT 200 
1886 * 210 
1687 * 220 
1868 * UPDATE |= SUBROUTINE 230 
1889 * 240 
1890 * THIS sUBROUTINE Is CALLEN BY THE UpDAT MACRO. IT ISsuES THE 250 
1891 * UPDATE MME ON THE FRN SPECIFIED 260 
1892 * 270 
1893 » CALL «ITH 280 
1894 * C(XT) #» TBLOCK ADDRESS 290 
1895 * C(XJ) = JBLOCK ADDRESS 300 
1896 * ENTER BY 310 
1897 * TSX Oo SUPDATE 320 
1898 * ARG FILE#REFERENCE@ADDRESS 330 
1899 * RETURNS TO FIRST LOC AFTER MACRO EXPANSION 340 
1900 * RETURNS WITH 350 
1901 * C(XT) = TBLOCK ADDRESS 360 
1902 * C(xXJ) = JBLOCK ADDRESS 370 
1903 * C(XL) = RETART AnpRESS 380 
1904 * USES MANLY LOCAL TEMPORARY 390 
1905 * 400 
END OF BINARY CARD 19809018 
000726 905335 7400 an 1906 UPDATE STX O,UPDTT POINTER TO ARGUMENT LIST 410 
000727 000001 0670 03 1907 ADX Osis Du RESTART ADDRESS 420 
noa730 1908 SETYP 430 
000730 906510 7170 oo XED $SETUP 
000731 005335 2220 57 1909 LDX 2e.UPDTTs»IDC LOAD FILE REFERENCE 440 
000732 000031 2200 03 1910 LDX Oso UPDATs DU MME NUMBER 450 
000733 1911 CKPT CHECKPOINT 460 
000733 000474 7170 oO XED X$CKPT 
000734 00000 oo10 oo 1912 MME UPDATE 470 
000735 1913 EXIT 480 
000735 003074 7190 00 TRA SEXIT 
1914 * 490 
005335 1915 use STORE 500 
005335 conten 5000 20 1916 UPDTT ARG Os* POINTER TO ARGUMENT LIST 510 
900736 1917 USE PREVIOUS $20 


1918 *$-* DISK LOCK™ S30 


MBR 


O01 Q9°17=71 


000736 
000737 


000740 
000741 


000742 


000743 
000744 


000745 


005336 


005336 
000001 
oco05io 
005336 
000044 


000474 
c00000 


003074 


000000 


592937 


000736 


7400 00 
0200 03 
000740 
7170 00 
2220 57 
2200 03 
000743 
7170 00 
colo oo 
000745 
7190 00 


905336 
o0ca 20 
000746 


INPUT/OUTPIIT SCHEDULER == 10S MONITOR PAGE 
LOCK MACRO 
1920 USE CODE 
1921 HEAD 
1922 * 
1923 * 
1924 * LOCK 
1925 * 
1926 LOCK MACRO 3 FRN 
1927 TSX Os 8LOCK 
1928 ARG 41 FILE*REFERENCE ADDRESS 
1929 ENDM LOCK 
1930 * 
1931 * 
1932 * LOCK == guBROUTINE 
1933 * 
1934 * THIS sUBROUTINE Ig CALLED BY THE LOCK MACRO. IT ISsuES THE 
1935 « MME TO LOCK A FILEe 
1936 * 
1937 * CALL wITH 
1938 * CcXT) w TBLOCK=@ADDRESS 
1939 * C(xXJ) = JBLOCK ADDRESS 
1940 * ENTER RY 
1941 * TSX O#$LO0CK 
1942 * ARG FILE@REFERENCE=@ADDRESS 
1943 * RETURNS TO FIRST LOC AFTER MACRO EXPANSION 
1944 * RETURNS WITH 
1945 * C(XT) = TBLOCK=ADDRESS 
1946 * C(XJ) = JBLOCK ADDRESS 
1947 * CiXL) = RESTART AppRESS 
1948 * USES LOCAL TEMPORARY ONLY 
1949 * 
19590 LOCK STX OslOCKy POINTER 7O ARGUMENT LIst 
1951 ADLX OsteDU RESTART ADDRESS 
1952 SETUP 
XED $SETUP 
1953 LDX QeLOCKT,IDC LOAD FILE REFERENCE 
1954 LDX 0,eLOCK,DU MME NUMBER 
1955 CKPT CHECKPOINT 
xED X$CKPT 
1956 MME LOCK 
1957 EXIT 
TRA SEXIT 
1958 * 
1959 USE STORE 
1960 LOCKT ARG Os* POINTER YO ARGUMENT LIST 
1961 USE PREVIOUS 


DISK UNLOCKM 
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110 
120 
130 
t40 
i150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
260 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 


440 
450 
460 


470 
480 


490 
500 
310 
520 
530 


MBR Ot 


09=17=71 


END OF BINARY CARD 


000746 
090747 
00075¢ 
000751 
000752 


000753 
000754 


000755 


005337 


005337 
coongl 
000510 
005337 
co004s 


000474 
000000 


003074 


000000 


C94937 


000746 


10800019 
7400 00 
c2n0 O83 
000750 
7170 00 
2220 57 
2200 03 
000753 
7170 00 
9019 00 
000755 
7100 00 


005337 
0000 20 
900756 


TNPUT/OUTPUT SCHEVULER «= 


UNLOCK MACRO 


2s 2-8 8 


UNLCK 


aeeeeee ee ee eee et et ee e 


UNLCK 


USE Cone 
HEAD 


MACRO FRN 


10S MONITOR 


TSX Os SUNLCK 


ARG #1 
ENDM UNLK 


UNLOCK 


FILE REFERENCE ANDRESS 


UNLOCK e* SUBROUTINE 


THIS SUBROUTINE Is CALLED BY THE UNLK MACRO. 


MME Tr UNLOCK A FILE. 


CALL wIlTH 


C(XT) # TBLOCK=ADDRESS 
C(XJ) = JBLOCK ADDRESS 


ENTER BY 


TSX OeSUNLK 
ARG FILE*REFERENCE@ADDRESS 


RETURNS TO FIRST LOC AFTER THE MACRO EXPANSION 


RETURNS WITH 


CiXT) = TBLOCK=ADDRESS 
C(XJS) # JBLOCK ADDRESS 
CiXt) = RESTART ADDRESS 
USES LOCAL TEMPORARY ONLy 


STXx OsUNLKT 
ADLX Oole»DuU 
SETUP 

XED $SSETUP 

LDX Z2eUNLKTS IDC 
LDX Os eUNLCKsDU 
CKPT 

X€ D XSCKPY 

MME 

EXIT 

TRA SEXIY 

USE STORE 

ARG O,* 

USE PREVIOUS 


DISK NOTIFM 


POINTER TO ARGUMENT LIST 
RESTART ADDRESS 


LOAD FILE REFERENCE 


MME NUMBER 
CHECKPOINT 


UNLOCK 


POINTER TO ARGUMENT LIST 


PAGE 


IT IssuEs THE 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 


410 
420 
430 


440 
450 
460 


470 
480 


490 
500 
310 
520 
$30 


MBR QL O09"17-71 
000756 005340 
000757 ogo0002 
000760 000516 
000761 905340 
000762 0905340 
000763 000046 
000764 000474 
000765 oo0000 
000766 003074 
005340 cooooe 


C9937 


090756 


7400 00 
0200 03 
000760 
7170 00 
2220 57 
2350 57 
2200 03 
000764 
7170 00 
0010 00 
000766 
7100 00 


005340 
0000 20 
000767 


INPUT/OUTPUT SCHEDULER == 


2608 
2009 
2010 
201i 
2012 
20138 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
20338 
2034 
2035 
2036 
2037 
2036 
2039 
2040 
2041 
2042 
2043 


2044 
2045 
2046 
2047 


2048 
2049 


2050 
2051 
2052 
2053 
2054 


NOTIFY MACRO 


zeeeeesee ee eee ee © ee #8 eH te He 


OTIF 


1OS MONITOR PAGE 
USE CODE 
HEAD 

NOTIFY 
MACRO ERNs STATE 
TSX Os SNOTIF 
ARG #1 FRN ADDRESS 
ARG #2 STATE ADDRESS 
ENDM NOTIF 
NOTIFY |= SUBROUTINE 

THIS suBROUTINE Is CALLED BY THE NOTIF MACRO. IT IssguFs 
THE NOTIFY ON THE SPECIFIED EVENT. NOTE THAY C(X3) POINT TO 
CTRAP, 
CALL wITH 


C(xXT) = TBLOCK=ADDRESS 
C(XJ) # JBLOCK ADDRESS 
C(x3) = CTRAP ADDRESS 
ENTER BY 
TSX OsNOTIF 
ARG EVENT@=FRN 
ARG STATE ADDRESS 
TO FIRST LOC AFTER MACRO EXPANSION 
WITH 
C(XT) 2 TBLOCK*ADDRESS 
C«xy) = JBLOCK ADDRESS 
C(xXL) # RESTART ADDRESS 
USES LOCAL TEMPORARY ONLY 


RETURNS 
RETURNS 


sTX OeoNOTFT POINTER OF ARGUMENT LIST 
ADLX Os2eDU RESTART ADDRESS 

SETUP 

XED $SETUP 

LDX 2eNOTFTs IDC LOAD EVENT FRN 

LDA NOTFTs#IDC LOAD STATE 

LDX Os eNOTIFs*DU LOAD MME NUMBER 

CKPT CHECKPOINT 

xED XSCKPT 

MME NOTIFY 

EXIT 

TRA SEXIT 

use STORE 

ARG Os* POINTER TO ARGUMENT LIST 
USE PREVIOUS 

DISK CAUSEM 
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110 
120 
130 
140 
150 
160 
170 
160 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 


470 
480 
490 
500 


510 
520 


330 
540 
550 
560 
370 


MBR O01 09°17-714 090937 


000767 


END OF BINARY CARD 10800020 


000767 005341 7400 00 
000770 000006 0200 03 
000771 
000771 000510 7170 a0 
090772 005341 2220 57 
000773 005341 2230 57 
000774 905341 2350 57 
000775 005341 2360 57 
000776 005341 2200 57 


INPUT/OUTPUT SCHEDULER == 


2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
20938 
2094 
2095 


2096 
2097 
2096 


2099 
2100 
2101 
2102 
2108 


CAUSE MACRO 


AUSE 


@a2neeesteeeteeteseeeeneeeete ee © He 8S 


CAUSE 


USE 
HEAD 


MACRO 
TSX 
ARG 
ARG 
ARG 
ARG 
ARG 
ARG 
ENDM 


THIS SUBROUTINE Is CALLED BY THE CAUS MACRO, 


10S MONITOR 


CODE 


ERNeNUMBERSSTATESMESSAGESACCESSESsFRN (NeB. ORDERING) 


Os $CAUSE 


PAGE 


CAUSE 


FILE REFERENCE ADDRESS 
NUMBER WHICH ARE TO NOTIFIED 
STATE 

MESSAGE 

FRN OF ITME TO PASS 

ACCESSES ON PASSED ITEM 


CAUSE *= SUBROUTINE 


IT IssuEs THE 


MME TO CAUSE THE SPECIFIED FILE. 


CALL wlT 


ENTER BY 


RETURNS 
RETURNS 


H 


CcxJ) = JBLOCK ADDRESS 


CixT) 


TSX Oe$CAUS 
ARG 
ARG 
ARG 
ARG 
ARG 
ARG 


NUMBER 


STATE 
MESSAGE 


= TBLOCK@ADORESS 


FILE*REFERENCE@NUMBER OF EVENT 


PASSED@FILE=REFERENCE 
ACCESSES-ON=PASSEDe] TEMS 


TO FIRST LOC AFTER THE mACRO EXPANSION 


WITH 


CixJ) »# JBLOCK ADDRESS 
CcXT) ws TBLOCK=ADDRESS 


C(XL) = RESTART 


ADDRESS 


USES LOCAL TEMPORARY ONLY 


STX 
ADLX 
SETUP 
xED 
LDx 
LDX 
LDA 
LDa 
LOX 


Oo CAUST 
026,1U 


$sETuUP 
2eCAySTsIDC 
3eCAUST. IDC 
CAUSTsIDC 
CAUSTs» IDC 
OoCAUSTSIDC 


POINTER TO ARGUMENT LIST 
RESTART ADDRESS 


LOAD FILE REFERENCE 
NUMBER 

STATE 

MESSAGE 

LOAD FRN 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
2350 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
3500 


510 
520 
330 


540 
550 
560 
370 
380 


MBR OL O9=17—71 094937 INPUT/OUTPUT SCHEDUI ER #~= 10S MONITOR OAGE 61 


CAUSE MACRO 


000777 005341 2270 57 2104 LDX 7 oCAUSTSIDC LOAD ACCESSES 399 
001000 ocn00C0 6260 10 2105 EAX 62000 MOVE FRN TO X6 600 
001001 060047 2200 a3 2106 LDX Os CAUSE. DU MME NUMBER 610 
001002 2107 CKPT CHECKPOINT 620 
001002 000474 7170 09 xED XSCKPT 
001005 000000 n010 40 2108 MME CAUSE 630 
001004 2109 EXIT 640 
001004 003074 7100 90 TRA SEXIT 
2110 * 650 
n05341 2111 use STORE 660 
005341 900000 o0fn 20 2112 CAUST ARG Os* POINTER TO ARGUMENT LIST 670 
091005 2113 USE PREVIOUS 680 


2114 *$* DISK OPSCEM 690 


MBR OL O9—"17=71 092937 INPUT/OUTPUT SCHEDULER == 108 MONITOR PAGE 62 


OPEN SCRATCH EVENT MACRC 


001005 2116 USE CODE 110 
2117 HEAD 120 
2118 * 130 
2119 * 140 
2120 « OPSCE 150 
2121 * 160 
2122 OPSCE MACRO TIMLIMs, MODE sMAXLEN 170 
2128 TSX Os SNPSCE 1480 
2124 ARG #1 TIME LIMIT 190 
2125 ARG #2 MODE 200 
2126 ARG #3 MAXIMUM QUEUE LENGTH 210 
2127 ENDM OPSCE 220 
2126 * 230 
2129 * 240 
2130 * OPEN SCRATCH EVENT "SUBROUTINE 250 
2131 * 260 
2132 * THIS SUBROUTINE IS CALLED BY THE OPSCE MACRO, IT OPENS A 270 
2133 * SCRATCH EVENT. 240 
2134 * 290 
2135 * CALL wITH 300 
2136 * C(xT) = TBLOCK ADDRESS 310 
2137 * CixJ) = JBLOCK ADDRESS 320 
2138 * ENTER BY 330 
2139 * TSX OsS80PSCE 340 
2140 « ARG TIME@=LIMIT 350 
2141 * ARG MODE 360 
2142 * ARG MAXeQUEUE=LENGTH 370 
2143 * RETURNS TO FIRST LOC AFTER MACRO EXPANSION 380 
2144 » RETURNS WITH 390 
2145 * C(xXT) = TBLOCK ANDRESS 400 
2146 * C(XJ) = JBLOCK ADDRESS 410 
2147 »* C(XL) @ RESTART ADDRESS 420 
2148 * USES ONLY LOCAL TEMPORARY 430 
2149 * 440 
001005 005342 7400 oo 2150 OPSCE s5TxX OsOPSET POINTER TO ARGUEMNT LIST 450 
001006 000003 5600 03 2151 ADX Os3eDU RESTART ADDRESS 460 
001007 2152 SETUP 470 
091007 900510 7170 oOo XED SSETUP 
001010 005342 2230 57 2153 LDx 3eOPSETLIDC LOAD TIME LIMIT 480 
001011 005342 2240 57 2154 LDX 4,0PSET,IDC LOAD MODE 490 
END OF BINARY CARD 10800021 
001012 005342 2250 57 2155 LDX 5,0PSETSIDC LOAD MAx QUEUE LENGTH 500 
001015 000052 2200 o3 2156 LDX Os eOPSCEsDU LOAD MME NUMBER 510 
001014 2157 CKPT CHECKPOINT 520 
001014 000474 7170 O09 XED XSCKPT 
001015 conc0e 9010 oo 2158 MME OPEN SCRATCH EVENT 530 
001016 2159 EXIT 540 
001016 003074 7100 00 TRA SEXIT 
2160 * 550 


005342 2161 use STORE 560 


MBR OL 09=17=—71 692937 INPUT/OUTPUT SCHEDULER == 10S MONITOR PAGE 63 
OPEN SCRATCH FVENT MACRO 
095342 000000 Coto 20 2162 OPSET ARG Os* POINTER TO ARGUMENT LIST 570 


001017 2168 USE PREVIOUS 580 
2164 *$-e DISK ACCTM $90 


MBR 


OL 09817871 


001017 
001020 


001021 
001022 
001025 
001024 
001025 


001026 
001027 


001050 


005343 
000003 


000510 


001017 
005343 


005343 
000056 


000474 
000000 


003074 


994937 


001017 


7400 00 
0200 03 
001021 
7170 00 
2220 57 
2350 57 
2360 57 
2200 03 
001026 
7170 00 
0010 00 
001030 
7100 00 


005343 


INPUT/OUTPUT SCHEDULER =* 708 MONITOR 


2166 
2167 
2168 
2169 
2170 
2171 
2172 
2178 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2208 


2204 
2205 
2206 
2207 
2208 


2209 
2210 


2211 
2212 


ACCOUNTING MACRO 


>see £ He 8 


CCr 


>eeeeeeeee eee ee eee ee ee 8 


cCr 


USE 
HEAD 


MACRO 
TSX 
ARG 
ARG 
ARG 
ENDM 


THIS SUBROUTINE IS CALLED BY THE ACCT MACRO. 
THE COMMAND TO 18 REQUEST ACODE. OR 28 ALTER ACCOUNTING 


CoDE 


MODE,ACCDEsDATA 


Os$ACCT 
#1 


#2 
#3 
ACCT 


ACCOUNTING 


MODE 


ACODE (ACODE/WORD NUMBER) 


DATA 


ACCOUNTING == SUBROUTINE 


IT ISSUES 


PAGE 


INFORMATION DEPENDING ON THE MODE (0 AND 1 RESPECTIVELY). 


CALL wITH 
CcxT) # TBLOCK@ADDRESS 
C(xXJ) =» JBLOCK=ADDRESS 


ENTER BY 


RETURNS 
RETURNS 


STX 
ADLX 
SETUP 
XED 
LDX 
LDA 
LDa@ 
LDX 
CKPT 
XED 
MME 
EXIT 
TRA 


use 


TSX Os$ACCT 


ARG MODE 
ARG ACODE 
ARG DATA 


TO FIRST LOC AFTER THE MACRO EXPANSION 


WITH 


C(XT) = TBLOCK=ADDRESS 
C(XJ) = JBLOCK=ADDRESS 
CiXL) # RESTART@ADDRESS 
USES LOCAL yEMPORARY ONLy 


OsACCTT 
Oe3eDU 
$SETUP 
2eACCT2IDC 
ACCTT»IDC 
ACCTT.IDC 
Os eRNMES DU 


XSCKPT 


SEXIT 


STORE 


POINTER TO ARGUMENT LIST 
RESTART ADDRESS 


LOAD MODE 

LOAD ACODE 

LOAD DATA 

LOAD MME NUMBER 
CHECKPOINT 


ACCOUNTING CALL 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 


490 
500 
510 
520 
330 


540 
550 


560 
570 


MBR 


OL 0981771 090937 


095343 o9000C co00 20 
001 


031 


INPUT/OUTPUT SCHEDULER -= 105 MONITOR 


ACCOUNTING “MACRO 


2213 ACCTT 
2214 


2215 *$s 


ARG 
USE 
DISK 


Qo* 
PREVIQUS 
CHECK 


POINTER TO ARGUMENT LIST 


PAGE 
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580 
590 


600 


MBR DL O9m17 a7 690937 


O910d1 


INPUT/OUTPINT SCHEDULER -@ 105 MONITOR 


PaGE 


CHECK MACRO 


2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
22338 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
22635 *$« 


ose #8# £42828 @ 8H #8 FF 


HECK 


USE 
HEAD 


CODE 


CHECK 


THIS MACRO IS USED TO CHECK THE RESULT OF A TRAPPING MME, 

THE FIRST ARGUMENT IS THE ADDRESS TO WHICH TO TRANSFER IF THE 
STATUS RETURN TS ZEROe THIS ARGUMENT MAY 8E OMITTEDs AND NO 
TEST WILL SE ASSEMBLED, THE REMAINING ARGUMENTS COME IN PAIRS, 
THE FIRST OF THE PAIR IS A BOOLEAN PATTERN AGAINST WHICH A 
COMPARISON WILL BE MADE. THE SECOND IS THE TRANSFER ADDRESS IN 
CASE OF A MATCH, CURRENTLY THERE MAY BE ONLY 8 SUCH PAIQS, 


MACRO ZEROSTATADDeBOOLPATa XFERADDeBOOLPATsXFERADDSETC. 
LXl Os TSSPWieT PICK UP LOGICAL STATUS 
ANX O,BSST¥Ke.DU ISOLATE STATUS 

INE HLS ee 

TZE ei ZERO STATUS TEST 

INE 9#2°,9°,23 

CMP x Oe#2eDU 

TZE #3 FIRST PAIR OF TESTS 
INE oH#4>,0%,20 

CMPX 028#4,D0U 

TZE 45 SECOND PAIR OF TESTS 
INE 946,757 

CMPX 024650 

TZE 47 THIRD PAIR OF TESTS 
INE A875 8914 

CMPX 0,4%8,DU 

TZE "9 FOURTH PAIR OF TESTS 
INE HILO eo Prot 

CMPX Os #100DU 

TZE eit FIFTH PAIR OF TESTS 
INE "R12% e958 

CMPx Os #120DU 

TZE #13 SIXTH PAIR OF TESTS 
INE PHL Ae geo 

CMP X Oo414eDU 

TZE #15 SEVENTH PAIR OF TESTS 
INE "H16%s rad 

CMPX Oo h16eDU 

TZE 417 EIGHTH PAIR OF TESTS 
TRA SERROR DIE ON UNEXPECTED RETURN 
ENDM CHECK 

DISK Q0 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
530 
560 
570 


MBR O01 09"17=71 992937 


Co10d. 


2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2278 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
22835 
2284 
2285 
2286 
2287 
2288 
22489 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 


INPUT/OUTPYT SCHEDULER == [NS MONITOR PAGE 
QUEUE MANAGEMENT #= GENERAL INTRODUCTION 
USE CODE 
HEAD Q 
* 
* QUEUE MANAGEMENT = GENERAL INTRODUCTION 
* 
* EACH QUEUE IN THE PROGRAM KAS A SIMILAR STRUCTURE. A QUEUE 
* CONSISTS OF A (POSSIBLY EMPTY) LINKED LIST OF BLOCK. THE 
* POINTERS POINT TO WORD 4 (OSOFFST) OF A BLOCK, THE LINK 
* POINTERS ARE STORED IN WORD 3 (QSLINK) OF A BLOCK, THE wORD AT 
ry LOCATION OSFIRST POINTS TO GSOFFST OF THE FIRST SLOCK OF THE 
* QUEUE. THE LOCATION QSLAST POINTS YO QSOFFST OF THE LAST BLOCK 
* OF THE QUEUE, THE EMPTY QUEUE IS DENOTED 8Y THE WORD AT Q$LAST 
* POINTING TO OSFIRST+1. 
* 
* 
* QUE UF 
* 
* THIS GENERATES A OBLOCKe THIS STRUCTURE MUST AGREE 
* WITH THE STRUCTURE DEFINED FOR QUEUE MANAGEMENT, 
® 
QUEUE MACRO OBLOCKeLOCATION=SYMBOLSASCII@NAME 
USE QSTOR PUT ALL QUEUES CONTIQUNUS 
EVEN FOR XED 
Ai BsSs 0 NAME OF QuEUE 
ARG SERROR FIRST 
ARG OQSKAL+OSFIRST+1 LAST 
STX OsOSHL1+4OSLASTsDI «XADD 
STX 0s08$41+QSLAST 
EAX Os9S8a1 ENQ 
TSX LsQSENQ 
EAX O,0S#1 DEO 
TSX LeQSDE9 
EAX On9SH1 INV 
TSX LeB®SINv 
ARG 0 BUSY 
DEC 0 MAX 
DEC 0 AVAIL 
DEC 0 SPARE] 
DEC 0 SPARE2 
UASCI let ABBREVIATION 
ENDM QUEUE 
age DISK ENQ 


2306 
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110 
120 
130 
140 
150 
160 
170 
140 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
320 


MBR 


END 


OL 99617 —71 
Q 

001051 000014 
OF BINARY CARD 
001082 9000014 
001033 9000013 
001034 901036 
091035 o00013 
001036 000012 
091037 901053 
001040 anaonle 
001041 525201 
091042 525201 
001043 525202 
001044 525202 


692937 


O91031 


901031 
0542 15 
1nSn0022 
2352 15 
1152 15 
6022 00 
7552 15 
2342 15 
6012 00 
7412 15 


001041 
525201 
2350 03 
2750 07 
001043 
525202 
2360 03 
2760 07 
001045 
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2308 
2369 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 


2340 
234i 
2342 
2343 
2344 
2345 
2346 
2347 
2348 


2349 


2350 


QUEUE MANAGEMENT © FNO 


mee2tetee#etes 


@e¢e@8e ¢ & 8H #@ SA £ SH HEB EH BSE 


ENQ 


BUGBUG 


BUGBUG 


USE 
HEAD 


CODF 
Q 


PAGE 


ENO 


ENQ StiSPENDS A TASK UNTIL THE SPECIFIED quEy& CAN RE MADE 


AVAILABLE. 

MACRO QADDRESS 

X€ D OSAL+O0SXENO 
ENDM ENS 


ENQ == SUBROUTINE TO SERIALIZE RESOURCE USE 


THIS sUBPROGRAM RETURNS IMMEDIATELY IF THERE Is VO NEED 


TO QUEUE. 


IF NECESSARY TO DO SO» IT SUSPENDS EXECUTION NF 


THE CURRENT TASK UNTIL A WAKE@tip IS GENERATED RY A DEG FAR 
THIS QUEUE AND THE RESOURCE CAN BE ALLOCATED TO THIS TASK, 


CALL WITH 
CixT) # TBLOCK=ADDRESS 
C(iXJS) = JBLOCK=ADDRESS 
C(x) = QBLOCK@=ADDRESS 


ENTER BY 


TSX Leo ASEN@ 


CLOBBERS ALL BUT CEXT)s C(XJ)s AND CXL) 
USES NO LOCAL TEMPORARIES 


INHIB 
BSS 
AOS 


LDA 
CMPA 
TNC 
STA 
SZN 
TNZ 
STxX 
INHIB 
BUGA 
SET 
LDA 
ORA 
BUGAa 
SET 
Da 
ORG 
BuG xR 


SAVE.2ON 
0 
AVAIL.9 


AvAIL eA 
MAX ef 
“42 
MAXs0 
RUSY,0 
Enal 
TeBySYsad 
RESTORE 


BUGBUG+1 
BUGBUG.DU 
BUGBUGs. DL 


BUGBUG+1 
ByGBuGsDy 
BUGBUGSDL 
(OaXaYa70Q) 


ONE MORE BLOCK CURRENTLY ON QUEUE 
UPDATE MAX LENGYH OF QUEVWE 


2 

IS THIS QUEUE SUSY? 

YES» WILL HAVE TO QUEUE FOR 1{T 
NO» MARK wHO IS RESPONSIBLE 


6& 


110 
120 
130 
140 
180 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 


430 
440 
450 
460 
470 
480 
490 
500 
510 


520 


530 


MBR 


END 


OL O9—e17—=71 


001045 
091046 
091047 
091050 
001051 
091052 
901053 
001054 
091055 
001056 
001057 


if) 


525203 
525203 
525203 
5252038 
525208 
nooner 
coacg4 
ccon04 
777777 
777777 
coadoe 


OF BINARY CARI 


001060 


003074 


092937 


525203 


2270 
2220 
223N 
2240 
2250 
7100 
7470 
6200 
6000 
6040 
7179 


001060 
10S00023 


7109 


3 
03 
03 
Qs 
3 
17 
11 
11 
0 
00 
15 


00 


INPUT/OUTPUT SCHEDULER #= I08 MONITOR 


QUEUE MANAGEMENT eo ENO 


BUGSUG SET 

LDX 

LDxX 

LDX 

LDX 

LDX 

2351 TRA 
2352 ENN STX 
2353 EAX 
2354 T7E 
2355 TMI 
2356 XED 
2357 EXIT 
TRA 
2358 *Se DISK 


BUGRUG +} 

Os SUSBUG.DU 
X¥eBuGBYGeDU 
Y¥»8ySByGe DU 
Zs3UGBUGS*DU 
Qs. B8UGBUGsDU 
Del 

Le TSTRAsT 
OsOFFSTST 
SERROR 
S$ERROR 
XADD,Q 


SEXIT 
ENQF 


RETURN TO CALLER 

SAvE RESTARy ADDRESS 

STORE POINTER WITH OFFSET 

wae DBG 

w2%DBG 

IN SUEUE LINKED LIST OF SLOCKS 


PAGE 
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540 
550 
560 
570 
580 
590 
600 


610 


MBR OL 09—17=871 092937 INPUT/OUTPUT SCHEUUIER == 10s MONITOR PAGE 70 


Q QUENIE MANAGEMFNT © ENOF 
Na1061 23460 USE CODE 110 
2361 HEAD Q 120 
2362 * 130 
2363 * 140 
2364 * ENOF 150 
2365 * 160 
2366 * TKIS suSROUTINE PUTS A TRAP BLOCK ON THE FRONT OF A QuEUF. 170 
2367 * 180 
2368 * CALL wITH 190 
2369 * C(XT) = TRAP#BLOCK=ADDRESS 200 
2370 «* C(xXQ) # QUEVE-ADDRESS 210 
2371 * ENTER BY 220 
2372 * TSX Le ARENOF 230 
2373 * CLOBBERS C(X0)s CIXX) 240 
2374 * 250 
2375 INHIB SAVE.2ON 260 
001061 2376 ENQF BSS 0 270 
091061 coo0L2 2342 15 2377 SZN BUSYsQ IS QUEVE BUSY? 280 
001062 001067 6012 90 2378 TNZ ENOFO YESe GET ON FRONT OF IT 290 
001063 oafanle 7412 15 2379 STX TsBUSYs9 NOs SEIZE THE RESOURCE 300 
001064 2380 BUGXR (02X) 310 
525204 BUGBUG SET BUGBUG+i 
001064 525204 2202 o3 LDX OsBUGBUGs DU 
091065 525204 2222 03 LDX XeBUGBUGs DU 
001066 g00000 7102 17 2381 TRA QoL AND RETURN IMMEDIATELY 320 
2382 * 330 
2383 * CHECK IF QUEUE 1S EMPTY 340 
2384 * 350 
001067 2385 EnNoFO 855 0 360 
001067 900004 7472 11 2386 STXx Lo TSTRALAT SAVE RESTART ADDRESS 370 
001070 900004 6202 11 2387 EAX Os QISOFFSTsT GET ADDRESS OF FOURTH WORD OF BLOCK 380 
091071 900001 6222 15 2388 EAX XsQSFIRST 4120 Is THE QuEuveé 390 
001072 900001 1022 15 2389 CMPX XeDSLASTSO EMPTY? 400 
001073 001109 6NC2 nO 2390 T7ZE ENQF2 YES» MUST HANDLE aS SPECIAL CASE 410 
2391 * 420 
2392 * GET ON FRONT OF NON@EMPTY QUEUE 430 
2393 * 440 
001074 2394 ENoFi 8S5S 0 450 
001074 00N000 2222 15 2395 LDX Xe OSFIRSTSO POINT To PRESENT FIRST BLOCK ON QUFUF 460 
001075 efocooe 7402 15 2396 STX Os DSFIRSTSO PLACE THIS BLOCK FIRST 470 
091076 9009003 7422 11 2397 STX XeOSLINKeT AND MOVE OLD ONE DOWN 480 
031077 2398 EXIT 490 
091077 003074 71C2 400 TRA $EXIT 
2399 *# 500 
2400 * GET ON FRONT OF EMPTY QUEUE BY MAKING OSFIRST ANT QSL AST 510 
2401 * POINT TO THIS 3LOCK. 520 
2402 * 530 
001100 2403 ENNF2 8sS 0 540 
001100 oann00c 7402 15 2404 STXx O,9SF12ST2O MAKE IT THE FIRST BLOCK 550 


091101 000001 7402 15 2405 STx Os QDSLAST2O AND ALSO THE LAST 560 


MBR 


NL O9947=-71 590937 


001102 


G 


601102 
003074 7102 900 


INPUT/OUTPIIT SCHEDULER == TOS MONITOR 


QUEWVE MANAGEMENT #= ENOF 


2466 EXIT EXIT 
TRA $EXIT 

2407 INHI8 RESTORE 

2408 «Se DISK DE. 


PAGE 


7\ 


570 


580 
590 


MBR 


END 


D1 09"17=71 
G 

002103 o00001 
OF BINARY CARD 
001104 000014 
001105 900012 
001106 777777 
001107 000012 
OO1110 o00001 
OO1111 900001 
094112 9000690 
OO111S5 900000 
001114 777777 
001115 777777 
OOLL16 777774 
On1117 000012 
001120 900008 
091121 900000 
001122 905162 
001123 ooo000! 


290937 


NO1103 


001103 

001103 
3362 07. 
19800024 


0562 
2342 
6002 
4502 
6202 
1902 
6002 
2202 
60Ce 
6042 
6222 
7402 


2222 
7422 


7172 
1nte2 


15 
15 
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2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
24619 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 


2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 


QUEUE MANAGEMENT == DEQ 


ce «© 8 © & & & 


@2*¢ #2 282 #4 #4 He Se He He 


DEQ 


USE 
HEAD 


CODE 
Q 


Eg 


DEQ RELEASES A SERIALLY REUSABLE RESOURCE SO THAT OTHER 


PROCESSES MAY USE IT. 


BY PUTTING THEM ON THE OSTASK QUEUE. 


MACRO 
XED 
ENDM 


QADDRESs 
OS$H#1+O0SxDEO 
DEO 


DEg == sUBROUTINE TO WAKE@UP WAITING TASKS 


PAGE 


OTHER TASKS ARE AUTOMATICALLY INITIATED 


THIS SUBROUTINE CHECKS TO SEE IF ANY OTHER TASKS ARE ASLFEP 


IN THE QUEUE. 


IF THE QUEUE IS NOT EMPTY» 
FROM 1T AND PUT ON THE QSTASK QUEUE TO WAKE IT UP, 


A TBLOCK IS TA 


PROGRAM ALWAYS RETURNS TO THE CALLER IMMEDIATELY. 


CALL wITH 
C(XO) = OBLOCK=ADDRESS 
C(XT) # TBLOCK*ADDRESS 
CixJ) = JBLOCK=ADDRESS 


ENTER BY 


DESTROYS C(K0)s C(Xx) 


TSX Le A$DEO 


USES NO LOCAL TEMPORARIES 


INHIB 
BSS 
DECRM 
LCaQ 


AsQ 
SZN 
TZE 
STZ 
EAX 
CMPy 
TZE 
LDX 
TZE 
TMI 
EAX 
STXx 
LDX 
STX 
XED 
CMPX 


SAVEsON 

0 

(AVAIL «O) 
1,DL 


AvAIL 29 
BUSYsQ 
SERROR 
BUSY,Q 
OsFIRST+150 
OsLASTod 
QoL 
OsFIRST.A 
SERROR 
SERROR 

Xe tOFFST2O 
Os BUSYsO 
XaLINKysX 
XeFIRSTsO 
XADDsTASK 
OsLASTsG 


ONE LESS BLOCK ON QUEUE 


IF QUEUE IS NOT SUSY 

WE ARE IN SAPD TROUBLE 
MARK QUEUE NOT BUSY 
ADDRESS oF FyrSTt ELEMENT 
DOES LAST POINT TO IT? 


YES» QUEUE EMPTY == RETURN 
GET OFFSET POINTER TO BLOCK 
eee BLEwIT 

wan DBC 


RELATE TO THE SEGINNING OF BLOCK 
REMEMBER WHO IS RESPONSIBLE 

GET NEXT ELEMENT ON QUEUE 

NOW MAKE IT FIRST 

ADD TO TASK GQUELE 

LAST BLOCK ON QUEUE? 


KEN 


THIS SUB= 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 


430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
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G QUEUE MANAGEMENT == NE4 
901124 onacor 6012 17 2457 TNZ Oat NO» RETURN 580 
001125 ononol 6202 15 2458 EaXx OeFIRST4100 VESs SET UP QUEUE TO APPEAR EMPTY 590 
001126 nnoncl 7492 15 2459 STX OelASTsO BY MAKING LAST POINT TO FIRST41 600 
2460 INHIB RESTORE 610 
091127 ooatoc 7100 17 2461 TRA Osl RETURN 620 


2462 *Fe DISK INVERT 630 


MBR 


END 


O01 09—17—=71 
0 

001130 000001 
OF BINARY CARI 
001131 oo000! 
OOL1132 001146 
9011355 ccooo0 
001134 000001 
001135 901146 
OO1136 777777 
001137 777777 
092140 90000009 


890937 


001150 


0011350 


6222 


10800025 


1022 
6002 


2222 
io22 


6002 


2232 


2202 
7432 


15 


15 
00 


15 
15 


00 


12 


13 
15 
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2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 


2498 
2499 
2500 
2501 
2502 
2508 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 


QUEVE MANAGEMENT #© INV 


—*t £8 & 8 8 


@eeeeeee © S & & S&S BH 


INV 


* 


USE CODE 
HEAD Q 


INV 


THIS ROUTINE INVERTS THE ORDER OF THE TOP TwO ITEMS ON 
THE SPECIFIED QUEUE. 


MACRO QADDRESs 
XED QS#L+OSxXINV 
ENDM INV 


INV == SUBROUTINE TO SWAP THE TOP TWO ITEMS ON A LYST. 


THIS SUBROUTINE TRIES TO SWITCH THE ORDER OF THE TOP TwO ITEMS 
ON THE NAMED QUEUEe IF THE NAMED QUEUE IS EMPTY OF HAS ONLY 

A SINGLE ITEM. NO ACTION IS TAKENS OTHERWISE THE TwO ARE 

ARE INVERTED, 


CALL wITH 

Cixt) = TCB 

CicxJ) =» JCB 

C(xX9) 2 QUEVE=ADDRESS 
ENTER BY 


TSX LeASINV 
CLOBBERS C(xO)s Ci(Xx)de Crixy) 


INH13 SAVE.UN 
BSS 0 


PREPARE TO FOOL WITH QUEUES 


CHECK IF QUEUE IS EMPTY 


EAX XoFIRST+120 DOES FIRST POINT TO LAST? 
CMPX XeLAST2O EMPTY? 
TZE INV] IF SOs EXIT 


CHECK TO sEE IF AT LEAST TWO ITEMS 
LDX XsFIRST.Q DOES FIRST 
CmPxX XsLASTsd POINT To LAST? 
TZE INV] IF SOs EXIT 


SWAP THE TOP TWO 


LDX YocOFFSTeLINKsx "C(X) m= TOP 
Ccy) # s&ECOND 
LDX OotOFFSTS+LINKs Y #SAVE PTR TO THIRD 


STX YeaFIRST.O MAKE SECOND FIRST 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 


450 
460 
470 
480 
490 
3500 
510 
320 
530 
540 
550 
560 
570 
580 
590 


MBR 


OL O9—17=71 


001141 
On1i4e 
091143 
091144 


091145 


001146 
091147 
001150 
001151 


C 


777777 
777777 
000001 
O01146 
no00qg0! 


525205 
525205 
525205 
oo0coc 


790937 


7422 13 
7402 12 
1032 15 
6012 co 
7422 15 


001146 

01146 

525205 
2202 03 
2222 03 
2232 03 
7102 17 


QUEUE MANAGEMENT #= INV 


INV1t 


BUGRUG 


Se 


STX 
STX 
CmMPxX 
TNZ 
STX 


DONE» 


8Ss 
BUGXR 
SET 
LDX 
LDX 
LDX 
TRA 
INHIB 
DISK 


XegeOFFST+LINKsY 
OseDFFST+LINK SX 
Ya LASTeQ 

*42 

XsLASTsd 


BUG REGISTERS AND 


0 

(O0sxXe2Y) 
BUGBUG4! 
O,RUGEHGs DU 
Xe ByGbyge Dy 
Ys8US6UGS*DU 
Ost 

RESTORE 
BRANCH 


BMAKF FIRST SECOND 

"MAKF SECOND POINT TQ THIRN 
WAS SECOND REALLY LAST? 

NO 

YESs SWITCH IT 


RETURN 


RETURN TO CALLER 


PAGE 


75 


600 
610 


620 
630 
640 
650 
660 
670 
680 
690 


700 
710 
720 


MBR OL O9"17—71 992937 
i) 


901152 


INPUT/OUTPUT SCHEUUIER == 10S MONITOR PAGE 


QUEIIE MANAGEMFNT = SRANCH MACRO 


2527 
2528 
2529 * 
2530 * 
2531 * 
2532 * 
2533 * 
2534 * 
2535 * 
2536 »* 
2537 * 
2538 * 
2539 * 
2540 *# 
2541 * 
2542 * 
2543 »* 
2544 * 
2545 » 
2546 B 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 *$« 


RANCH 


USE CoDE 
HEAD Q 


BRANCH MACRO 


THIS MACRO CREATES AN ASYNCHRONOUS TASK TO BE PREFORMED aT A 
LATER TIME, IT CAN GIVE THE CREATED TASK THE CURRENT TBLOCK 
OR GIVE IT A NEW TBLOCK,. EITHER WAY FOUR PARAMETERS MAY BE 

BETWEFN THE TwO TBLOCKS. 


PAST INFORMATION IS PLACED IN TEMP THRU TEMP4 OF 
THE TASK PLACED ON THE QSTASK QUEUE. 


CALLS 


TSGETT 
CLOBBERS C(XxX)s.s C(x) 


MACRO PASSsXFER ADDeC(TEMP1L) »sCI(TEMP2) eC( TEMPS) oC(TEMP4) 


TSX Os tTSGETT GEy A NEw TBLOCK 

EAX XeOeT C(XX) POINTS TO NEW TBLOCK 
LDX To TSLINKSX CixT) POINTS TO OLD TBLOCK 
INE 943,97 ,2 

LDQ #3 SAVE FIRST PARAMETER 

ST9 TSTEMPILX 

INE °#40,>9,2 

LDQ a4 SAVE SECOND PARAMETER 

STQ TSTEMP2,X 

INE 9H5%, 9,2 

LDO a5 SAVE THIRD PARAMETER 

STQ TSTEMP3,X 

INE HHO, e 0 LD 

LDo #6 SAVE FORTH PARAMETER 

ST9 TSTEMP45x 

INE PHL» PASS ol T 1S THE BLOCK THAT 1S PASSED 
EAX TaOeX PASS NEw BLOCK 

EAX OsK2 POINT To TRANSFER ADDRESS 
STX O,TSTRA,T INTO QUEVE BLOCK 

EAX Os QSOFFSTsT PREPARE TO QUEVE 

xED OSKXADD+OSTASK GET ON THE TASK QUEUE 

IFE HL, PASS oli WHICH @ELNCK TO WE GIVE BACK AS CIJRRENT 
EAX T,9,X GIVE BACK NEW BLOCK 

INE "HI, "PASS? si 

LDx To TSLINK aX NOe GIVE B8ACK OLD 8LOCK 
BUGXR (O2X) 

ENDOM BRANCH 

DISK OP 


76 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 


MBR OL AGe17—7{4 


a 
wat 


005140 777777 
005141 05141 
005142 005141 
005143 o05141 
END OF BINARY CARD 
005144 90514¢ 
005145 061031 
005146 995140 
005147 01103 
005150 00514¢ 
0N5151 oo1lse 
005152 ocancos 


N01152 
005140 
905140 
A95140 
nooo on 
9onn ao 
7400 54 
7400 00 
1N§00026 
6250 00 
707N 00 
6250 00 
7070 00 
6250 00 
7079 00 
9000 00 


005153 cond00000000 
005154 ncnocnnoanoo 
005155 990000090900 
005156 ononocoonton 
005157 117120060060 


005140 


TINFUT/OUTPYT SCHEUYILER == TUS MONITOR 


QUEUES \-= @SO0POU QUEVE 


2576 
2577 
2578 
2579 
2580 
2541 
2582 
2583 
2564 
2585 


*s es © 8 & & 


opoo 


2586 OP 
2587 *$e 


HEAD 


e 


ASOPO0 QUEUE 


PAGE 


sINCE THE LOGGING DEVICE Is A SINGLE RESOURCEs TASKS MUST 


QUEUE FOR IT, 


QUEUE 
USE 
EVEN 
Bss 
ARG 
ARG 
STX 
STX 


EAX 
TSX 
EAX 
TSX 
EAX 
TSX 
ARG 
DEC 
DEC 
DEC 
DEC 
UASCI 
EQU 
DISK 


oPd0 
QSTOR 


0 
SERROR 
BSOPOC+OSFIRST+1 
O,OS0P904+OS$LASToDI 
CeOSQOP904+08 LAST 


Q,9S$0P90 
LeASENO 
Q5980P90 
LeSSDEO 
Qs,980P00 
LedSINV 


ABBREVIATION 


HENCE THIS CUFUE HOLDS THOSE TASKS WAITING 
TO LOG A MESSAGE TO THE NPERATOR®S CONSOLE TTY, 


OPoOO wax ASSUME ONLY ONE OP CONSOLE EVFRY 


77 


110 
120 
130 
140 
180 
160 
170 
140 
190 
200 


(REASONABLE) 
220 


MBR 


END 


D1 O9—17—=71 39093 


905160 
095160 
005160 
005160 
905160 777777 onS0 00 
095161 005161 590 00 
005162 005161 7400 54 
005163 005161 7490 00 
095164 905169 6250 00 
095165 001031 7070 on 
005166 005160 6250 00 
005167 001103 7070 oo 
005170 005160 6250 00 
OF BINARY CARD 10800027 
005171 001130 7070 06 
005172 000000 ono on 
005175 000000000000 
095174 ococo00000COND 
005175 onooon0co0nnD 
005176 onodcrOonOND 
005177) «124101123113 


if) 


7 


INPUT/OUTPUT SCHEYULER == 10S MONITOR PAGE 


2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 


QUEUES #= S$TASK QUEVE 


22 @ © © e# & ££ He FH 


TASK 


HEAD 


G 


OSTASK QuEUE 


THIS gUEVE Is USED TO SCHEDULE THE ACTIVITY OF THE PROCEss(R 
ENTRIES ARE MADE BY THE USE OF THE NORMAL XED Q$A4DD 

FEATURE AND ALSO BY AN XED CHAIN INSTIGATED BY THE ACTION CF 
A TRAP BEING SPRUNG BY THE EXECUTIVE. ENTRIES ARE REMOVED BY 
A SPECIAL PROGRAM MODULE WHICH IS CALLED BY THE EXIT MACRO 
WHENEVER THE PROCESSOR IS FREE TO WORK ON A NEW TASK, 


QUEUE 
USE 
EVEN 
BSS 
ARG 
ArG 
STX. 
STX 
EAX 
TSX 
EAX 
TSX 
EAX 


TSX 
ARG 
DEC 
DEC 
DEC 
DEC 
UASCI 


TASK 
QSTOR 


0 

SERROR 
QSTASK+OSFIestTel 
OsOSTASK4OSLASTSDI 
OsQSTASK4+OSLAST 
OsQSTASK 

LeOSENOD 

Qe OSTASK 

LsQSDE9 

Qs Q8TASK 


LeQSINv 
¢) 
0 
0 
0 
0 
1 


a TASK ABBREVIATION 


78 


MBR 


END 


OL 9017-71 59,937 


9) 


005200 
005200 
905200 
005200 


005200 777777 oote oo 
005201 005201 oG00 00 
005202 005201 7400 54 
095203 005261 7400 00 
005204 105200 625nN o0 
005205 001031 7070 no 
005206 a0520c 6250 00 
005207 101103 7070 o0 
005210 005200 6250 00 
005211 oO0O1130 7070 09 
005212 000000 o0C0 no 
005213 oo00000000ND 
005214 oonoocooocno 
005215 ogooccn00n0nD 
OF BINARY CARD 10800028 
005216 ocooorooocon 
005217 103117122105 


INPUT/NUTPUT SCHEDULER == [TUS MONITOR PaGeE 


2693 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 


QUENES == 98CoRE QUEUE 


ee &# © © HH Ft 


CORE 


HEAY 


G 


Q@SCORE QUEUE 


THIS QUEVE HOLNS THOSE TASKS WHICH REQUIRE MEMORY ALLOCATICNS 
WHEN aA PRIOR MEMORY REQUEST TS IN OPERATION, THIS IS NOT 
TO SE CONFUSED WITH THE THE FREE MEMORY LIST, 


QUEUE 
USE 
EVEN 
BSS 
ARG 
ARG 
STX 
STX 
EAX 
TSX 
EAX 
TSX 
EAX 
TSX 
ARG 
DEC 
DEC 
DEC 


DEC 
UASCI 


CORE 
OSTOR 


0 

SERROR 
OSCOHRE+QSFIRST4+1 
OsISCORE+OSLASTSDI 
Oo9SCORESOSLAST 
Qed CORE 

Ls ISENO 

Ceo OSCORE 

Ls9$DE9 

Qe OSCORE 

LeQfINV 


900 oO 


0 
1sCORE ABBREyIATION 


79 


250 
260 
270 
280 
290 
300 
310 
320 
330 
340 


MBR QL O9—17=71 39093 


095220 
005221 
005222 
005223 
0nS224 
095225 
095226 
005227 
095230 
005231 
005232 
005233 
005234 
095235 
095236 
095237 


q 


905220 
005220 
095220 
005220 


777777 0090 
005221 faca 
O05221 7400 
905221 7400 
005220 6250 
001031 7070 
905220 6250 
001103 7070 
005220 6250 
001130 7070 
000000 ontn 
000000000000 
elehehelebelelozehalens) 
000000000000 
000000000000 
111116120064 


7 


INPUT/OUTPUT SCHEJUILER == 1905 MONITOR PAGE 


2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2625 


QUEVES == OSINPL QUEUE 


*e@ 28 &#© He & H& & 


INP I 


HEAD 


Q 


QSINPL QuEvEe 


THIS Ts THE GENERAL JOB INPUT QUEUEe JO8S REQUESTING ONE 


OR MORE RESOURCES ARE PLACED ON THIS LIST. NOTE THAT THIS [5S 


LIST AS OPPOSED To A TRUE QUEUE. 


QUEUE 
USE 
Even 
BSs 
ARG 
ARG 
STX 
STX 
EAX 
TSX 
EAX 
TSX 
EAX 
TSX 
ARG 
DEC 
DEC 
DEC 
DEC 
UASCI 


INP1 
QSTOR 


Q 

SERROR 
OSINPL+OSFIRST41 
Os,QSINPIFOSLASTSDI 
OsQSINPLF+QOSLAST 
QeOS8INPL 

LoQSENA 

QeOSINPI 

LeoQSDE9 

QsOSINPI 

Le OSINV 


=moodocnca 


a INP ABBREVIATION 


A 


80 


360 
370 
380 
390 
400 
410 
420 
430 
440 
450 


MBR OL Nget7=71 59293 


005240 
095240 
095240 
005240 
005240 777777 onnn nO 
095241 05241 ontn oo 
END OF BINARY GARt INsnones 
005242 065241 7400 54 
005243 005241 7490 00 
005244 105240 6250 00 
005245 001031 7070 00 
095246 9095240 6250 00 
005247 01103 7970 00 
095250 005240 6250 oa 
005251 antise 707n 00 
005252 on000G Soto oa 
005253 ocococosoono 
005254 ncooonosnnne 
095255 onororocncoo 
005256 oco000c0nnnND 
005257 111116120062 


A) 


7 


INPUT/OUTPUT SCHEYULER == OS MONITOR 


2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
26358 
2634 


QUEUES |#= QSINP!S! QUEUE 


* £*¢£#+ 8@ ¢ & 8 


INP? 


HEAD 


C 


QASINP] QyYEVE 


THIS 15 A SPECIAL LIST (REALLY A LIST, 


ALL SHORT PRINTER JOBS. 


QuEuveE 
USE 
EVEN 
35S 
ARG 
ARG 


STX 
STX 
EAX 
TSX 
EAX 
TSX 
EAX 
TSX 
ARG 
pec 
DEC 
DEC 
DEC 
UASCI 


INP2 
QSTOR 


0 
SERROR 
OBINP2Z+OS$FIRST41 


Os ISINP24¢QSLASTSDI 
O,SSINP2+O$LAST 
Oes9SYNPQ 

LeSSENn49 

QeISINPg 

LeI$DE9 

Qe DSINP2 

LeQSINy 

0 


0 
0 
0 
0 
is 


INP2 ABBREVIATION 


NOT A QUEUE). 
A SHORT PRINTER JOB IS ONE THAT REQUTRESSSO 
AN ARRITRARY NUMBER OF PAGES TO BE PRINTED OR LESS, 


PAGE 


HERE GOES 


at 


470 
480 
490 
500 
510 
520 


540 
550 
540 


MBR 


OL 09617871 090937 
fl 
095260 
N05260 
005260 
095260 
095260 777777 co0o oo 
005261 005261 coon on 
095262 005261 7400 54 
095263 905261 7470 90 
095264 905267 6259 oo 
0905265 00103! 797 050 
095266 90526C 625n o0 
OF BINARY CARD 10899030 
005267 901103 707n 00 
095270 005260 6250 o0 
005271 o61135 7070 00 
005272 co0000 cocto oo 
095273 onccocococtne 
095274 nacnoorooonnn 
095275 anonococatag 
005276 anoconoconnn 
095277 111116120063 


INPUT/OUTPYT SCHEDYLER |e= JUS MONITOR 


QUEUES == O$INPS QUEUE 


2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 


*2 @ 2 6# @ 86 @ 


INPS 


2647 #Ge 


HEAD 


THIS 1S A SPECTAL LIST (REALLY. & LISTS NOT A QUEUE), 
GOES ALL MEDIUM SIZE PRINTER JOBS, 
THAT PEQUIRES AN ARBITRARY NUMBER OF PAGES TO BE PRINTED WHICH 


IS BETWEEN TwO LIMITS (SMALL AND LARGE OF COURSE), 


QuEuE 
USE 
EVEN 
BSs 
ARG 
ARG 
STX 
STX 
EAX 
TSX 
EAX 


TSX 
EAX 
TSX 
ARG 
DEC 
DEC 
DEC 
DEC 
UASCI 
DISK 


Q 


QSINPS gyEVE 


INPS 
QSTOR 


0 

SERROR 
QSINPS+O$FIRST+! 
OsASINPE Se QOS$LASTADI 
OCeoOSINPS4O$SLAST 

Os OSINPR 

LeQSEN9 

Os OSINPS 


LeQSDEQ 
QsOSINPS 
Le DSINV 
0 


0 
0 
0 


Le INPS ABBREVIATION 


PAGE 


HERE 
A MEDIUM PRINTER JOB IS ONE 


A? 


5&0 
590 
690 
610 
620 
630 
640 
650 
660 
670 
680 


690 


MBR D1 09"37=71 


005344 
005345 


095346 
005347 


G 


00640C 
0009090 


000000 
006460 


690937 


OO1152 


095344 


oncaoo 
socnoo 


nocn0o 
9o0n00n 
001152 


INPUT/OUTPUT SCHEDULER == 10S MONITOR PAGE 


2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 


CORE MANAGEMENT "= GENERAL INTRODUCTION 


@e #@ Bee He HehUrHhUrhUrhUhhUchhUrhUrhhUh)]hMUhMhUrhUh]}HMUM HhU}MhUhH 


FIRST 


USE CODE 
HEAY R 


GENERAL INTRODUCTION 


BELOW Ig THE FREE MEMORY LISTe THE LIST CONSISTS OF A 
POSSIBLY EMPTY LINKED LIST OF BLOCKS, THE FORWARD/BACKWaRD 
POINTERS OF & B3LOCK POINT TO THE FIRST WORD OF THE SUCCEFDING/ 
PRECEEDING SLOCKSs RESPECTIVELY. THE LINK POINTERS ARE 

STOREN IN WORDS ©O AND ts RESPECTIVELY. OF THE RLOCK. 

HENCE THE MINIMAL SIZE CF A BLOCK IS TWO (2) WORDS, THE 

TOTAL LENGTH GF THE FLOCK 1S ALSO KEPT IN WORD Of AY 

DESIGN CONVENTIONSs THE POINTERS ARE UPPER HaLF QUANTITIFS 

AND THE LENGTH IS A LOWER HALF QUANTITY, THE EMPTY LIST 

IS DENOTED BY THE FORWARD LINK OF THE oFIRST» POINTING TO 
*LAST® AND BY THE BACKWARD LINK OF °LAST® POINTING TO °FIRST®, 


NOTE THAT ALL ALLOCATIONS ARE MONE IN MULTIPLES OF EIGHT, 


A BLOCK MUST BE DE*ALLOCATED AS ONE ENTITY. NO PARTIAL RELEASES 


ARE ALLOWED, 


FREE MEMORY LIST 


USE STORE 

ZERO SNEXTFsQ FORWARD LINKys LENGTH OF BLOCK 
ZERO O, RACKWARD LINK/ <NOT USED> 
ZERO 020 FORWARD LINK/ LENGTH OF BLOCK 


ZERO SNEXTB, 
USE PREVIOUS 


BACKWARD LINK, <NOT USED> 


83 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
340 
390 
400 
410 
420 


MBR OL O9—17=71 590937 


R 


AIL1S2 


INPUT/OUTPUT SCHEDULER == JOS MONITOR 


2662 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2708 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2716 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 


PAGE 


CORE MANAGEMENT == MACROS 


ro a a 2 a 


ETC 


@82#@ 4282 &@ @ B22 He eH 


RELC 


2Ee 


USE CODE 
HEAD R 


MACROS 


THE FOLLOWING MACROS ARE ysEM 10 ALLOCATE/DEALLOCATE BLOCKs 


OF CORE. ONLY INDEX REGISTER J 1S GUARANTEED ACCROSS THESE 
CALLS. 
GETC MACRO 
CALL wITH 
CcAL) = NUMBER=OF ewORDS=REQUESTED 
ENTER BY 


TSX LeRSGETC 

RETURNS TO OoL 

RETURNS WITH 
CcAU) = BUFFER@ADDRESS 
CcAL) = BUFFER=LENGTH 


MACRO WORD=COUNT@ADDRESS/ A? 
INE PHL PS rae 
LDA Al 
TSX LeRSGETC 
ENDM GETC 

RELC MACRO 
CALL wITH 


C(AU) # BUFFER@ANDRESS 
CcAL) @» BUFFER=ADNDRESS 
ENTER BY 
TSX LeRSRELC 
RETURNS TO OeLl 
RETURNS WITH 
DESTROYS C(A) 


MACRO RELEASE*ADDRESS&COUNT/ PA? 
INE HL, oho 

LDA #1 

TSX LeRSRELC 

ENDM RELC 

DISK GETC1 


84 


440 
450 
460 
470 
480 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
7530 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
920 


MBR 


END 


AL O9=817—=71 


R 
091152 ococtlic 
001153 oe052¢64 
nnii154 oo0o14 
001155 000007 
091156 777770 
001157 777777 
091160 004001 
OF BINARY CARE 
001163) 777777 
01162 o0n014 
091163 ecooooc 


692937 


O01152 


001152 
001152 
7530 11 
001153 
7179 00 
001154 
2350 11 
0350 07 
3750 07 
6000 oOo 
1150 07 
10800031 
6030 00 
7550 11 
6350 05 


INPUT/JOUTPUT SCHEUUILER == 198 MONITOR PAGE 


2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2758 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 


2768 
2769 
2770 
2771 
2772 
2773 


2774 
2775 
2776 


CORE MANAGEMENT == ALLOCATION 


@aeeeeee#e#e#etseteee#teneeeeeeeeeenene ete te 


GETC 


GETCL 


USE CODE 
HEAD R 


ALLOCATION 


THIS sUBROUTINE REMOVES A SLOCK OF N WORDS FROM THE FREE 
MEMORY LIST. IF THERE IS NO BLOCK OF N WORDS OR GREATER 
ON THE FREE LIST. THERE A REQUEST FOR MORE MEMORY IS MADE, 
AND THE PROCESS IS REPEATED. SINCE MEMORY REQUESTS ARE 

OF THE TRAPPING MME BRAND, IT IS NECESSARY TO FIRST 

CHECK TO SEE IF A MEMORY REQUEST IS CURRENTLY IN OPERATION, 
IF Sade TREN THIS REQUEST IS PUT TO SLEEP BY QUEUEING IT 

ON THE QS$CORE QUEUE. WHEN THE MEMORy REQUEST COMPLETES 
THE NEXT ITEM (IF ANY) ON OSCORE IS AWAKENED, CORE ALLO} 
CATION IS ON A FIRST FIT BASIS, THIS ITS TO ALLOW HOLES 

TO FLAW TOWARD WYIGHER MEMORY. 


CALL BY 
TSX LeR$GETC 

CALL wITR 
C(AL) = NUMBER@OF eWORDSsREQUESTED 
C(t) =» TRAP BLOCK 


CALLS 
ENQ CORE 
RSMORE. 
RSRELC 
DEO CORE 


RETURNS WITH 
C( AU) =» ADDRESS 
C(AL) = NUMBER OF woRDS 
ExIT TO Osel 
PRESERVES ALL REGISTERS EXCEPT ccA) 
USES TEMPORARIES TSTEMS THRU TETEM16 


USE COnE 

BSS 0 

SREG TSTEMI6eT SAVE ALL REGISTERS 
ENO CORE AND GET ON THE CORE QUEUE 
XED QSCNRE+O8XENO 

BSS 0 

LDA TSTEMI2eT RESTORE A AND 

ADLA 7o9L ROUND UP LENGTH 

ANA £0777770eDL TO A MULTIPLE OF 8 
TZE SERROR texBLEwry 

CMPA SROMAYsDL HOw MuCH Is REQUESTED 
TRC SERROR TOO MUCH 

STA TSTEMI2,T SAVE NEW LENGTH 

EAA Os AL MOVE LENGTH TO AY 


MBR Ol O09=17971 390937 INPUT/OUTPUT SCHEDUIER #= 10S MONITOR PAGE 86 


R CORE MANAGEMENT == ALLOCATION 
091164 of0016 7559 14 2777 STA TETEVIOST SAVE FOR INDEX REGISTER OPERATIONS 590 
901165 2778 GETC3 8ss 0 600 
001165 000014 2350 11 2779 LEA T3TEMI25T GET BACK REQUEST 610 
001166 065344 2240 oOo 2780 LLX ZeFIRST GET PTR TO FIRST FREE BLOCK 620 
001167 2781 GETC6 8sSs 0 630 
001167 ocG302 Snt2 on 2782 RPL sTNCST7E RUN NOWN LINKED LIST 640 
001170 oonnoo 1159 14 2783 CMPA Os? FOR A BLOCK BIG ENOUGH 650 
001171 901176 6000 OO 2784 TZE GETC7 FOUND A BLOCK THAT IS *JUST RIGHT? 660 
O901172 001176 6020 Of 2785 TNC GETC7 MORE THKaT BIG ENOUGH 670 
ONL173 eennoo 224n 14 2786 LpXx 70907 GET BACK PYR OF WHERE WE LEFT OFF 680 
091174 o01167 6010 40 2787 TNZ GETCS IF NOT AT END OF Lists KEEP SEARCHING 690 
091175 ni241 7109 oo 2788 TRA MORE WON*T FIT ANYWHEREs GET MORE CORE 700 
001176 000014 7440 4 2789 GETC7 SstTxX Ze TSTEMI 207 SAVE PTR TO BLOCK TO RETURN TO CALLER 710 
2790 *# 720 
2791 * Z POINTS TO 8LOCK TO DELINK 730 
2792 * 740 
001177 ooodoo! 2230 1i4 2793 LOX YoLINKAs 2 ASSIGN y TO PREDECESSOR 750 
091200 990000 222n 14 2794 LDX XoLINKFsZ AND X To SUCCESSORE 760 
091201 occanoe 7200 14 2795 Lyt OslENe?7 GET THE LENGTH OF THIS BLOCK 770 
091202 000016 1200 11 2796 SBLX Os TSTEMIOST MINUS THE AMOUNT REQUIRED 7A0 
001203 001212 6000 O90 2797 T7E GETC4 AH HAs BLOCK JUST FITS 790 
001204 777777 6040 00 2798 TMI SERROR #aeBLEwry 800 
003205 90000916 0240 11 2799 ADLX ZeTSTEMIOST SET Z TN START OF EXCESS OF BLOCK 810 
091206 anccgoo 44fn 14 2800 SXb OslLFENo? SET TRE LENGTH OF THE REMAINING ALCOCK 820 

ENO OF BINARY CARD Insn0032 

001207 o0000C 7429 44 2801 STX XsLINKFS7 SET FORWARD LINK OF REMAINING SLOCK 830 
091210 00001 7440 12 2802 STXx ZoLINKRsX © BACkwARD «© #& ‘ ' 840 
091211 000000 6220 14 2603 EAX Xp0,7 COPY Z INTO X FOR FUDGE 850 
O01212 ann009 742f 13 2804 GETC4 srtXx XaLInKFsY SET FORWARN! LINK OF PREDECESSOR 860 
O91212 ongnol 4500 12 2805 $tz LINKS eX «ea DBG 870 
091214 900001 7430 12 2806 svX YoLINKSsX SET RACKWARD LINK OF SELF 880 
n01215 2807 DEQ CORE SEE IF ANYONE ELSE WANTS CORE 890 

091215 005206 7170 oo XED QSCORE+O8xXNEQ 
2808 * 900 
2869 * ZERO BLOCK FoR USER 910 
2810 * 920 
991216 onooi4 235n 11 2811 LDA TSTE™12,7 GET LENGTH 930 
001217 777777 3750 07 2812 ANA =15DL MASK TO COUNT 940 
001220 777777 6240 05 2813 EAX Zoro AL SAVE COUNT MINUS ONE IN 7 950 
091221 oondi10 7350 o0 2814 ALS 10<2 PUT COUNT IN REPEAT FIFLD 960 
901222 01400 6200 05 2815 EaX Os BSASITSeRS3BITsAL TERMINATE CONDITIONS AND COUNT 970 
001223 060900 4319 07 2816 FLD OsDL CLEAR Ag 980 
091224 900014 2220 11 2817 LDX Xe TSTIEM{2eT GET STARTING ADDRESS 990 
991225 9000902 623n 12 2818 EAX Yo2e% SET SET INDEX REGISTER 1000 
001227 1009909 5602 04 2819 GETC8~ RPO 24 ZERO MEMORY LIKE MAD 1010 
091230 6©900n00 757n 12 2820 STAQ O»X CHONK 1020 
0012351 fenoon 7570 13 2821 STAQ OsY CHONK 1030 
991232 no200r 124n o3 2822 SELX Zot {Kod REMOVE aA K AS DONE 1940 
991233 601227 603nN O00 2823 TRC GETAA TEST FOR MORE 1050 


2824 * 1960 


MBR 


END 


OL 09-17-71 


R 
0901234 900016 
OF BINARY CARI 
on1235 ocStce 
091236 777777 
001237 eanonio 
091240 900000 


994937 


901234 
3220 11 
1n$00033 
3420 an 
6040 90 
s730 31 
7100 17 


INPUT/OUTP IT SCHEJULER == 195 MONITOR 


CORE MANAGEMENT == ALLOCATION 


2825 * 
2826 * 
2827 GETCS 
2828 


2829 
2830 
2831 
2832 


FINISH UP 

855 0 

LCx Xo TETEMIO“T 
ASX Xe SAVAIL 
TMI SERROR 

LREG TSTEML65T 


TRA OsL 


PAGE 


GET COMPLEMENT OF LENGTH TO RETURN 


REPUCE AVAIL BY THAT AMOUNT 
exeaBLEwIT 
RESTORE REGISTERS 


RETURN 


87 


— oe 
Qaao 
Oo @P™ 
ooo 


1100 


1110 
1120 
1130 


1140 


MBR OL 09-17=71 
R 
001241 005303 
001242 001000 
004243 005303 
01244 001443 
091245 095303 
001246 no1000 
001247 001000 
091250 001252 
001251 61165 


090937 


N31241 


001241 
2220 00 
9220 03 
7420 00 
7070 00 

n01245 
2350 00 
1350 o3 
2750 07 

001250 
7070 nO 
7100 09 


INPUT/SUTPUT SCHEDULER «=< 


2834 
28635 
2836 
2837 
2838 
2839 
2840 
2841 
2642 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2650 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 


2866 
2867 


TOS MONITOR PAGE 


CORE MANAGEMENT |= REQUEST MORE 


xeseeeeeeee #©e ee eee ete eH eH 


Qa 
a 
m 


MORE1 


aE 


USE CODE 
HEAD R 


REQUEST MORE 


THIS SUBROUTINE TOES A REQUEST FOR MORE MEMORY, 
FOR ONE CORE UNIT. UPON THE SUCCESSFUL COMPLETION OF THE 
REQUEST» THE NEw MEMORY IS LINKED ON THE FREE LIST BY 
CALLI*G RELC. 


IT aSkS 


CALL 8y 
TRA MORE (ONLY *GETC® SHOULD CALL THIS ROUTINE) 
CALL wITH 
Cit) = 7RAP=BLOCK 
CALLS 
SCHSEG 
RSRELC 
EXIT TO RSGETC3 


DESTROYS <ALL REGISTERS» 
USES “0 LOCAL TEMPORARIES 


BSS 0 

LDX Xe SMTOP GET CURRENT TOP OF MEMORY 
ADLX Xs SMOUANS DU ADD ONE CORE UNIT 

STX Xe SMTOP SAVE NEw EXPECTED TOP 

TSX L»MREQ REQUEST MEMORY 

BSS 0 

LDA $MTOP GET BACK OLD TOP OF MEMORY 
SBLA SMQUANS DU IN AU 

ORA SMQUANS DL AND LENGTH IN AL 

RELC A Now DO aA RELFASE TO LINK ON FREE LIST 
TSX LeRSRELC 

TRA GETC3 TRY AGAIN 

DISK RELC 


8A 


1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 


1480 
1490 


MBR 


END 


OL O9837=74 


R 


001252 005370 
001253 777777 
091254 05376 
901255 005302 
001256 905303 
001257 905376 
091260 777777 
OF BINARY GARD 
001261 005376 
001262 005374 
091263 777777 
091264 005376 
001265 ooaoce 
901266 005376 
001267 777777 
Onle270 05344 
091271 001273 
001272 00000C 
001273 cno1soé 
001274 4005374 


90937 


A91252 


001252 
001252 


7530 
3750 
7550 
2350 
2360 
{ito 
6010 


10800034 


222n 
7200 
600n 
o4na 
4400 
1110 
6n10 
2220 
7100 


2229 
6000 
1020 


00 
03 
00 
90 
00 
00 
00 


00 
0.0 
00 
ON 
12 
00 
090 
00 
00 


12 
0 
00 


2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
28481 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
2902 


29038 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2941 
2912 
2913 
2914 
2915 
2916 


e*eeeeeeeee ete eee ete #£e ee ee eee & 


RELC 


2 


TNPUT/OUTPUT SCHEUUI FR =*° TOS MONITOR PACE 89 
CORE MANAGEMENT == NERALIOCATION 

USE Cone 110 
HE AU R 120 
130 

140 
DE*ALLOCATION 150 
1460 
THIS ROUTINE LINKS TRE "PELEASED® BLOCK OF MEMORY INTO 170 
THE FREE MEMOpyY LIST ACCORDING TN THE BLOCK*s ADDRESS. 180 
SINCE THE FREE LIST IS ORDERED BY BLOCK ADDRESSES FROM 190 
LOWEST TO HIGHEST» IN ORNER TO MAKE INSERTIONS AND DE= 200 
LETIONS EASIFSr THERE IS ASSOCIATED wITH EACH BLOCK A 210 
FORWARD AND RACKWARD POINTER AS WELL AS A COUNT OF THE 220 
TOTAL NUMBER OF WORQS IN THE BLOCKe 230 
240 
CALL Ay 250 
TSK Leo RSRELC 260 
CALL wITH 270 
C(AU) » RLOCK@ADDRESS 2a0 
CcAL) = LENGTH 290 

CALLS — 300 
RSMEMCK (CONDITIONALLY) 310 

ExIT TO Oel 320 
PRESERVES ALL REGISTERS EXCEPT CCA) 330 
USES 1OCAL TEMPORARIES MREG THRU MREGS7 340 
350 

use CoDdE 360 
BSS 0 RELEASE A BLOCK OF MEMORY 370 
SREG MREG SAVE REGISTERS 380 
ANA “1.sDU ISOLATE RELEASE ADDRESS 390 
STA TEMP SaVE For TEST 400 
LDA $MTOPO TEST TO SEE IF ADDRESS 410 
LDQ SMTOP OF BLOCK TO BE RELEASED 420 
CWL TEMP 1S IN BUFFER AREA 430 
TNZ SERROR RLEWIT 440 
LDxX Xe TEMP GET INsErRt ADDRESs 450 
LXL OsMREGS4 GET LENGTH 460 
TZE SERROR eeeBlLEwlT 470 
ASX OsTEMP ADD TO STARTING apDRESS 480 
SXL Os LENeX SAVE IN BLOCK 490 
CWL TEMP TEST IF aLL YS IN RANGE 500 
TN2Z SERROR seeBLEw tT 510 
LDx ya FIRST GET POINTER TO FIRST FREE ALOCK AF FREE LIST 
TRA *42 ENTER SEARCH LOOP 530 
540 

LOCATE WHERE 79 INSERT BLOCK IN FREE LIst ACCORDING 10 ANDRESS 550 
560 

LDX Xo LINKF os x GET Ptr TO NEXT BLOCK ON FREE Lict 570 
TZE RELC?2 DIC WE guST FALL OFF THE END OF THE LIST?580 
CMPX Xs» INSRT NOsARE wE POINTING PAST THE HOLE? 590 


2917 


MBR 


END 


OL O9—"17=74 
R 

091275 001272 
091276 1n5374 
991277) goooel 
9013500 onn901 
091301 onto! 
991302 fnooar 
901303 60600} 
091394 oannnan 
091305 oo1sic 
001306 ¢c05346 
OF RINARY CARD 
001307 001276 
0013510 co1sse 
O91311 coacor 
901312 oo000cn 
N91313 905374 
O01514 01359 


290937 INPUT/OUTPUT SCHEDULER == 195 MONTTC? PACE 90 
CORE MANAGEMENT |= RF eAL LOCATION 
6020 90 2916 TNC wat NQe LOOK AGAIN 600 
2919 * 610 
292c * 620 
2921 * 630 
2922 * LOCATED POSITION OF RLOCK WITH xReX POINTING TO SUCCESSOR 640 
2923 * 650 
001276 2924 RELCL BSS 0 660 
224 90 2925 LrxX Za INSeT NOK 7 POINTS TO INSERT 670 
2230 12 2926 LEX YoLI\K2,x wan Y POINTS TO PRENFCESSOR 680 
2927 wae X POINTS TO SUCCESSOR 690 
A5CN 14 2928 STZ LINK" o7 wae AG 750 
7420 14 2929 STX YoLI\kK2,7 SET RACKWARD LINK OF INSERT 7460 
7420 14 2930 STX Xa LIN\kKFo7 © FORWARD # " " 770 
74401 42 2931 sTXx Zea LINKA,YX RESET SUCCESSOR®S BACKWARD LINK 7Aa0 
7440 13 2932 STxX ZoLINKFsY AMD FINISH LINKING GY RESETTING ORFDECESSOR? 
2933 waeFORWARD LINK, ano 
7109 69 2934 TRA RELC3 NOW DO SOME RE=COMBINING 810 
2935 * 820 
2936 * RELEASED SLOCK FITS BETWEEN THE LAST FREE S3LOCK AND eLAsrTe B30 
2937 * 840 
NO1L306 2938 RELC2 888 8) 850 
A220 On 2939 EAX Xe LAST SO MAKE x POINT TO SUCCESSOR 860 
10809035 
7190 a0 2940 TRA RELI AND TREAT NORMALLY 870 
2941 * 880 
2942 * 890 
2943 * NOW THAT THE BLOCK HAS BEEN CORRECTLY LINKED ON THE FREE 900 
2944 * LIST TRY TO RPECOMRINE wITH ITS BUDDIES. 910 
2945 * THERE ARE FOUR (4) CASES TO CONSIDERS 920 
2946 * 925 
2947 * CASE It THERF FXISTS A BUDDY ASQVE InN MEMORY 930 
2948 * CASE ITsTHERE FXISTS A BUDDY BELOW IN MEMORY 940 
2949 * CASE FTIsALL OF THE ABOVE 950 
2950 « CASE Ivt NONE OF THE ARQVE 960 
2951 * 970 
n01310 2952 RELC3 BSS 0 980 
7070 90 2953 TSX LeRELC4 CASE Is TRy REJOINING WITH RYDDyY AROVE 990 
6220 14 2954 EAX Xe007 LET X¥ POINT TO INSERT 1000 
6240 13 2955 EAX ZaOeY LET 27 POINT TO ITS PREDECESSOR 1010 
744n 00 2956 STX Za INSRT NOW CALL THE PREDECESSOR INSERT 1020 
7079 00 2957 TSX LeRELC4 FUDGE Case IT TO CASE I 1030 


MBR 


END 


OL OAGe{7=71 
R 

ON1315 0965374 
091316 ne5300 
N91317 ags3qz 
0N1320 6975302 
01321 en1908 
O01322 on,s4a 
0091323 acsto1 
on1324 anytd4 
001325 ccs2i1? 
091326 101344 
001327 nn5350 
O0133¢c 90535¢ 
001331 901467 
nN1332 non9en 
091333 fonnos 
001334 nannoo 


OF BINARY CARD 


001335 9001365 
an1336 anco04 
001337 ncooo4 
091340 69005162 
001341 900905 
001342 525206 
001343 525206 
001344 905370 
001345 525207 
091346 525207 
091347 ocanoc 


392937 


7220 99 
042n nn 
2220 00 
1220 00 
1220 03 
602C 49 
1520 nO 
4n20 09 
2340 09 
£019 90 
z2in os 
7260 07 
N01331 
7oCN oO 
62290 14 
2210 12 
621M 12 
INOSA9036 
6200 00 
7400 11 
6200 it 
7170 19 
2210 12 
01342 
525206 
2200 O38 
2229 03 
N01344 
073n 09 
001345 
525207 
2380 o3 
2750 07 
7100 17 


TyPuT/NUTeP IT SCHELUUILER <= 


2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 


2976 
2977 
2978 


2979 


CORE MANAGEMENT =—@ JFeALLOCATICN 


* 4 & & 


ByGRUG 


RELCX 


BUGBUG 


WERE 


NONE e 


tas 


BLOCK 


MONIT TOR 


[Ss COPRECTLY LINKED 


PAGE 


IN LIST. 


GRAS CALLERS REGISTERS ANT FETURN, 


LXk 
ASX 
LDX 
SBLX 
SB xX 
TNC 
CMP Xx 
TNC 
SZN 
TNZ 
LDx 
LXL 
BRANCH 
TSX 
EAX 
LDX 
EAX 


EAX 
STX 
EAX 
XED 
LOX 
BUGXR 
SET 
LDX 
LDX 
BSS 
LREG 
BUGA 
SET 
LDA 
ORA 
TRA 


Xa4%eRF Ged 

Xe AVAIL 

Xo BMTOP 
X,tMTOPO 

Xe SMQUANS DU! 
RELCY 

Xo BMEMRQ 
RELCY 
QPSRSUSY+#QS$CORE 
RELCx 
TeTRAPLZDU 

Jo TRAPSDL 
NOPASSsMEMCK 
Os TSGETT 
Xa%eT 

Ta TBLINKaX 
Ta ey 


Os 4EMCK 

Os TETRA,T 
Oe QSOFFST oT 
QSXAND+QSTASK 
To TSLINKsX 
(Osx) 
BUGBYG+, 
O0s8UGHUGs Dl! 
X»8UGBUGS*DU 
0 

MREG 


PUGBUG+1 
BYUGRy Ge Dy 
BUGRUGS DL 
Ost 


GET RACK AMOUNT RELEASED 

STATISTIC& FREE CORE 

GET TUP OF MEMORY 

COMPUTE BUFFER SIZE 

MINUS A CORE QUANTUM 

MK, FORGET APQUT IT 

COMPARE [JT TN MEMORY REGCHIITREMENTS 

CAN wE AFFORD TO RELEASE SOME MEMORY? 
RUT FIRST IS MEMORY RUSY? 


NON’ T UNDER ANY CyRCUMSTANCES TRY TO CALL MEMCK. 


GET DUMMy TCR 
AND MUMMY JCR 
Nk TO SET UP TASK TO RFLEASE MEMARY 


EXIT 
RESTORE REGISTERS 
REMIND HIM THAT A IS INVALID 


RETURN TO CALLER 


91 


1959 
1960 
1970 
1080 
1090 
A100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 


1190 
1200 
1210 


1220 
1230 
1240 


1250 


MBR 


END 


QL O9917=71 
F 

091350 noanor 
091351 905374 
NN13S52 o00000 
091353 annanen 
091354 onooon 
091355 ocac0e 
091556 conoot 
091357 nqggd0n 
90136C [05376 
091561 nanooon 
091562 095376 
OF BINARY CARD 
001563 scanos 
001364 na¢caoos 


C90 937 


n01350 
7200 14 
C200 40 
10c0 14 
BIN 17 


2200 12 
7400 14 
7440 10 
720N 42 
7400 00 
7200 14 
92ff a0 
19890037 
4400 14 
7ACO 17 


£05350 
005350 
905350 
905370 
9N5374 
05.376 
091365 


INPUT/NUTPUT SCHESU) ER == 755 MONTTOR 


29481 
2982 
2983 
2964 
2985 
2986 
2967 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3068 


3009 
3010 
Soil 
3012 
3OtS 
3014 
SoLs 
3016 
3017 
3018 
3019 
3020 


CORE MANAGEME*T *= NE SALLOCATICN 


*e ¢&# £t+# 8 © © &© & & 


RELC4 


THIS S'IGROUTINE TRIES To RECOMRINE A BLOCK OF MEMORY 
AND ITS BUDDY ABOVE CIF TY IS ALSO IN THF FREE LIST) 
INTO a SINGLE 3LOCK, 


CALL #Y 
TSX LePELC4 
CALL « 1rvr 
C(7) & INSFRT@=RLOCK=ADDRESS 
C(X) #& INSERT?S SUCCESSOR 
EXIT TO Gel 
DESTROYS 00X57 


6858 0 

LXL O,LENs? COMPUTE ADDRESS OF BIDDY IN 
ADLX Os INSRT eee JPPER MEMORY 

CMPx OaLINKF,? IS IT PART OF TRE FREE LIST? 
TNZ Ool NOse SO RETURN TO CALLER 


FOUND RUDDY 


PAGE 


LOX Ceo LINKFsX RPESET INSERT*®S FORWARD LINK TO 
STX O,LINKF 42 THAT OF BUDDY?S, 

STX ZeLINkK3,0 RESET PREDECESSOR®’S SACKWARD POINTFR 
LXL Os lLENsX GET THE LENGTH OF SuDDY 

STXx Os TEMP SAVE {T 

Lx OsLENe? GET LENGTH OF INSERT 

ADLX Ne TEMP TO GFT TOTAL LENGTH 

SXL OeL EN? AND RESET LENGTH OF BLOCK 

TRA Osk RETURN TO CALLER 

USE STORE 

EIGHT 

BSS TSLEN TUMMY TCR WHEN CREATING MFEMCK 
EQU TRAPSTSLEN@8 TEMP REGISTER STORAGE 

EQU MREGe4 POINTER TO INSERT SLOCK 

EGU MREG+6 FOR SCRATCH WORK 

USE PREVIQUS 

DISK MEMCK 


92 


MBR OL: Oe. 7 <2] 


001365 
0N1366 
001367 
091370 
001371 
091372 
O013783 
001374 
001375 
001376 
001377 
091400 
0n1401 


091402 
on14o03 
091494 
091405 
091406 
091407 


Fe 


0c5204 
905303 
005302 
oN0027 
ao530c 
777777 
conn26 
CMs 301 
nonn26 
nea025 
001440 
nn144n 
nnon22 


Cc5344 
onasa2 
000000 
n01412 
eoi4gle 
nq000c 


790 937. 


091365 


N01365 
001365 


7170 
2220 
122n 
7420 
1220 
6040 
7420 
2gen 
1350 
7550 
6940 
6a0tn 
77190 


224n 
5202 
1150 
6n0n 
6920 
2240 


09 
00 


INPUTY 


5622 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3630 
3031 
3032 
3633 
3034 
$035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 


3050 
3051 
3052 
3653 
3054 
3955 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
30664 
3065 
3066 
3067 
3068 
3069 
3070 


QUTPUT 


SCRE UU FR «8 


CTGRE MANAGEMENT == MEMORY RELEASE 


a2 e#8e © &¢ Be &€ # Fe # e EH He Ee ee He Hee HH He 


MEMCK 


MEM 


USE 
HEAL) 


CONE 


R 


THIS TASK CHECKS 


SYSTEM, 


IF SO, 


THE ALGORITHM IS 


GIVENS 


MEMROQ w= 
TOTAL == 
AVATL a= 
USED o= 


REQUIREMENTS 


USED «2 M 


ENTERFD WHENS 


TOTAL =MEM 


RESTRICTIONSS 


($) CAN 


USES NO LOCAL TEMPORARIES 


BSS 
ENQ 
xED 
LDX 
SBLX 
STX 
SBLx 
TMI 
STX 
LDA 
SBLA 
STA 
TMI 
TZE 
APL 


0 

CORE. 
GSCORE+O$ 
Xe SMTQP 
X,3BMTOPO 
XeTSrEmMp! 
Ke SAVATIL 
SERROR 

Xs TETEMPO 
SMEMRO 
TETEMP2,T 
TSTEMPRLT 
MEMYX 

MEMYX 
36°18 


SEARCH FOR 8LOCK OF *NEENED® SIZE 


LDX 
RPL 
CMPA 
TZE 
TNC 


ZeFIRST 
eo TNCsT7E 
OeZ 

MEM2 
MEM? 


TOS MONITOR PAGE 93 
{10 
120 
130 
140 
MEMORY RELEASE 150 
160 
TO SEE TF IT CAN GIVE BACK MEMORY TN THE 170 
IT RETURNS FLOCKS IM MULTIPLES OF SMQUAN, 180 
AS FOLLOWS3 190 
200 
AMOUNT OF MEMORY NEFDED THOUGH NOT NECESSARIYLY IN USE 
TCTAL BUFFER AREA SIZE 220 
AMOUNT OF FREE CORE THOUGH NOT NECESSARILY CONTIGOUS 
AMOUNT OF CORE BUSY (TOTAL@AVAIL) 240 
250 
EMRE 260 
270 
RQ => MNUAN 280 
290 
RELFASE ONLY THE LAST PHYSICAL BLOCK 300 
(2) A RELEASE CAN BE FFFECTED ONLY IF AFTER THE RELEASE 310 
THERE IS AT LEAST ONE BLOCK OF MEMORY THAT 1S OF 320 
MFMRQ*USED SIZE. 330 
MEMCK IS AN ASYNCHRONOUS TASK» HENCE IT MAY ALL TEMP?°S 340 
350 
360 
370 
GET ON CORE QUEUF 380 
yENQ 
GET TOP OF RUFFER AREA 390 
MINUS BOTTOM @® TOTAL 400 
oT CcrsrEmpieT) s&s TOTAL 410 
MINUS AyAIL w» USED 420 
wee GLEwlT 430 
oT C(TSTEMP2eT) = USED 440 
GET AMOUNT OF MEMORY REQUIRED 460 
MINUS USED = AMOUNT NEEDED STILL 460 
SAVE IT 470 
EXIT 480 
ExIT IF CONDITIONS CHANGED ON US 490 
MOVE TO AL FOR RPL 500 
510 
520 
530 
GET POINTER TO FIRST FREE 3LOCK §40 
RUN POwN LINKED LIST 550 
FOR 4 BLOCK BIG ENOUGH 560 
FOUND A BLOCK TRAT IS "JUST RIGHT? 570 
MORE THAN RIG ENNDUGH 580 
GeT BACK PTR OF WHERE WE LEFT OFF 590 


LDX 


700027 


MBR 


END 


END 


Ji O09—"917"71 
R 

OF BINARY CARE 
091410 ¢f1403 
Nia yo144eo 
ON1412 cantor 
091413 4965346 
991414 gooool 
091415 o01420 
091416 900925 
N91417 901422 
N9142¢ enoool 
091421 noonon 
n91422 naiococ 
NN1423 OC1L440 
NNL424 777900 
991425 990024 
91426 nonnos 
091427 nonned 
091430 agnnon 
091431 101434 
091432 eonnnol 
091433 nonool 
091434 nano024 
091438 9095303 
OF BINARY CARD 
091436 94c530c 
091437 101443 
0N144¢ 9¢5206 
o91441) 991477 
091442 103074 


590937 INPUT/OUTPUT SCHEQVUIER == 108 MONITOR PAGE 94 
CORE MANAGEMENT @= MEMARY RELEASE 
108090348 
6cin a9 3G71 TN? MEM 4 TF NOT AT END OF LISTe KEEP SEARRHING 600 
7100 O09 3672 TRA MEMYy OTHERWISE ExT 610 
3073 * 620 
3074 »* Z POINTS TD BLOCK NEEDED EVENTUALLY 630 
3675 * 640 
7230 14 3076 MEM2 LXL YoaLENe? GET THE LENGTH OF THYS BLOCK 650 
6229 00 3077 FAX Xe LAST GET PTR TO LAST BLOCK 660 
1940 12 3678 CMPX ZaoLInK3,X DOES 2 POINT TO LAST BLOCK? 670 
6910 09 3079 TN2 +3 NOs. NOT LAST 6&0 
1230 11 3080 SBLX Yeo TSTEMpP eT YES» SQ SUBTRACT OFF NEEDED 690 
710N 99 3c8i- TRA MEMS CONTINUE 700 
2240 12 3082 LIX ZoLINKSSX GET PTR TO LAST FREE BLOCK 710 
7230 14 3083 LY¥L YoLENe? GET ITS LENGTH 720 
lotsa 03 3084 MEM3 CMP X Yo 3MOQUANS DU COMPARE TO CORE QUANTUM 730 
6020 00 3085 TNC MEMX IF SMALLERs EXIT 740 
3620 03 3086 ANX YesSMQUANSDU OTHERWISE ROUND DOWN TO MULTIPLE OF MOQUAN750 
7430 11 3087 STX YoTSTEMP4eT SAVE AMOUNT FOR RELEASE 760 
72C0 14 3088 Lxl OsLENs? GET BACK ITS LENGTH 770 
1200 11 3089 SBLX Os TFTEMP4eT MINUS AMOUNT TO RELEASE 780 
4400 14 3090 Sxt OslLENa? PESTORE NEW LENGTH 790 
6019 oo 3091 Th2 «43 IS THE BLOCK NULL 800 
220n 14 3092 L—X OsLINKSe2 YES» RESET LAST 810 
740M 12 3093 STX OsLINKBex TO POINT TO NEw LAST BLOCK 820 
3220 11 3094 LCX Xo TSTEMP4eT GET BACK AMOUNT TO BE RELEASED 830 
C420 nn 3095 ASX Xs SMTOP SUSTRACT FROM TOP OF MEMORY PTR’ 840 
10890039 
9420 00 3096 ASX Xs BAVATL SUBTRACT FROM AVAILABLE 850 
7079 00 3097 TSX LeMREY RELEASE MEMORY TO SYSYTEM 860 
901440 3098 MEMyY BSS 0 DONE 870 
001440 3099 DE? CORE RELEASE CORE QUEUEs AWAKEN NEXT TASK 880 
7170 oO XED OSCOREs+QSXDEO 
7000 00 3100 TSX Os TSRELT AND RELEASE TCB 890 
091442 3101 EXIT EVAPORATE 900 
7169 900 TRA $EXIT 
3102 *$-« D1SK MREQ 910 


MBR 


END 


AL O9"17—71 


Pp 


001443 on09017 
001444 9¢5393 
091445 00n777 
001446 777500 
9291447 95303 


001450 000656 
091451 oonnoc 
991452 905303 


091453 900000 
091454 900077 
001455 001463 
091456 foonds 
001457 901450 
001460 00004 
091461 001450 
091462 777777 


OF BINARY CARD 
091463 900017 


001464 525219 
091465 000017 
091466 sonooc 


99.937 


19,443 


4479 11 
220N 090 
9200 43 
3690 13 
7490 on 
N01450 
7900 90 
900 00 
6090 90 
n91453 
7200 11 
3600 03 
6000 90 
100n o3 
6000 00 
inoo o3 
6000 oO 
7100 a0 
191463 
1oSno0040 
7270 11 
nN1464 
525210 
22°90 93 
4400 11 
7iNn 17 


INPUT/OUTP IT SCHEQUIER =* TOS MONITTGR PACE 
CORE MANAGEMENT = MEMORY RECLFSTS 
3404 USE CONF 
3165 HEAD R 
31906 * 
31n7 * MEMOREY REQUESTS 
3168 * 
3109 * THIS Sui@ROQUTINE RESETS THE TOP OF MEMORY TO THE ANDRESS 
3110 * SPECIFIED 3Y GS(MTOP). 
Siti * 
Sit2 * CALL 8y 
3113 * TSX LeMREO 
3114 * CALL WITH 
3115 * C¢XT) 2 TBLOCK=<ANDRESS 
3116 * C(xKXJ) 2 JRLOCK-ADDPRESS 
S117 * C(MTOP) = NEw SETTING 
3114 * CALLS 
3119 * SCHSEG 
3120 * ExITS 7O Oel 
3121 * RETURNS WITH 
3122 * C(XT) #2 TBLOCKeANDRESS 
3123 « C(XJ) 2 JBLOCK=ANDRESS 
3124 * Ccxt) 2 RESTART ADERESS 
3125 * C(MTOP) = NEW SETTING 
3126 * USES “iO LOCAL TEMPORARIES, ONLY TSTEMO 
3127 * 
3128 MRE SXL La TSTEM9eT SAVE RETURN ADDRESS 
3129 LDxX Oe» SMTO? GET PASSED SETTING 
3130 ADLX Os SMQUAN@120U ROUND UP TO 
3131 ANX Os *SMQUANS DU NEXT CORE MULTIPLE 
3132 STX Os» BMTOP AND SAVE IT 
3133 mREnL CHSEG $B8UFSERsSMTOP MEMORY REQUEST 
TSX Os $C HSEG 
ARG S$SUFSESG 
ARG $mMTOP 
3134 CHECK MREQ2e8SR7eMREO1s BS 1OeMREQI 
LXt Os TESRWisT 
ANX OCo38STMKeDU 
T2E MREN2 
CMpyx Oe3ER7eD 
TZE MREQ1 
CMPX 0,3$10,00 
TZE MREQI 
TRA SERROR 
3135 MREN2 e&6SS 0 SUCCESSFUL REQUEST 
3136 LXL Lao TSTEMQaT RETRIEVE RETURN ADDRESS 
3137 BUGL (TETEM9ST) BuG IT 
BUGBUG SET BUSBUG41 
LDX 0e3'GBUIGs DU 
Sxl OsTSTEMOIeT 
$138 TRA Ool RETURN TO CALLER 


95 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 


410 


420 


430 
440 


450 
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P CORE MANAGEMENT #= MENDRY REQUFSTS 


3139 *&s DISK TSLOCK 460 


MOR 


o1 


O9et7=7 1 


ey 


290937 


991467 


TNPUT/OUTP IT SCREQUI ER \e= TOS MONETOR 


3141 
$142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 


TRAP YVANAGEMENT 


Get ee @ & © HH 


ETT 


* & & 


RELT 


USE 
HEAL 


c= NESCRIPTION 


CONE 
t 


TRESE MACROS GET ANQ RELEASE 
CLOBRERS ClO). CtXds, CIT). 


MACRO 
TSX 
ENDM 


MACRO 
TSX 
ENOM 


GETT 
<NI-ARGUMENTS> 
Os TEGETT CALL 
GETT 

RELT 
<NO@ARGUMENTS> 
Os TSRELT CAL 
RELT 


TRAP 3LOCKS, 


SUBROUTINE 


MACRO 


SUBROUTINE 


97 


110 
120 
130 
140 
i150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 


MBR OL O09"17=71 


091467 
091470 
0n1471 
091472 
091473 
091474 
091475 
091476 


T 


000030 
NO1152 
eco00s 
200009 
777777 
777777 
coo006 
900006 


390937 


001467 


091467 
001467 


235n 
7070 
7410 
6210 
6000 
640 
4460 
7100 


07 
00 
ni 
1 
00 
00 
11 
10 


INPYUT/OUTPYT SCREQUI ER == 105 MONITOR PAGE 


3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
Si71 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
31861 
3182 
31838 
3184 
3185 


3186 
3167 
3188 
3189 
3190 
3191 


TRAP MANAGEMENT o- GETT 


*2 2@ 2 @ # 8 8@ 4&# #2 #8 He HE HEH BRR HS 


GETT 


USE 
HEAD 


CODE 
T 


GETT 


THIS SUBROUTINE GETS A TRAP BLOCK. CcxXT) POINTS TO THE 


CURRENT 


ENTERED 


ENTERED 
CALLS 


RETURNS 
RETURNS 


BSs 
GETC 
LDA 
TSX 
STX 
EAX 
TZE 
TMI 
Sxl 
TRA 


TBLOCK WHILE C(OTSLINKeT) POINTS TO THE OLD ONE 


wITH 
C(XT) = TCR 
CixJ) = JCB 
BY 

TSX DePSGETT 


R$GETC 

0,9 

WITH 

C(xt) = NEW TCR 
Cixd) =» JCB 


0 

(LENSDL) GEy A BLOCK ABOUT THE SIZE OF A yBLOCK 
LENeDL 

LeaRBGETC 

ToL INK es AU POINT TO PREVIOUS TSLOCK 

Teo dnAU MAKE C(XT) POINT TO NEW SBLOCK 

SERROR eae DBC 

SERROR wen DRG 

JeTSICIST SET JCB POINTER 

0,0 RETURN TO CALLER 


98 


320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 


560 
570 
580 
590 
600 
610 


MBR OL NGa17—71 


001477 


001500 
001501 


0n1502 


T 


oo000r 
777777 
oonase 


001252 


525211 
060000 


390937 


191477 


901477 


6350 11 


6000 00 
2750 07 


001502 


7079 09 


22 
71 


{ 
C 


001503 
525211 
G a3 
0 10 


INPUT/OUTP UIT SCRE QU) FR =" FNS MNAETGP 


$193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3293 
$204 
3265 
3206 
3297 
3208 
3209 
32106 
3211 
3212 
32138 
3214 
3215 
3216 
3217 


3218 


3219 
3220 


TRAP MANAGEMENT # RELT 


D+ nteeeenh @ © HF & Re H&E HF SE BS HR FE 


Mm 
ed 
4 


BUGRUG 


ew 


USE CONE 
HEAL T 


RELT 


THIS sSUBROLUITINE RELEASES THE CURRENT TRAP BLOCK. 


ENTERFD wITH 

C(xTy 2 TCE 

C(X¥J) = JCR 
ENTERED &Y 

TSX Os2SRELT 
CALLS 

RSRELC 
RETURNS TO 020 
RETURNS WITH 

C(XJ) 2 JCB 


BSS 0 

EAA OsT TRAP ADDRESS TO AU 

TZE SERROR CHECK FOR LEGAL RELEASE 
ORA LENeDL TRAP LEN TO AL 

RELC A RELEASE IT 

TSX LeaRSRELC 

BUGXR T SPPML. 

SET BUGRUG+1 

LDX Ts SUGBUGs DU 

TRA 0,9 RETURN TO CALLER 


DSK J3aLOCKS 


PAGE 


99 


890 
900 
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T JOB CONTROL BLOCK MANASEMENT == DESCRIPTION 
nq1505 3222 USE COnE 110 
3223 HEAD of 120 
3224 » 130 
3225 * 140 
3226 * THESE MACRQNS GET AND RFLEASE JOB CONTROL BLOCKS. 150 
3227 * CLOBBERS CIXN)s CIXKys ANG COXS). 140 
3228 * 170 
3229 * 180 
3230 * GETJ 190 
3231 * 200 
3232 GETJ MACRO <NO=ARGUMENTS> 210 
3233 TSX Os JEGETY CALL SUBROUTINE ; 220 
3234 ENDM GETJ 230 
3235 * 240 
3236 * 250 
3237 * RELJ 260 
3238 * 270 
3239 RELJ MACRO <NO*ARSIMENTS> 280 
3240 TSX Os JS$RELJ CALL SUBROUTINE 290 


3241 ENDM RELJ 300 


2 D1 O9—17=71 090937 [NPUT/QUTPIIT SCHEQU) FR == 195 MONTTOR PAGE 101 


J JCS CONTROL SLOCK MANAGEMENT e= GETJ 
nq1505 3243 USE CODE 320 
3244 HEAD 7 330 
3245 * 340 
3246 * 350 
3247 * BETJ 3460 
3248 »* 370 
3249 * THIS SUBROUTINE GETS A JO8 CONTROL RLOCK. CcXJ) POINTS 10 380 
3250 * THE NEw JCA, 390 
3251 * 400 
3252 * ENTERED WITH 410 
3253 * Ccxt) = TCH 420 
3254 * ENTERED Ry 430 
3255 * TSX Os J$GETJ 440 
3256 * CALLS 450 
3257 * RSSETC 460 
3258 * RETURNS 009 470 
3259 * RETURNS WITH 480 
3260 * C(xXT) 2 TCB 490 
3261 * C(xy) = NEW JCB 500 
32h2 * CLOSBERS C(A)s Cixl) 510 
3263 * USES NO TEMPS ITSELF 520 
3264 * 530 
n91505 3265 GETJ BSS G 540 
091505 3266 GETC (LENS DL) GET A BLOCK ABOLIT THE SIZE OF A JBLOCK 550 
001505 000920 2350 07 LDA LENsDL 
END OF BINARY CARD 10899041 
091506 001152 7070 nO TSX LeRSGETC 
001507 ann000 626n 41 3267 EAX Joe Al MAKE CcxJ) POINT TQ NEW ALNCK 560 


g0151c ncanor 7100 10 3268 TRA 029 RETURN TO CALLER 570 


MBR 91 99—17=74 


901511 
on1512 
991513 


091514 


091515 
091516 


J 


0c0900 
777777 
000020 


001252 


525212 
oc0g000 


090937 


AOLS14 


001511 
6350 16 
6090 00 
2750 07 

NO01514 
7070 09 

001515 

525212 
2260 93 
7100 10 


INPUT/OUTPUT SCHEUUIER |= 168 MONITOR 


3270 
3271 
3272 
3278 
3274 
3275 
3276 
3277 
3278 
3279 
3260 
3241 
3252 
3283 
3284 
3285 
3286 
3267 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 


3296 


3297 
3298 


JO0@ CONTROL BIOCK MANAGEMENT == RELJ 


=z * &¢ &£€ ee &© &e Se Ee He He UehUhhUrhUhUCUrhlUrhUhR 


ELJ 


BUGBUG 


“Se 


USE CODE 
HEAD J 


REL J 
THIS SUBROUTINE RELEASFS THE CURRENT JOB CONTROL BLOCK, 


ENTERED wItTH 

C(xXTy) = TCB 

C(xXy) =» JCB TO BE RELEASED 
ENTERFD BY 

TSX Oe JSRELJ 
CALLS 

R$RELC 
RETURNS To Net 
RETURNS WITH 

C(xtT) = CB 
CLOSBERS C(A)de CExXl) 
USES NO TEMPS ITSELF 


BSS 0 

EAA OsJ JCB ADDRESS TO AlJ 

TZE £ERROR CHECK FOR LEGAL RELEASE 
ORA LENs DL JCB LEN TO AL 

RELC A RELEASE IT 

TSX LaRSRELC 

BUGXR J SPPML 

SET FUGBUG41 

LDX JeBuGHUGeDU 

TRA 050 RETURN TO CALLER 


DISK LOG! 


PAGE 
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590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 


850 


860 
870 


MBR OL Igeizyer7l C3937 
J 


NOL517 


INPUT/OUTRE'T SCHEDULER ef TOS MOS TTOR PAGE 


33c0 
3304 
3362 
$303 
33n4 
3355 
$306 
3367 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 


LOGGING |= DISCRIPTION 


2ee8ee +e &# ee ee Eee UU ehUhUrhUrhhUh hUrhUrhhUr hUrhUhMhUmD 


103 


USE Cone 140 
HEAD C 120 
130 

140 

LOGGING 150 

160 

THE SKEDS LOGGING DEVICE (OPFRATOR’§S CONSOLE) IS A SINGLE 170 
RESOUSCEs AND HENCE MUST BE QUFUFD FOR. THE LOGGING 140 
ROUTINES ARE CALLED BY A SET OF MACROS WHICH INSERT SPECTIa 190 
FIED INFORMATION INTC THE LOGGING MESSAGE SUFFER. 200 
210 

ALL LOGGING MESSAGES START 8Y CALLING THE LOGS MACROs WHICH 220 
DOES THE QUEUEING FOR THE LOGGING NEVICE. ALL MESSAGE 230 
SEQUENCES END WITH THE LOGX MACRO WHICH WRITES OUT THE 240 
MESSAGE AND RELEASES THE QUEUE. 250 
260 

THE FOLLOWING MACROS CAN BE USED YO CALL THE LOGGING ROUINTESS 270 
280 

290 

LOGS START OF LOG MESSAGE 300 
LOGC LOG TEXT CHARACTERS (TALLY WORD 1S ARG 12310 
Las ForCE THE FLUSHING OF nUTPUT BUFFER 320 
LOGX END OF MESSAGE e# EXIT AND SEND MESSAGE 330 
340 

NOTE THAT AFTER LOGS Is CALLED. THE List struCTurE sHOuULN NOT 350 
BE MODIFIED UNTIL AFTER LOGX IS CALLEDs. AS THE LOGGING RNUTINES 360 
WILL MAINTAIN THEIR OWN LIST STRUCTURE, 370 
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9) LOGGING -= MACROS 
C91517 3326 USE CODE 390 
3329 HEAD a) 400 
3330 * 410 
3331 * 420 
3332 * LoGcS MACRO 430 
3333 * 440 
3334 * SET uP FOR LOGGING 450 
3335 * 460 
3336 LOGS MACRO <NO@ARGUMENTS> 470 
3337 TSX LeI$LOSS 480 
3338 ENDM LOGS 490 
3339 * 500 
3340 * 510 
3341 * LoGC MACRO §20 
3342 * 530 
3343 * LOG ASCII STRING POINTER TO RE FIRST ARGUMENT 540 
3344 * 550 
3345 LOGC MACRO SC POINTER ADDPESSs> AP 560 
3346 INE PHL> Sr ae 570 
3347 LDA #1 GET SC POINTER IN A 580 
3348 TSX LeOSLOGC 590 
3349 ENDM LOG6C 600 
3350 »* 610 
3351 * 620 
3352 * LOG MACRO 630 
3353 * 640 
3354 * FLUSH THE OutTPuT BUFFER 650 
3355 * 660 
3356 LOG MACRO <NO@ARGUMENTS> 670 
3357 TSX LeOSLOs 680 
3358 ENDM LOG 690 
3359 * 700 
3360 * 710 
3361 * LOGSXK MACRO 720 
3362 * 730 
3363 * CLEAN||P AND EyIT 740 
3364 * 750 
3365 LOGX MACRO <NO@ARGUMENTS> 760 
3366 TSX LeOSLOGX 770 
3367 ENDM™ LoGX 780 
3368 * 790 
3369 # 800 
3370 * LCORLF MACRO 810 
3371 * 820 
3372 * LOG A CARRIAGE RETURN/ LINE FEED 830 
3373 * 840 
3374 LORLF MACRO  <NO=ARGUMENTS> 850 
3375 TSX LeOFLCRLF CALL SUBROUTINE 860 
3376 ENDM LCR&LF 870 


3377 * 840 


MBR 


of 


N9={7=71 


C 


596937 


INPUTS 


33578 
3379 
3380 
3381 
3362 
$383 
3344 
3385 
3386 
3387 
3388 
$3459 
3390 
3391 
3392 
3393 
3394 


NUTPHT SCHEDULER == 


LOGGING #= MACROS 


TUS MONT TOR 


* 

* 

* 

_ LOG A SPACE 

a] 

LsP MACRO <NO@ARGUMENTS> 
TSX LeO$LSP 
ENDM LSP 

* 

* 

* 

* 

* LOG A CHARACTER 

* 

LCHR MACRO <NO@ARGIMENTS> 


TSX LeOSLCHR 


ENDM LCHR 


iSP MACRO 


CaLL SUBROUTINE 


LCHR MACRO 


CALL SUBROUTINE 


PAGE 
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890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1920 
1030 
1940 
1050 


MBR 


END 


OL O9=17=71 


0 


091517 oon0ea! 
091520 905144 


091521 00736 
ON1522 9N5665 


001523 onn000 
091524 060977 
991525 901533 
991526 9¢ons03 
091527 901521 
NHISSO HnAols 
ONLSS1 aei52t 
OF BINARY CARD 
091532 777777 


790937 


G91S17 


091517 
7470 11 
001520 
7170 00 
00524 
70 900 
noco oo 
001523 
7200 11 
3600 3 
6nen ng 
1nfn n3 
6000 09 
1n9n 03 
6000 99 
1osno042 
71°09 00 


INPUT/OUTPIIT SCHEDULER == TNS MONITOR 


3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3406 
3409 
3410 
3411 
3412 
34138 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
$429 
3430 
3431 


3432 


3438 


LOGGING SURRQITINES == LOGS 


2 


OGSs 


LAGS! 


USE 
HEAD 


CODE 
0 


PAGE 


THE FOLLOWING suBROUTINES ARE CALLED BY THE LOGGING MACRNSs, 


LOGS ENQUEUES FOR THE CONTROL TTY. 


LaGS 


ATFER SEIZING [To 


It 


LOCKS THE NEVICEs LOGS A HELLO MESSAGE» AND RETURNS TO THE 


CALLER, 


ENTERED 


ENTERFD 


CALLS 


wITH 

C(xT) = TCB 

C(xsJ) = JCR 

By 

TSX LeOSLOGS 


GSENO 
$LOCK 


RETURN TO Oet 


RETURNS 


USES 


BSS 
STX 
ENQ 
XED 
LOCK 
TSX 
ARG 
CHECK 
LXL 
ANX 
T7E 
CmMPxX 
TZE 
CMPX 
TZE 


TRA 


wITH 

C(xtTy) =» TCB 

Cixy) = JCB 

C(xXL) = RESTART ADDRESS 


NQ LOCALS 
TETEMP72T (UPPER) 


CG ENTRY POINT 
La TSTEMP7 eT SAVE RETURN ADDRESS 


OP WAIT FOR OP CONSOLE TO BE FREE 


QSNP+ORXENC 

RSOPFRN NOW LOCK IT 
Os tLOCK 

REOQPFRN 
LOGS2e238870eL0GS1sBSLOCK,LOGSI 
OsTSSRwielt 

O,BSSTMKS.DU 

LOoGS2 

Os8S275Dy 

LOGs1 

Os3$L0CKsDU 

LORS! 


SERROR 
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1970 
1N80 
1090 
11900 
1110 
1120 
1150 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 


1430 


1440 


MBR 


OL O9"17=71 


001533 
001534 
91535 
091536 
091537 


00154¢ 


091541 
001542 


a) 


094675 
005400 
094676 
095429 
neadel 


on 


oo 
onan 
wn 


ian Fon ) 

oan 
ON = 
oe Ga 


790937 


NN1533 
2359 0) 
TOO. 00 
2379 69 
7579 9 
2e7Nn 11 

991540 

5252138 
22C0 03 
7400 11 
7100 17 


TNPUT/OUTPHT SCHELUUL ER == TOS MONITOR 


3434 
3435 
3436 
3437 
3438 
3439 
3440 


3441 


LOGGING SUBROUTINES -= LOGS 


LOGS2 


BUGSBIG 


ESS 
LDA 
STA 
LOEAQ 
STAQ 
LDX 
BuGu 
SET 
LDX 
STX 
TRA 


0 

LSTL1 

LGTAL 

LMt 

LGRUF 

Leo TSTEMP7 eT 
(TBTEMP7 oT) 
RUGRUG+Se4 
0sRUG6UG.DU 
Qe TSTEMP7 oT 
Qel 


CONSOLE SUCCFSSFIILLY SEIZEN 
TNITIALIZE TALLY WORD 


PuT *IOS* MESSAGE IN BUFFER 


RETZIEVE RETURN aDDRESS 
BuG TT 


RETJRN TO CALLER 


PACE 


907 


1450 
1460 
1470 
1480 
1490 
1500 
1510 


1520 


END 


001543 on0021 
001544 905401 
001545 ¢cs401 
091546 00155¢ 
901547 701552 
001550 0014620 
991551 901545 
091552 aconei 
001553 525214 
091554 ocooo2t 
001555 525215 
091556 525215 
OF BINARY CARD 
001557 900006 


001543 


7470 11 
7550 00 
001545 
2359 §2 
607N 0 
710N 00 
091550 
7070 00 
7100 O09 


001552 
2270 if 
001553 
525214 
2200 03 
7400 11 
901555 
525215 
2350 03 
2750 07 
1NSn9Nn43 
7iO0N 17 


INPUT/OUTPUT SCKEQJULER <= 


3443 
3444 
3445 
3446 
3447 
3446 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
34714 
3472 
3473 
3474 
3475 


3476 
3477 
3478 
3479 
3480 
3481 
3462 


3483 


3484 


10S MOATLTOR 


LOGGING SUBROUTINES e- LOGE 


*s#¢#es 28+ 8#eht e282 4% &© SB H# He # HF HE HE He SE 


LOGC 


LOGc! 


* 
* 
* 
LOGC2 


BUGBUG 


BuGBUG 


USE 
HEAD 


LOG CHARACTER STRING 


ENTERED 


ENTERED 


CALLS 


RETURNS 
RETURNS 


USES 


CODE 
0 
LaGC 

GIVEN BY SC POINTER IN A@REG 
WITH 
CixT) = TCB 
CixJ) = JCB 
CcA) # TALLY WORD 
By 


TSX LeOSLOGC 


OSLCHR 
OSLOG 

TO OoL 

WITH 

C(xXT) # TCB 
Cixs) = JCB 


OSLGCTL 
TSTEMP7,7 (UPPER) 


CLOBBERS ClAds. CxO) 


STX 
STA 
BSS 
LDA 
TTF 
TRA 
LCHR 
TSX 
TRA 


Leo TSTEMP7 eT SAVE RETURN ADDRESS 
LGCTL STORE TALLY WORD 
0 LOOP POINT 


LGCTL»sSC GET NEXT CHARACTER 
*42 CONTINUE JF WE GOT ONE 
LoGte? Fy!T IF DONE 

LOG THE CHARACTER 
LeQfLCHR 
LoGCi GET NEXT CHARACTER 


ENO OF TEXT STRING 


BSS 
LOX 
BUGU 
SET 
LDX 
STX 
BUGA 
SET 


LDA 
ORA 


TRA 


6 

Lo TBTEMP7 oT 
(TETENP7 oT) 
BUGBUG+1 


OsSUGRUGsDU 
Ne TSTEMP7 aT 


RETRIEVE RETURN ADORESS 
BuG IT 


AND A@#REG 
ByGBuGel 
BUSSUG, DU 
ByGSuGs DL 


Del RETURN TO CALLER 
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1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1440 
1850 
1860 


1870 
1480 
1890 
1900 
1910 
1920 
1930 


1940 


1950 


MBR OL O9817—=71 
0 
001560 000021 
001561 onié6oc 
001562 01645 
001563 000746 
001564 005665 
001565 100000 
091566 900077 
001567 101573 
001570 000003 
091571 001563 
001572 777777 
001573 005146 
091574 oonnet 
091575 525216 
091576 00021 
nN1577 nennon 


092937 


93915460 


001560 
7470 it 
001561 
7070 900 
001562 
7970 00 
n01563 
70°N 00 
coco 00 
001565 
7200 11 
360N 03 
6000 00 
1000 o3 
6000 a0 
7190 00 
N01573 
001573 
7170 090 
2270 11 
991575 
525216 
2260 03 
7490 11 
71060 17 


INPUT/OUTPUT SCHEDULER |= TOS MONITOR 


3456 
3487 
3458 
3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 
3501 
3502 
3503 
3594 
3505 
3506 
3507 
3508 
3509 
3510 
S511 
3512 


3513 


3514 


3515 


3516 
3517 


3518 
3519 


3520 


LOGGING 


-— += #2 @#@ ee &eHe Se 6 HH He He HF EHH EH BH 


OGX 


LOGx1 


LOGxe 


BUGRUG 


SUBROUTINES w= LOGY 


USE CODE 
HEAD i) 


LOGX 
CLEAN UPs SEND MESSAGEs AND EXIT 


ENTERED WITH 
C(xtTy) = TCR 
CixJd) 2 JCB 
ENTER 8Y 
TSX Le d$SL0GX 


CALLS 
O$SLCRLF 
O$LQOG 
SUNLCK 
QSDEQ 
RETURNS TO OslL 
RETURNS WITH 
Ccxt) = TCB 
CixJ) = JCB 
USES 
TSTEMP7,T (UPPER) 
BSS 0 ENTRY POINT 
STX Le TSTEMP7 oT SAVE RETYRN ADDRESS 
LCORLF PuT A CR/LF ON MESSAGE 
TSX LeOtLCRLF 
LOG LOG BUFFER TO TTY 
TSX LeN$LaG 
UNLCK RSOPFRN 
TSX Oo SUNLCK 
ARG RSOPFRN 
CHECK LOGX2,3$8ZsL0GX1 
LXbL OsTESRN1seT 
ANX 0e88SI4Ke2 DU 
TZE LOGX2 
CMPX 0,28R875DU 
TZE LOG x! 
TRA SERROR 
BSs 0 
DEO OP RELEASE OP CONSOLE 
XED NSOP+QKXNEO 
LDX Leo TSTEMP7 eT RETRIEVE RETURN ADDRESS 
BUGU (TSTEMP7ST) RUG IT 
SET BUGBUG+1 
LDX 0» BUGBIIGs DU 
STX OsTSTEMpP7 eT 
TRA OoLl RETURN TO CALLER 
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1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 


2240 
2250 


2260 


2270 
2280 


2290 
2300 


2310 
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G LOGGING #= SPECIAL SUBROUTINES 
ANL6N0 3522 USE CODE 23350 
3523 HEAD 0 2340 
3524 * 2350 
3525 * 2360 
3526 * LORLF 2370 
3527 * 2380 
3528 »* PUT A CR/ LF IN OUTPUT BUFFER 2390 
3529 * 2400 
N01600 3530 LCrRLF 855 0 ENTRY POINT 2410 
091600 900022 7470 114 3531 STX Lo TSTEMP6aT SAVE RETURN ADDRESS 2420 
091601 fnng015 238N 07 3532 LDA ASCRSTL GET A CR 2430 
031602 001620 7n7n nO 3533 TSX LeLCHR LoG IT 2440 
END OF BINARY CARD 10809044 
091603 0N012 2350 43 3534 LDA ASLF.DLU GET A LF 2450 
091604 0900162f 7070 oo 3535 TSX LaLCHR LOG ITs» ALSO 2460 
091605 00022 2279 411 3536 LDX La TSTEMPO,T RETRIEVE RETURN ADDRESS 2470 
001606 3537 BUGU (TETEMPGeT) RuS IT 2480 
525217 BUGBUG SET BUGBUG44 
091606 525217 220 03 LDX OsBUGBUGsDU 
091607 900022 740n 11 STX Os TSTEMp6eT 
00161¢ Gannnon 7100 17 3538 TRA Oot RETURN TO CALLER 2490 
3539 * 2500 
3540 »* 2510 
3541 * LSP 2520 
3542 * 2530 
3543 * PUT A SPACE IN OUTPUT RUFFER 2540 
3544 2550 
O01611 3545 LsP BSS 0 LOG A SPACE 2560 
001611 onood22 7470 11 3546 STX Leo TSTEMP6nT SAVE RETURN ADDRESS 2570 
091612 200040 2350 07 3547 LDA ASSP.CL GET A SP 2580 
091613 901620 707n 00 3548 TSX LeoLCHR LoG IT 2590 
001614 900022 2270 11 3549 LDX Lo TSTEMP6aT RETRIEVE RETURN ADDRESS 2600 
901615 3550 BUGU (TSTEMP6eT) RUG IT 2610 
525220 BUGBUG SET BUGRUGF+I 
091615 525229 2200 93 LDX Os 8UGBUGs DU 
091616 900N22 74°70 14 STX Os TSTEMP6eT 
001617 9009909 74090 417 3551 TRA OsL RETURN TO CALLER 2620 
3552 * 2630 
3553 * 2640 
3554 * LOHR 2650 
3555 * 2660 
3556 * PUT CHARACTER IN AL IN OUTPUT RUFFER 2670 
3557 * 2680 
3558 * 2690 
101620 3559 LCHR BSS 0 LOG CHARACTER IN A 2700 
0016206 46800177 378n 07 3560 ANA ASMASKsDL ISGLATE ASCII CHARACTER 2710 
991621 9nS400 7550 52 3561 STA LGTAL*SC DROP CHARACTER INTO BUFFER 2720 
091622 900907 6076 17 3562 TTF Os IF SUFFER NOT FULL» RETURN TO CALLFR 2730 


091623 01645 710n 49 3563 TRA Los OTHERWISE FORCE SUFFER 2740 
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G LOGGING == SPECIAL SUBROUTINES 
3545 * 2760 
3566 * LOCTF 2770 
3567 * 2780 
3568 * LOG Cig) AS 12 OCTAL DIGITS 2790 
3569 * 2800 
091624 3570 LOCF BSS 0 2810 
091624 4n0914 3200 03 3571 LCX 0512,DU) LoG 12 nIGITs 2820 
991625 901632 7100 nO 3572 TRA LOCT Yo IT 2830 
3573 * 2840 
3574 * 2450 
3575 * LACcTU 2860 
3576 » 2870 
3577 * LOG Crqu) AS 6 OCTAL DrGrTs 2880 
3578 * 2890 
001626 3579 LOCTU BSS 0 2900 
001626 90n0c6 32tn o3 3580 LCX Oe5eNU LOG 6 DIGITS 2910 
091627 9n1632 7100 oO 3581 TRA LocT No IT 2920 
3582 * 2930 
3583 * 2940 
3584 * LOCTL 2950 
3585 * 2960 
3586 * LOG CtQL) AS 6 OCTAL DIGITS 2970 
3587 * 2980 
001630 3588 LOCTL BSS 0 2990 
001630 600000 6360 6 3589 EAQ 0.9L MOVE NUMBER TO QL 3000 
END OF ByNARY CARD 10800045 
001631 001626 71CO no 3590 TRA LocTu PRINT AS QU 3010 
3591 * 3020 
3592 * 3030 
3593 * LoCcY 3040 
3594 * 3050 
3595 * LOGS NCTAL DIGITS 3060 
3596 * ENTER WITH 3070 
3597 * C(9) = pIGITS TO LOG (LEFT JUSTIFIED) 3080 
3598 «x C(9) = NUMBER OF DIGITS 3090 
3599 * 3100 
101632 3600 LOCr BSS 0 3110 
091632 ccoo22 747 11 3601 STX Lo TSTEMP6eT SAVE RETURN ADDRESS 3120 
901633 on0n00 2350 67 3602 LOCT{ LDA O»DL CLEAR A 3130 
091634 goannas 737n o0 3603 LLS 3 GET NEXT DIGIT IN A 3140 
091635 100060 C750 47 3604 ADA A$DOsDL CONVERT TO ASCII DIGIT 3150 
001636 90162r 707n no 36¢5 TSX LoL CHR LoG IT 3160 
091637 no0001 5600 o3 3606 ADX OslsNU BuMP COUNT 3170 
091640 901633 6n04n oo 3607 TMI LOCcT} TES FOR DONE 3180 
001641 000022 2270 11 3608 LDX Leo TSTEMP65T RETRIEVE RETURN ADDRESS 3190 
001642 3669 BuGuU (TSTEMP6eT) Rur iT 3200 
525221 ByGRUG SET ByGByG+1 
091642 525221 22CN 03 LDX Os RYGBYGe. Dy 
091643 onag22 7400 11 STX Oo TETEMP6aT 


091644 agnooo 710n 17 3610 TRA Ook RETURN TO CALLER 3210 


MBR 


END 


OL O9917=71 392937 
Q 
001645 
001645 
091645 105410 75230 oo 
991646 904674 2350 00 
091647 005409 1350 no 
091650 900040 O380 07 
901651 777700 3750 07 
091652 6091676 6000 oO 
091653 900014 7350 00 
091654 105402 7550 o0 
001655 
091655 900551 7000 oOo 
OF BINARY CARD I0800046 
093656 ¢¢65665 coon a0 
091657 065420 oon O83 
091660 705402 o00f O90 
091661 onooo2 snen o3 
001662 
001662 006000 7200 11 
001663 000077 3600 O3 
091664 901670 600 nO 
001665 000003 1000 903 
001666 701655 6000 oo 
091667 777777 7100 on 
001670 
091676 04674 2350 oo 
00167: 905400 7550 n0 
091672 905410 9730 o9 
001673 noo00n 7100 17 
004674 
004674 005420 517n 40 
004675 005422 9169 40 
104676 
094676 177007015012 
9N4677) «1411417123040 
091674 


INPUT/ 


3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
$621 
3622 
3628 
3624 
3625 
3626 
3627 
3628 
3629 


$630 


3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 
3644 
3645 
3646 
3647 
3648 
3649 


NUTPUT 


SCHEDULER -- 


TOS MONITOR PAGE 


LOGGING SUBROINTINES #- LOG 


meee ese 8 


LOG1 


USE 
HEAD 


FLUSHES 


BSS 
SREG 
LDA 
SBLA 
ADLA 
ANA 
TZE 
ALS 
STA 
APEND 
TSX 


ARG 
ARG 
ARG 
ARG 
CHECK 
LXL 
ANX 
TZE 
CmMPX 
TZE 
TRA 


MESSAGE 


BSS 
LDA 
STA 
LREG 
TRA 


Cone 
ia) 


LOG 


THE BUFFER TO OP CONSOLE AND RESETS TALLY wORD 


0 ENTRY POINT 

LGRES SAVE REGISTERS 

LGTLO GET OUTPUT TALLY PROTOTYPE 
LGTAL COMPLITE NUMBER OF CHARACTERS TO SEND 
=040,0L TAKE OF BORRMWse IF ANY 
$TALMKsDL MASK TO CHARACTER COUNT 
LoG2 IF ZERO. NOTHING TO pO 
18-6 RIGHT JUSTIFY GOUNT IN AU 
LNCHR AND SAVE IT 

RSOPFRN, (LGBUF.DU)sLNCHR, (2,DU) 

Os SAPEND 

RSOPFRN 

LGBUF.DU 

LNCHR 

2eDU 

LOG2s,68B2eL0G1 

OsTSSRW1sT 

0,8$STMKs.DU 

LOoG2 

OsBSB7.DU 

LoG1 

$ERROR 


OUT NK on OP CONSOLE 


0 

LGTLO RE@INITIALIZE OUTPUT TALLY 
LGTAL 

LGREG RESTORE THE REGISTERS 

Ool RETURN TN CALLER 


CONSTANT AND STORAGE AREA 


USE 
TALLY 
TALLYA 
EVEN 
oct 
UASCI 
USE 


CONST 
LGBUF.s120 
LGBUF+2,120=8 


TALLY FOR FILLING BUFFER 
TALLY JINCLUDING INITIAL HEADER 


177007315012 GRTCH BELL LF CR 
12108 HEAUDFR MESSAGE 
PREVIOUS 


3410 


3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
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9 LOGGING SUBRONTINES == LOG 

n95409 3650 USE STORE 36106 

NO5490 3651 LGTAL 88S 1 WORKING TALLY WORD 3620 

no54ot 3652 LGCTL BSS 1 TALLY wORD FOR LOGC PICK)P 3630 

095402 cong00 200000 3653 LNCHR ZERO tes NUMBER OF CHARACTERS TO LOS 3640 
095410 3654 EIGHT 3650 

NO5410 3655 LGREG 8SS 8 TEMP REGISTER STORAGE 3660 

005420 3656 EvEN 3670 

n05420 3657 LGBIIF SS 1238/4 BUFFER FOR LOGGING 3680 

001674 3658 USE PREVIOUS 3690 


3659 *$e DISK OPCONI 3700 


MBR OL 09-1771 090937 
Q 


001674 
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3661 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 


OPERATOR INTERFACE meflFSCRIPTION 


24eee eee eee be 2 8 


USE CODE 
HEAD 0 


OPERATOR INTERFACE 
THE SKEDS INPUT DEVICE (OPERATOR®S CONSOLE) 1S A SINGLE 
RESOURCEs AND HENCE MUST 8E QUFUED FOR, (SEE LOGGING.) 
THE INPUT ROUTINES ARE CALLED RE A SET OF MACROS WHICH 
REMOVE SPECIFIED INFORMATION FROM THE INPUT MESSAGE BUFFER, 


THE FOLLOWING MACROS CAN BE USED TO CALL THE INPUT ROUTINES 


TCHR INPUT NEXT CHAR FROM INPUT STREAM 
IN8BLK INPUT NEXT NON@BLANK CHAR 

ICMD INPUT THREE LETTER COMMAND 

IDELM INPUT THE HIGHEST PRIORITY DELIMITER 
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110 
120 
130 
140 
150 
160 
170 
iad 
190 
200 
210 
220 
230 
240 
250 
260 
270 


MBR Qt A9=17—74 990937 INPUT/OUTPIIT SCHEDULER ef 19S MONI TCR PAGE 115 


0 OPERATOR INTERFACE == MACROS 
091674 3679 USE CODE 290 
3680 HEAD 0 300 
3681 * 310 
3682 * 320 
3683 * ICHR 330 
3684 * 340 
3685S * INPUT NEXT CHARACTER FROM INPUT STREAM 350 
3686 * 360 
3687 ICHR MACRO <NO#=ARGUMENTS> 370 
3688 TSX LeOSICHR CALL SUBROUTINE 380 
3689 ENDM ICHR 390 
3690 * 400 
3691 * 410 
3692 * TNBLK 420 
3693 * 430 
3694 * INPUT NEXT NON@BLANK CHARACTER FROM INPUT STREAM 440 
3695 * 450 
3696 INALK MACRO <NO@ARGUMENTS> 460 
3697 TSX LeOSINSLK CALL SUBROUTINE 470 
3698 ENDM INBLK 480 
3699 * 490 
3700 * 500 
3701 * ICMD 510 
3702 * 520 
3703 * INPUT THREE LETTER COMMAND FROM INPUT STREAM 530 
3704 * 540 
3705 IcMm) MACRO <NO@ARGUMENTS> 550 
3706 TSX LeASICMD CALL SUBROUTINE §60 
3707 ENDM IcmMn 570 
3708 * 580 
3709 * 590 
3710 * IDELM 600 
S711 * 610 
3712 * INPUT THE HIGHEST PRIORITY DELIMITER 620 
3713 * 630 
3714 IDELM MACRO <NO@ARGUMENTS> 640 
3715 TSX LsOSIDELM CALL SUBROUTINE 650 


3716 END IDEL™ 660 


MBR OL O9—47=71 


0 


END OF BINARY CARD 


091674 
001675 
001676 
001677 
901700 
001701 
001702 
001703 
001704 
001705 
901706 
001707 
001710 
oni7il 
0n1712 
on1713 
001714 
001715 
001716 
001717 


005460 
001713 
005462 
000177 
001702 
000064 
o00004 
001716 
000040 
001676 
000077 
001711 
004566 
005464 
ononco 
nn5461 
0054606 
000000 
600000 
001711 


192937 


031674 


091674 
1n$n0047 
2340 00 
6010 00 
2350 52 
3750 07 
6070 00 
2350 07 
1150 97 
6000 00 
1159 07 
6020 00 
1150 07 
6030 00 
2350 05 
7550 09 
7100 17 
2356 00 
4500 090 
7100 17 
2750 07 
7100 00 


095460 
905460 
005461 
0391720 
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3718 
3719 
3720 
3721 
3772 
3723 
3724 
3725 
3726 
3727 
3728 
3729 
3730 
3731 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 


3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 
3750 
3751 
3752 
37538 
3754 
3755 
3756 
3757 
3758 
3759 
3760 
3761 
3762 
3763 
3764 
3765 


OERAYTOR INTERFACE <= ICHR 


—- 2s £2 2242284 © #8 #2 SE EH Ee 


oO 
zx 
a» 


USE 
HEAD 


CONE 
9) 


ICHR 


GET NeXT CHARACTER THROWING AWAY CONTROL CHARACTERS 
EXCEPT FOR CARRIAGE RETURNS AND TURNING ON BITS 
FOR SPECIAL CHARACTERS FROM TABLE ASASCTSB 


ENETER wITH 


ENTER By 


RETURNS 
RETURNS 


BSS 


SZN 
TN2 
LDA 
ANA 
TTF 
LDA 
CMPA 
T7E 
CMPA 
TNC 
CmPA 
TRC 
LDA 
STA 
TRA 
LDA 
S12 
TRA 
ORA 
TRA 


Use 
8SS 
Bess 
USE 


CixT) = TCB 
Cixy) » JCB 


TSX LaNSICHR 

TO Dol 

WITH 

CixT) = TCB 

Cixy) 2 JCB 

CriAL) = NEXT CHARACTER 

0 ENTRY POINT 

RFLG TEST RE@READ FLAG 

ICHR1 IF ONe GET LAST CHARACTER 
ITALsSC OTHERWISE GET NEXT CHARACTER 
ASMASK SDL MASK OFF GARBAGE 

#42 GOT A CHARACTER 


ASEQT<3SDEL IM+BSTERMs DL FAKE END oF LINE 
ASEOT@SSDELIM@BSTERMsDL TEST FOR END OF LINE 


ICHR2 YES 

ASSPeBRRDELIMS,DL "CHECK FOR CONTROL CHARACTERS 
ICHR+2 IGNORE THEM 

ASLA=2eDL SEE IF spECTAL 

*42 NOPE 

ASASCT3=<320AL GET SPECIAL BITS FROM TAASLE 
LTCHR UPDATE LAST CHARACTER 

Oel RETURN TO CALLER 

LICHR GET LAST CHARACTER INSTEAD 
RFLG TURN OFF THE RE@READ FLAG 
Oel RETURN TQ CALLER 


BSDELIMsBSTERMsDL "OR IN SPECIAL BITS 
ICHR3 


STORE 

i RE@=READ FLAG 

1 LAST CHARACTER READ 
PREVIOUS 


PAGE 
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680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 


900 
910 
920 
930 
940 
950 
960 
970 
9a0 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 


MBR 


END 


O, G9~ny7—74 
fe 

001720 oon021 
OF BINARY CARD 
001721 001674 
001722 200040 
01723 001721 
091724 9n0021 
001725 525222 
001726 on0021 
001727 o00n00 


090937 


921720 


091720 
4470 11 
001721 
19800048 
7070 00 
1159 07 
6000 00 
7270 11 
001725 
525222 
2200 03 
44N0 11 
7i00 17 
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3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 
3741 
3762 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3790 
3791 


3792 
3793 
3794 
3795 


3796 


NPERATOR JNTERFACE == nNBLK 


—- t+ #@ eee ee eee eB +e He He SE He ES 


NBLK 


BUG8UG 


USE CODE 
HEAD 0 


TNBLK 
GETS NEXT (NON*BLANK) CHARACTER IN AL 


ENTER WITH 
CixXT) = TCE 
Cixy) = JCR 
ENTER BY 
TSX Le OSTNBLK 
CALLS 
OSICHR 
RETURNS TO OoL 
RETURNS WITH 
C(xXT) = TCB 
Cixs) = JCB 
CcAL) = NEXT NON@BLANK CHARACTER 


BSS 0 ENTRY POINT 

SXL Lea TSTEMP7 eT SAVE RETURN ADDRESS 
ICHR GET NEXT CHARACTER 

TSX LeOSICHR 

CMPA ASSP,OL TEST FOR A BLANK (SPACE) 
Tze #02 IF SQ» IGNORE IT 

LXt La TSTEMP7 eT RETRIEVE RETURN ADDRESS 
BUGL (TSTEMP75T) BuG IT 

SET BUGBUG+1 

LDX 0» 3UGBUGs DU 

Sxl OsTS$TEmMp7 oT 

TRA Ost RETURN TO CALLER 
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1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 


1420 
1430 
1440 
1450 


1460 


MBR 


END 
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0013736 
001731 
001732 
001733 
001734 


001735 
001736 
091737 
n01740 
001741 
001742 
001743 


001744 
004745 


9) 


00002s5 
005461 
200000 
002105 
005460 


001720 
4900c0c 
001742 
2ncaac 
161743 
005469 
gc0023 


525223 
00023 


OF BINARY CARD 


001746 


oco000 


3192937 


001730 


901730 
4470 11 
2350 00 
3150 07 
6000 00 
9540 00 

N01735 
7970 00 
3150 07 
6a10 00 
3180 07 
6010 00 
0540 a0 
7270 11 

001744 

525223 
2200 03 
4400 11 
10800049 
7100 17 


INPUTS 


3798 
3799 
3800 
S8G1 
3802 
3803 
3804 
3805 
3806 
3807 
3a08 
3809 
3810 
3811 
3812 
3813 
3614 
3815 
3816 
3817 
3618 
3819 
3820 
3821 
3822 
3823 
$824 
3825 
3826 
3827 
3828 
3829 


3830 
3831 
3832 
3833 
3834 
3835 
3836 


3837 


QUTPUT SCHEDUI ER == 10S MONITOR 


OPERATOR INTERFACE @= DELM 
USE CODE 
HEAD 0 


IDELM 


THIS SUBROUTINE LOCKS FOR THE HIGHEST PRIORITY DELIMITER 


* 

* 

* 

* 

* 

* 

* ENTER wITH 

* C(xt) =» TCB 

* Cixy) 2 JCB 

* ENTER BY 

* TSX LeOSIDELM 

* CALLS 

* OSINSLK 

* RETURNS TO Oel 

* RETURNS WITH 

* C(xT) = TCB 

* CixJ) 2 JCB 

* COAL) = DELIMITING CHARACTER 

* USES 

* NO LOCALS 

* TSTEMP5,T (LOWER) 

* CLOBBERS C(x0) 

* 

IDELM BSS 0 
SXL Lao TSTEMPSoT SAVE RETURN ADDRESS 
LDA LTCHR GET BACK LAST CHARACTER 
CANA BSDELIMSDL MUST HAVE BEEN A DELIMITER 
TZE FORER IF NOTs FORMAT ERROR 
AOS RFLG BACK OVER IT 
INBLK GET NEXT NON@#BLANK 
TSX LeOSIN3LkK 
CANA BSTERMS,DL SEE IF TERMINATOR 
TNZ *43 IF SO» BACK OVER IT 
CANA BSDELIM,DL SEE IF DELIMITER 
TNZ #42 IF SN RETURN 
AOS RFLG MUST HAVE BEEN A SPACE 
LXL Lo TSTEMPS2T RETRIEVE RETURN ADDRESS 
BUGL (TSTEMP5,7T) RUG IT 

BUGRUG SET BUGSUG41 
LDX OsBuGBUGs DU 
Sx Os TSTEMP5S a1 
TRA Oot RETURN TO CALLER 


PAGE 


11a 


1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 


1800 
1810 
1820 
1830 
1440 
1850 
1860 


1870 


MBR 


END 


D1 N9817=71 99-6937 
a) 
n91747 
091747 
001747 00022 4470 11 
001750 004700 2360 co 
091751 006044 2230 0o3 
001752 
001752 001720 707n oO 
001753 901755 710n 00 
001754 
001754 061674 7070 40 
093755 740000 3350 07 
001756 001766 6010 00 
091757) «=Gnn833 7350 no 
991760 o00011 7779 a0 
991761 Noonlt 1239 03 
001762 001754 6nin on 
001763 
091763 001674 7070 00 
001764 74000C 3150 07 
091765 001763 6900 oO 
001766 105460 9549 09 
091767 g00008 7760 13 
001770 000044 7370 OO 
091771 =ocn022 7270 11 
001772 
525224 
001772 525224 2200 03 
OF BINARY CARD 10S00n50 
091773 on0022 4400 11 
091774 oGn006 7100 17 
094700 
004700 040047040040 
an1775 


INPUT/OUTPT SCHEDULER = 


3839 
3840 
3841 
3842 
3843 
3844 
3845 
3846 
3847 
3848 
3849 
3850 
3851 
3852 
3853 


3854 
3655 


3856 
3857 
3858 
3859 
3860 
3861 
3862 


38638 
3864 
3865 
3866 
3867 
3868 
3869 


3870 
3871 
3872 
3873 
3874 
3875 
3876 


10S MONITOR 


PAGE 


OPERATOR INTERFACE == GET COMMAND 


—2t+ © Se + eH 


Cm) 


Icempt 


ICMD2 


BUGRUG 


USE 
HEAD 


CONE 
0 


PICK WP A 4 CHARACTER OR LESS SYMBOL FOR COMMAND NAME, 
THROW AWAY ALL ALPHARETIC CHARACTERS AFTER THE FIRST 4 


UNTIL REACHING A DIGITs 


BSS 
SXL 
LDO 
LDX 
INBLK 
TSX 
TRA 
ICHR 
TSX 
CANA 
TNZ 
ALS 
LLR 
SBLy 
TNZ 
ICHR 
TSX 
CANA 
TzE 
AOS 
Q@LR 
LLS 
LXL 
BuG. 
SET 
LDX 


SXL 
TRA 


USE 
yASCI 
USE 
DISK 


0 

Lo TSTEMP60T 
BLNKS 

Yo 364DU 


LoOSINRL_k 
®42 


LeO$SICHR 


BSTERM+BSDELIM*BSDIGIT+B8¢$0PReDL 


IcmMDa 
36°9 

9 

Y29e DU 
IcmD1 


LeOSICHR 


DELIMITERs OR TERMINATOR, 

ENTRY POINT 

SAVE RETURN ADDRESS 

PAD Q WITH BLANKS 

GET UP TO FOUR 9-BIT CHARACTERS 
GET FIRST NONeSLANK CHARACTER 


ENTER LOOP 
GET NEXT CHARACTER 


EXIT.» IF FOUND 

MOVE TO TOP OF A#REG 

NOW INTO BOTTOM OF Q=REG 
DECREMENT 9=RIT CHARACTER COUNTER 
TEST FOR DONE 

DONEs FIND END OF COMMAND 


BSTERM+BSDELIM+BSDIGIT+Q$0PReDL 


no? 


La TSTEMP6eT 
(TSTEMP6eT) 
BUGSUG +41 

Os. BUGBUGs.DU 


Os TSTEMPG60T 
Ool 


CONST 

ts 
PREVIOUS 
OPCON 


KEEP SEARCHING FOR END 
SET RE=READ FLAG 
POSITION LEFT JUSTIFIED, 
MOVE INTO A@REG 

RETRIEVE RETURN ADDRESS 
BuG IT 


BLANKED FILL 


RETURN TO CALLER 


119 


1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 


2040 
2050 


SEARCH FOR END nF COMMANDO60 


2070 
2080 
2090 
2100 
2110 
2120 


2130 
2140 
2150 
2160 
2170 
2180 
2190 


2200 
2210 
2220 
22350 
2240 
2250 
2260 


MBR 91 09-17-71 


091775 
091776 
091777 
002000 
nn2001 
nn2002 
002003 
002004 
on2o005 


092006 


002007 
092010 


8) 


001467 
9c0000 
060005 
qnonon 
on2011 
nnn0g4 
00c004 
005162 
000905 


525225 
525225 
003171 


390937 


N91775 


091775 
001775 
70°0 00 
6220 11 
2210 12 
6210 12 
6200 90 
7400 if 
6200 11 
7170 90 
2210 12 
no2006 
925225 
2200 O38 
2220 03 
7100 00 


INPUT/QNUTPUT SCHEDULER == 198 MONITOR PAGE 


3878 
3879 
3880 
3881 
3882 
3883 
3864 
3885 
3886 
3887 
3888 
3889 
3890 
3891 


3892 


OPERATOR INTERFACE #= ENTRY 


metsettt #2 8 8 8 


NTER 


BUGS8UG 


USE CODE 
HEAD 0 


ENTER 


THE QPERATOR INTERFACE 1S ENTERED FROM THE NOTIFY SERVICE 
ROUTINE ON RECEIPT OF A CAUSE FROM THE JOB STREAM SCHEDULER 
TO READ THE CONTROL TTY. IT SETS UP THE NECESSARY TASK TO 
TALK wITH THE OPERATOR» AND EXITS TO CONTINUF NOTIFY SERVICE, 


BSs 0 

BRANCH NOPASS,INPUT CREATE TASK TO CONVERSE WITH OP 
TSX Os TSGETT 

EAX XeOeaT 

LDX To TSLINKoX 

EAX TaDex 

EAX Os INPUT 

STX OsTSTRAST 

EAX OsOSOFFSTsT 

XED OSXAND+O$TASK 

LDX To TSLINKeX 

BUGXR (00X) 

SET BUGRBUG+1 

LDX Os 3UG8UG» DU 

LDX Xe 3UGBUGs DU 

TRA CENSRVYX REISSUE NOTIFY 


120 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 


250 


MBR 


ENO 


END 


OL 09"17=71 

0 
992011 001517 
ON2012 001645 
On2013 AGN2Or 
002014 905463 


OF BINARY CARD 
002015 00536 
002016 005665 
002017 005464 
0n2020 08463 
0n2021 ono002 
002022 coco 
002023 000077 
092024 02032 
002025 oca003 
002026 002015 
002027 000035 
002030 002015 
002031 777777 
002032 noo00c 
002033 777777 
002034 902015 
002035 n00014 
002036 coo1L4e 
002037 005464 
0n2040 005462 
002041 005526 
002042 005461 


OF BINARY CARD 
092043 005460 


090437 


ag2oit 


ga2o11 

Na2oi11 
7079 09 

Nno2012 
7070 00 
2350 08 
7550 00 


002015 
10800051 
7090 00 
oocna no 
o0cn 03 
canon 00 
0000 03 

0902022 
7200 11 
3600 03 
6000 00 
1000 o8 
60c9 ao 
1900 03 
6000 00 
7100 00 


19$90052 
4500 90 


INPUT/NUTPJT SCHEJUIER <- 


3894 
3895 
S896 
3897 
3898 
3899 
3960 
3901 
3902 
3903 


3904 


3905 
3906 
3907 
3908 
3909 
$910 


3911 


3912 
39138 
3914 
3915 
3916 
3917 
3918 
3919 
3920 
3921 
3922 
3923 
3924 
3925 


3926 


APERATOR INTERFACE a< 


NPT 


INP 1 


INP2 


INP 3 


INP4 


USE 
HE AY 


CODE 
0 


19S MONITOR 


INTTIALIZE 


PAGE 


INITIALIZATION 


INITIALIZE IN ORDER TO TALK WITH OPERATOR 


BSS 
LOGS 
TSX 
LOS 


TSX 
LDA 


STA 


0 
LeOSLOSSs 
L»sOSL0S 


1BFS7#4,DU 
INCHR 


READ INPUT FROM CTY 


READ 


TSX 
ARG 
ARG 
ARG 
ARG 
CHECK 
LX 
ANX 
TZE 
CMPX 
TZE 
CMPX 
T2E 
TRA 


ENTER HERE TO SET CONVERSATIONAL MCDE 
SEIZE CTY» LOCK IT. SEND INENTIFTER 


GET NUMBER OF CHARACTERS TN READ 
SETUP FOR READ 


RSOPFRN, (I BUF sDU)sINCHR,(2eDU) 


OsSREAD 
RSOPFRN 
IBUF,DU 
INCHR 
22DU 


INP3,BS8ZeINP2sBSTROSINP2 


Os TSSRW1oT 
O,BSSTMKs\ DU 
INPS 
0.888Z,DU 
INP2 
OsBSTROSDU 
INP2 

SERROR 


INFORMATION READ 


Bss 
LDA 
ANA 
TZE 
ARL 
ADA 
ORA 
STA 
Bss 
STZ 
sTz 


STZ 


0 

TSSRWioT 

"12DU 

INP2 

18-6 
STAL4#STALYBoDL 
IBUF.DU 

ITAL 

0 


ERCMD 
LTCHR 


RFLG 


GET NUMBER OF CHARACTER RECEIVED 
ISOLATE NUMBER 

NOTHING, READ AGAIN 

MOVE LENGTH TO CHARACTER TALLY PASITION 
SET TALLY 8YTE BIT AND BUMP TALLY ONE 
SET IN ADDRESS 

SAVE AS WORKING TALLY 


RESET COMMAND ERROR COUNT 
RESET LAST CHARACTER RECEY VED 


RESET RE@READ FLAG 


121 


270 
280 
290 
300 
310 
320 
330 
340 
350 
360 


370 


380 
390 
400 
410 
420 
430 


440 


450 
460 
470 
480 
490 
500 
310 
520 
530 
540 
550 
560 
570 
580 


590 


MBR 


O1 Og—17—71 592937 


on2n44 


095462 
005463 


095464 
005470 


005524 


0 
002045 7100 oOo 


005462 

n90040 
005464 9224 40 
noacoea antaoa 


0905464 
107105124040 
on4ng4004nna 

ngagns 

005471 
0n40040040n4 

002045 


3927 
3928 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 


INPUT/QOUTPUT 


Se 


TRA 


USE 
EQU 
TALLYR 
ZERO 


BSS 
UaSCI 
ocT 
EQU 
8SS 
ocT 
USE 
DISK 


SCHEDULER =@ 1905 MONITOR 


OPERATOR INTERFACE e+ INITIALIZE 


LSCAN GQ TO LINE SCAN 

STORE 

32 LENGTH OF INPUT BUFFER 

IBUF s4aILENsO INPUT TALLY WORD 

thy NUMBER oF CHARACTERS To READ 
0 INPUT AREA 


4eGET LPO1# EXIT 
004094904004 FAKE END OF READ 


wel BUF SIZE OF FAKE READ (woRDS) 
IBFSZ*1LEN RESERVE REST OF BUFFER 
004004904004 PAD THE END 

PREVIOUS 

LSCAN 


PAGE 


122 


600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 


MBR 


END 


OL O09"17=71 590937 
0 
n02048 
092045 
002045 9005469 4500 00 
002046 095461 2350 050 
002047 6n0046 1159 07 
0n2050)060n5525 6000 51 
no2051 
002051 6n0004 115n 07 
092052 of2070 6000 oO 
002053 
002053 o0172C 7079 00 
0902054 4900090 3150 07 
092055 002051 6010 00 
OF ByNARY CARE 10800053 
002056 905460 5540 40 
002057 
092057 
002057 601747 7070 on 
002060 005526 9540 a0 
002061 on000N 222c 0o3 
002062 o12300 52n2 o2 
0n2063 004717 1150 12 
002064 902075 6010 00 
002065 777777 222n 12 
002066 995525 742n oo 
002067 oon00f 7170 12 
005525 
525226 
005525 525226 onto oo 
095526 onogono0nnnnn 


h92070 


INPYT/OUTP IT SCHEDULER == 


3944 
3945 
3946 
3947 
3948 
3949 
3956 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3963 


3964 
3965 


3966 
3967 
3968 


3969 
3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 
3985 


OPERATOR INTERFACE = LINE SCAN 


a a a a a ee ee 2 


SCAN 


LSCN1 


LSCNS 


* © @ © 


BUG8UG 
LCOMD 
ERCMD 


USE 
HEAT 


CONE 
a 


TOS MONT TOR 


LINE SCAN 


THIS ROUTINE RECOGNIZES COMMANDS, 


Bss 
STZ 
LDA 
CmPA 
T7E 
BSS 
CMPA 
TZE 
INBLK 
TSX 
CANA 
TNZ 


AOS 
BSS 
ICM 
TSX 
AOS 
LDX 
RPT 
CMPA 
TNZ 
LDX 
STX 
TRA 


POINTER 


use 
SET 
ARG 
DEC 


USE 


0 

RFLG 

LTCHR 
ASAMPER SDL 
LCOMNs! 

0 

ASEQTSODL 
LSCNX 


LeOSIN3LK 
BSTERM,DL 
LSCNI 


RFLG 
0 
LeOSICMD 


ERCMD 
XeOeNt 


CMDLNea 2eTZE 


CMDTSeX 
CMDER 
Xe*ieX 
X»LCOmnN 
0eX 


TO LAST COMMAND 


STORE 
BUGBUG41 
BUGRUG 

0 


PREVICUS 


CLEAR THE RE@READ FLAG 


GET LAST CHARACTER 
SEE IF REPEAT CommMAND 


YESe==L0 IT 


CHECK FOR CARRIAGE RETURN 
YES=—="MORE?? 


A TERMINATOR 
ON THE LAST COMMAND QF AMPERSAND IS TAKEN TO 
INDICATE A REPETITION OF THAT COMMAND, ELSE 

A NEW COMMAND 1S PICKED UP AND EXECUTED, 


PAGE 


GET NEXT NON@BLANK CHARACTER IN a 


SEE IF EXTRA TERMINATOR 
1S SO**CHECK IT OUT 


BACK UP OVER IT 
GET COMMAND 


ONE MORE COMMAND 
INITIALIZE xX FOR RPT 


SEARCH TABLE 

NO SUCK COMMAND 

GET POINTER FROM TASLE 
SAVE POINTER TO ROUTINE 
BRANCH ON IT 


FOR REPEATING 


POINTER TO LAST COMMAND 
FOMMAND NUMBER CURRENTLY ACTIVE 


123 


110 
120 
130 
140 
150 
160 
170 
140 
190 
200 
210 
220 
230 
240 
250 
260 
270 
240 
290 
300 


310 
320 


330 
340 
350 


360 
370 
380 
399 
400 
410 
420 
430 
440 
450 
460 
470 
4860 
490 
500 
§10 
520 


MBR 


END 


OL Og-17=71 


092070 
002071 
002072 


002073 
On2074 


004701 
094702 


004703 


C 


001569 
001517 
004701 


101543 
no2012 


004702 


392937 


992070 


002070 
092070 
7070 00 
Nd2071 
7670 09 
002072 
2350 00 
7070 0 
7100 00 


004701 
0013 40 


177177015012 
OF BINARY CARD 


10800054 


115117122105 


002075 


INPUT/ONUTPUT SCHEDUIER <= 


3987 
3988 
3989 
3990 
3991 
3992 
3993 
3994 
3995 
3996 
3997 
3998 


3999 


4000 


4001 
4002 
40038 
4004 
4005 


4006 
4007 


OPERATOR INTERFACE == MORE 


SCNX 


MORMS 


USE 
HEAD 


THIS ROUTINE ASKS THE OP FOR MORE COMMANDS. 
NOTE YHAT IT RELEASES AND THEN SEIZES THE CONTROL TTY 
TO ALLOW ANY OTHER WAITING TASKS TON LOG THEIR MESSAGES. 


BSs 
LOGX 
TSX 
LOSS 
TSX 
LOGC 
LDA 
TSX 
TRA 


USE 
TALLY 
ocT 


UASCI 
USE 


CODE 
0 


0 
LeOSLOGx 


LeOS$LOGS 
MORMS 
MORMS 
LeDAS$LOGc 
INP! 


CONST 
15104100 
1771770158012 


2aMORE? 
PREVIOUS 


1OS MONITOR 


MORE? 


RELEASE CONTROL == ALLOW OTHERS TQ SPEAK 


SEIZE CONTROL AGAIN 


"MORE? ° 


READ REPLY 


© >MORE? » 
WARM UP TTY 


PAGE 


124 


540 
550 
560 
370 
580 
390 
600 
610 
620 
630 
640 
650 


660 


670 


680 
690 
700 
710 
720 


730 
740 


MBR 


END 


OL ODget7un71i 292937 
0 
n92075 
0902075 
092075 
092075 004705 2350 00 
092076 601543 797n nO 
ON2077 9N5526 2350 no 
002100 00007 375 497 
On2101 166060 2750 07 
o0210e2 
on02i02 009162¢ 7070 o0 
002103 
002103 001645 7970 oo 
002104 9020787 7100 OO 
904705 
004705 004706 c024 4n 
004706 177177015012 
004707 103117115115 
002105 
092105 
N02105 
092105 004713 2350 oo 
N02106 001543 7070 900 
on2107 0c2075 7100 oO 


004713 
OF BINARY CARD 10809055 


004713 004714 G21 40 

004714 177177015012 

004715 106117122115 
002110 


INPUT/QUTPIIT SCHEDULER -< 


4009 
4010 
4oil 
4012 
4013 
4014 
4015 
4016 
4017 
4618 
4019 
4020 


4021 
4022 
4023 
4624 


4025 


4026 
4027 
4028 
4029 
4030 
4031 
4032 
4033 
4034 
4035 
4036 
4037 
4038 
4039 
4040 
4041 
4042 


4043 
4044 
4045 


4046 
4047 
4048 
4049 
4050 


OPERATOR 


MDER 


CERR 


“2 © #8 #@ eH 8 @ 


a$e 


1QS MONITOR 


INTERFACE == CoMMAND/FORMAT ERRORS 
USE CONE 
HE AU 0 
CMDER 
THIS ROUTINE Is ENTERED wHEN A COMMAND CAN NOT BE RECOGNIZED, 
IT TELLS WHICH COMMAND WAS INVALID (BY NUMBER) AND ASKS 
FOR MORE INPUT. 
BSS 0 
LOGC CERR "COMMAND ERROR #? 
LDA CERR 
TSX LsO$LO6GC 
LDA ERCMD GET NUMBER OF THIS COMMAND 
ANA 7,04 ISGLATE NUMBER 
ORA ASDOSUL MAP INTO ASCII PIGIT 
LCHR PRINT IT 
TSX LeOSLCHR 
LOG FLUSH BUFFER 
TSX L»O$LOG 
TRA LSCNX MORE? 
USE CONST 
TALLYH *ehnt1G41e0 *COMMAND ERROR w? 
oct 177177915012 
yASC! 4,COMMAND ERROR 4 
USE PREVTOUS 
FORER 


PAGE 


THIS ROUTINE IS ENTERED WHEN ONE OR MORE PARAMETERS FOR a 


VALID CoMMAND CAN NOT BE RECOGNIZED. 


CALLS oCMDER?, 

ess 0 

LOGC FERR 

LDA FERR 

TSX LeO$LO06C 

TRA CMDER 

USE CONST 

TALLYB #41,1641,0 
oCcT 177177015012 
UASCI 2eFORMAT ERROR 
USE PREVIOUS 
DISK COMMANDS 


IT SCREAMS AND THEY 


FORMAT ERROR 
FORMAT ERROR 


EXIT TO COMMAND ERROR 


FORMAT ERROR? 
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760 
770 
780 
790 
600 
810 
820 
830 
840 
850 
860 
870 


880 
890 
900 
910 


920 


930 
940 
950 
960 
970 
940 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1990 


1100 
1110 
1120 


1130 
1140 
1150 
1160 
1170 


MBR OL Q9"17=71 590937 
9 
892110 
094717 
94717 
994717 10513111124 
994720 «6002372 500n un 
994721 107105124049 
994722 of2i10 conn oo 
094723 113111114114 
094724 902220 soto 49 
904725 122105114195 
094726 962253 sate 09 
994727 122105123124 
004730 aN2277 SOON nO 
noagie 
agaoogs 
OO92110 


INPUT/OUTPUT SCHEDULER = 


108 MONITOR 


OPERATOR INTERFACE me COMMAND TARLE 


4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 CMNTS 
4062 

4043 

4064 

4065 

4066 

4667 

4068 

4069 

4070 

4071 

4072 CMDLX 
4073 CMDLN 
4074 

4075 *$e 


2 22 2 © 6 


Use 
HEAD 


THESE COMMANDS ARE 


USE 
BSS 
UASCI 
ARG 
UASCI 


CODE 
fe) 


CONST 

0 

1,EXKIT 
OPX 

1,6£7 

GET 
1eKILL 
KILL 
L»,RELEASE 
REL 
1s,RESTART 
STRT 
*#eCMDT3 
CMDLX/2 
PREVIOUS 
OGET 


COMMAND TABLF 

IN ALPHABETICAL ORDER 
BACKWARD COMMAND TABLE 
EXIT == RELEASE TTY 
REOPEN CLOSED PERIPHERAL 
KILL A PERIPHERAL DEVICE 
CLOSE A PERIPHERAL 
RESTART A PERIPHERAL 


TABLE LENGTH 
NUMBER OF TABLE ENTRIES 


PAGE 


126 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 


MBR VL NG at 7a 7h 590537 INPUT/NUTPIT SCHEUULER m2 10S MONITUR PAGE 127 


9) OPERATOR INTERFACE == GET COMMANN 
AQ2L10 4677 USE CODE 110 
4078 HEAD 0 120 
4079 * 130 
40680 * 140 
4081 * GET COMMAND 150 
4082 * 160 
4083 * RE@OPENS THE PFRIPHERAL IDENTIFIED BY THE FOUR LETTER 170 
4684 * ABBREVIATION, THE FORMAT 1Se 140 
4085 * 190 
4686 * GET <PERIPHERAL meNAME>3...3«<PERIPHERAL@NAME> 200 
4687 * 210 
4088 * 220 
002110 4089 GET BSS 0 230 
ON2l110 002332 7H7Nn 50 4090 TSx LePERI GET PERIPHERAL INFORMATION 240 
ON2iii aCON23 7420 11 4091 STX Xe TSTEMP5S of SAVE TYPE AND 250 
oneli2 annned 4440 14 4092 Sxh Zo TETEMP5 aT NEVICE POINTERS 260 
4093 * 270 
4094 » CHECK IF CURRENTLY CLOSED 280 
4095 * 290 
002113 oCGO02 2359 14 4096 LDA RSFLAG,7Z GET PERIPHERAL FLAGS 300 
on2i14 2090000n 315n 03 4097 CANA RSCLOSE,DyY CHECK IF CLOSED 310 
092115 002206 6000 20 4098 TZE GETS IGNORE COMMAND IF NOT 320 
END OF BINARY CARD 398009056 
002116 9geno0c 2350 14 4099 LDA RSABBRe?7 GEY ITS NAME 330 
on2gi1i17 ocSit57 1150 00 4100 CmepaA QSNP00+QSABBR Don?t ALLOW OP TO 340 
002120 9n2206 600 o0 419i TZE GET5 FOOL WITH HIS CONSOLE 350 
002121 005535 7550 a0 4102 STA PINS6 CONSTRUCT TREE=NAME 360 
092122 900002 2290 12 4193 LDx OsRSELTsY GET ELEMENT SI7E 370 
992123 900027 74nn 11 4104 STX Os TSTEMP4sT SAVE FOR OPEN 380 
002124 4105 GET, OPEN (PTNSDUD SC PTSeDU) s(19DU) s(TSTEMPLoT Io ( 00290) 390 
002124 000667 700N o0 TSX O,SOPEN 
002125 905527 anto o3 ARG PTN,DU 
002126 anaggi4 noone o3 ARG PTS2DU 
AN2127 oonno01 nono o3 ARG 1.20uU 
an2i3o 000027 ootn 11 ARG TSTEMPLLT 
an213i ono000 onno o3 ARG 0.DU 
no2132 4106 CHECK GET2s,R88B7eGET1 se BS$LOCKsGET4 400 
092132 ooo00c 7200 11 LXL Oso TESRWioT 
092133 900077 3600 03 ANX Os35STKe DU 
O0N2134 on2142 6n6n0 On TZE GET2 
002135 900003 intn 03 CMP y Os8%887.DU 
092136 902124 69C0 oO T7E GET1 
ON2137 00013 toto o3 CMP x OsASLOCKs.DU 
0N2149 0n2204 6ntn oOo TzéE GET4 
002141 777777 7100 AN TRA SERROR 
4107 * 410 
4108 * PERIPHERAL OPENED 420 
4109 * 430 
N02142 4110 GET2 BSS 0 440 
on2142 nodes 2220 11 4111 LDX Xs TSTEMP5S aT RESTORE PERIPHERAL POINTERS 450 


MBR 


END 


END 


Of 9=47—=7]4 


0 
n02143 gnnn23 
OF RBINAPY CARN 
002144 sonnoe 
012145 900001 
an2146 900025 
092147 onc004 
002150 900005 
092151 nooo! 
092152 00006 
002153 777777 
002154 977777 
002155 00002 
002156 400001 
nn2157 9n0027 
02160 oonn00 
on2161 nann07 
002162 on0022 
002163 on2n00 
092164 000026 
002165 onoco2 
002166 cootes 
002167 000767 
092170 006221 
002171 conoot 
OF BINARY CARE 
902172 900027 
092173 nonon26 
092174 0900025 
002175 onan24 
002176 onnnoo 
002177 700077 
002206 002204 
n02201 cones 
002202 12167 
092203 777777 
002204 go0n0c 
002205 902167 


994937 INPUT/OUTPUT SCHEDULER == 10S MONITOR PAGE 
OPERATOR INTEFFACE we GET COMMAND 
7240 11 4112 LXL Zo TSTEMPS oT 
1NSN9N5§7 
2200 11 4113 LOX Os TSSRWi eT GET FRN 
7AON 14 4114 STx O,R&FRN,? SAVE IA TABLE 
7490 11 4115 STX Geo TBTEMp3eT SAVE Far PASS IN CAUSE 
954n 42 4116 AQS RBOMAX sx BUMP OUR MAX COUNT 
e540 12 41147 AOS RSAVAILSX RUMP NUMBER AVAILASLE 
noe151 4118 DECRM (REOPER.X) DECREMENT OPERATOR HOLDINGS 
3360 Q7 LCQ 1,DL 
956n 12 ASQ RBOPERsx 
6n4n a0 4119 IMI SERROR waePROBLEM 
22tn 03 4120 LDX Os@1LeRFBUSYHRSECLOSEMRERSVESDU eSET OFF A FEW FLAGS 
3490 14 4121 ANSX OsRSFLAGeZ IN THE PERIPHERAL TAALE 
4122 * 
4123 * SEND PERIPHERAL TO SUBMODULE 
4124 * 
2359 12 4125 LDA RSSTATE SX GET STATE 
7559 11 4126 STA TSTEMP1,T SAVE FOR CAUSE 
2350 14 4127 LDA REARSR47 GET NAME OF DEVICE 
3750 97 4128 ANA 7,0DL MASK TO UNIT NUMRER 
7359 oO 4129 ALS 18 MOVE TO AU 
2750 a3 4130 ORA BSeGETs DU COMMAND: GET 
7550 11 4131 STA TSTEMP2,T SAVE AS MESSAGE 
7200 12 4132 LX OeoRSACCLX GET ACCESSES TO PASS 
7400 11 4138 STX O,TSTEMP4,T 
002167 4134 GET3 Bss 0 
002167 4135 CAUSE CSFRNZ5 (1eDU) so (TSTEMPLoT) a (TETEMP2eT) 
NO2167 4136 ETC (TSTEMP eT oa (TESTEMP4eT) 
70C0 OOD TSX O,SCAUSE 
9000 90 ARG CSFRN2 
coco 03 ARG 1,.DU 
19800058 
90ne if ARG TSTEMPI1,7T 
oaero 11 ARG TSTEMPO,T 
9000 11 ARG TSTEMP3,T 
onco 11 ARG TSTEMP4,1 
102176 4137 CHECK GET4,8%$B87eGET3 CHECK STATUS 
7200 11 LXL Os TESPWioT 
3600 03 ANX OsBSSTMKs.DU 
6000 400 TZE GET4 
10°0 O83 CMPX Os B8SB82Z2eDU 
6000 00 T7E GETS 
7100 090 TRA SERROR 
092204 4438 GET4 8S5S 0 
2220 ii 4139 LDX Xe TSSRWi oT GET NUMBER OF PEOPLE NOTIFIED 
6aon 00 4140 TZE GET3 NONE® RE@SENN 
992206 4141 GETS BSS 0 
4142 * 
4143 * PERTPHERAL PASSENs TELL OPERATOR 
4144 * 


710 


720 
730 
740 
750 
760 
770 


780 


MBR 


ENG 


QL 981771 £90937 
G 
n92206 
092206 064731 2350 an 
ON2207 101543 79709 nO 
194731 
ON473L 904732 CABN 49 
994732 177177015012 
N04733 120105122111 
N92210 
OF BINARY GARD 10899059 
n922ic 00023 724n 11 
on22i11 noanee 6350 14 
on2212 900540 2750 097 
002213 
002213 001543 7970 co 
102214 
002214 0901730 797 050 
002215 2600973 115 47 
002216 no211¢ 6000 oo 
002217 902045 7100 on 
905527 
005527 
005527 104105126111 
005535 117120060069 
005536 0940040040040 
no0014 
092220 


TNPUT/QUTPIT SCRKEUULER <2 


4145 


4146 
A147 
4148 
4149 
4150 


4151 
4152 
4153 
4154 


4155 
4156 
4157 
4158 


4159 
4160 
4161 


OPERATOR 


OPMS 


4162 * 


4163 
4164 
4165 
4166 
4167 
4168 
4169 
4170 
4171 


INTERFACE ee GET COMMAND 
LOGC OPMS TELL OPERATOR PERIPHERAL NPENENS 
LDA OPMS 
TSX Le ®$LOSC 
USE CONST 
TALLYR #415234+150 PPFRIPHERAL CPENEDS ° 
NcT 177177915012 
UASCI SsPERIPHERAL OPENETS$ 
USE PREVIQUS 
LXL Zo TETEMPS eT RPESTNRE NEVICE POINTER 
EAA R$ABRR,?Z POINT TO ARBREVIATION 
QORA GaBTALSSTALS$TALYBs DL ABBREVIATIONS APE FOUR CHARACTERS 
LOGC A 
TSX LeO$Lo6Cc 
OPERATOR INFORMENs SEE IF MORE 


IDELM 
TSX 
CMPA 
TZE 
TRA 


USE 
BSS 
UASCI 
UASCI 
UASCI 
EQU 
use 
DISK 


Tas MON tToR PAGE 


GET NELIMITER 


LeoOSIDELM 

ASSCOLSDL SEMI=COLON? 

GET GET NEXT 

LSCAN OTHERWISE GET NEXT COMMAND 
STORE 

0 PEFIPHERAL TREE=NAME 
6,DFEVICE 

120P70 DEVICE TN BE OPENED GOFS HERE 
5s 

*=PTN TREE@SI7E 

PrREvt0us 

OKILL 


129 


MBR 


ENG 


END 


Q1 0981797} 


a) 


OF BINARY CART 
992220 Of2332 
g92221 900923 
NN2222 160023 


on02223 ncoote 
092224 490060 
002225 of225n 


092226 foontl 
002227) acnine7 
an223c ¢enco00 
On2231 0¢0007 
an2232 n0conn22 
on2233 on4n00 
092234 006026 


092235 461467 
aon223€ onn007 
ON2237) ArOoNCS 
002240 on3145 
0on2241 anrosct4 
aon2242 nnanod4 
an2243 005162 
0n2244 900000 


NN2245 525227 
OF BINARY CARD 
092246 525227 


3390937 


092220 


092220 
1ns0n0n6o 


7970 
7420 
4440 


2350 
3150 
69ca 


2350 
7550 
2350 
3750 
7350 
2750 
7550 


nd22s5 


7390 
6220 
2219 
6200 
7400 
6200 
7170 
6210 


N02245 
525227 


2200 


1nso0061 


2220 


09 
11 
11 


11 


00 
11 
12 
a0 
il 
11 
09 
12 


03s 


03 


TNPUT/OUTP YT SCHEDUIER == 10S MONITOR PACE 
OPERATOR INTERFACE we KILL COMMANG 
4173 USE Cone 
4174 HEAD 0 
4175 * 
4176 * 
4177 »* KILL COMMAND 
4178 * 
4179 * FORCES THE IMMEDIATE TERMINATION OF THE PERIPHFRAL IDENTIFIED 
4180 * BY THF FOUR LETTER ABBREVIATION, THE FORMAT IS3 
4181 * 
4182 * KILL «<PERIPHERAL@=NAMF>3...3<PERIPHERAL@NAMED 
4183 * 
4184 KILL sss 0 
4185 TSX L»PEP] GET PEPITPHERAL INFORMATION 
4186 STX Xs T&TEMPSaT SAVE TYpe ANE 
4187 SxL ZaTSTEMPSeT DEVICE POINTFRS 
4188 * 
4189 * CHECK IF PERIPHERAL IS IN USE 
4190 * 
4191 LDA RSFLAG,7 GET PERTPHERAL FLAG 
4192 CANA R$BUSYs.DU CHECK JF BUSY 
4195 TZE KILLI FXIT IF NOT 
4194 * 
4195 « SEND MESSAGE TO KILL THIS JOR 
4196 * 
4197 SEND MESSAGE TO ABORT JO08 IN PROGRESS 
4198 LDA R$STATE,X GET STATE FOR CAUSE 
4199 STA TSTEMPI1,T SAVE FOR COMMUNICATIONS ROUTINE 
4200 LDA RSABSR47 GET NAME OF PERIPHERAL YO CLOSE 
4201 ANA 7o0L MASK TO UNIT NUMBER 
4202 ALS 18 POSITION IN MESSAGE FIELD 
4203 ORA BSeKILL.»DU COMMAND: KILL 
4204 STA TSTEMPO,T SAVE FOR COMMUNICATIONS 
4205 BRANCH PASSsCEMESSX CREATE TASK To SEND mESSAGE 
TSX Os TSGETT 
EAX XaOot 
LDX ToaTSLINKsX 
EAX OsCSMESSX 
STX O,TSYRAST 
EAX. Os NSNFFE stat 
xED OSXANDs+OETASK 
EAX Ta Max 
BUGXR (Q02X) 
BUGRUSG SET BUGRLG+1 
LDxX Ose ByGhyGe Du 
LDX X¥,3UGEUG.DU 
4206 * 
4207 * MESSAGE SENT, SEF IF MORE 
4208 » 


130 


410 
120 
130 
140 
i150 
160 
170 
180 
190 
200 
210 
220 


230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
330 
360 
370 
380 
390 
400 
410 
420 
430 


440 
450 
460 


MBR 


AL AG=17=71 


0N2247 


092250 
on2251 
nNZ2252 


5 


ne1735 


2004973 
one2er 
Ag2g45 


590937 


992247 
7970 00 

992250 
1189 n7 
6999 0 
71° 04a 


INPUT/OUTPE YT SCHEDUI ER == 105 MONITOR 


OPERATOR INTERFACE w= KILL COMMAND 


4299 


4210 KILI 
4211 

4212 

4213 

4214 «$e 


IDEL™ 
TSX 
3SS 
CMPA 
TZE 
TRA 
DISK 


GET NELIMITEP 


LeISiIDELM 

0 

ASSCOLSDL SEMI=COLON? 

KILL YESs GET NEXT PERTPHERAL NAME 
LSCAN NOs GET NEXT COMMAND 

OREL 


{31 


470 


480 
490 
500 
510 
520 


MBR 


END 


D1 AGey7—e7Y 


002253 
092254 
0n2255 


092256 
092257 
0N2260 
092261 
0N2262 
NN2263 
092264 


ON2265 
002266 
092267 
092270 
002271 
ON2272 


CG 


002332 
000023 
n0o0923 


900002 
200900 
NN2273 
100000 
900002 
400000 
On2273 


506000 
000002 
006902 
nN0006 
000023 
002447 


OF BINARY CARD 


002273 
0N2274 
092275 


192276 


001730 
200073 
002253 


002045 


390937 


002258 


902253 


7070 
7420 
4440 


002273 
092273 


10890062 


7070 


1150 
6000 


7100 


00 
11 
11 


ole) 
07 
00 
00 


INPUT/OUTPIIT SCHEDULER == 1US MONITOR 


4216 
4217 
4248 
4219 
4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
4230 
4231 


OPERATOR INTERFACE == CLOSE COMMAND 


@e ee 8 ee 2 * SB 


4232 * 
4233 * 


4234 
4235 
4236 
4237 
4238 
4239 
4240 
4261 
4242 
4243 
4244 
4245 
4246 
4247 
4248 
4249 
4250 
4251 
4252 
4253 
4254 
4255 


4256 
4257 
4258 
4259 


REL! 


REL2 


xt) 


USE CODE 
HEAD 0 


CLOSE COMMAND 


CLOSES THE PERIPHERAL IDENTIFIED BY THE FOUR LETTER 
ABBREVIATION, THE FORMAT ISs8 


RELE <PERIPHERA, -NAME>S 0 oo 3 <PERIPHERAL NAMED 


BSS 0 

TSX LeaPERI GET PERIPHERAL INFORMATION 
STX Xe TSTEMPS oT SAVE TYPE AND 

SxXL Zo TSTEMPS oT DEVICE POINTERS 


CHECK FOR ALREADY CLOSED 


LDA RSFLAGs7 GET PERIPHERAL FLAGS 

CANA RSCLOSE.NU CHECK IF CLOSED 

TNZ REL2 EXIT IF §0 

ORA R3RSVE,DU ASK TO HAVE IT RESERVED 

STA RSFLAGs7 RESTORE FLAGS 

CANA R$3uUSYsDU CHECK IF CURRENTLY 8ySY 

TNZ REL2 RUSY@-IT WILL CLOSE EVENTUALLY 


DeVICe IDLE == SEIZE IT 


BSS 0 

LDA R$BUSY+RSRSVE2DU ®MARK IT BUSY AND RESERVED 
ORSA RSFLAGoZ 

SxXL JoRSALL Coz AND ALLOCATED TO US 

SX JeTSIC3ILT FUnGE 

LDA TSTEMPS.T GET RELEASE PARAMTERS 

TSX LoRFRELP CALL RELEASE 


PERIPHERAL RELEASED. CHECK IF MORE 


BSS 0 
IDEL™ GET DELIMITER 

TSX LeOSIDELM 

CMPA ASSCOLSDL SEMI@COLON? 

TZE REL YES» GET NEXT PERIPHERAL NAME 
TRA LSCAN NOs GET NEXT COMMAND 

DISK OSTRT 


PAGE 


132 


110 
120 
1350 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 


510 
320 
530 
540 


MBR 


END 


O1 GgQet7=71 
6 

002277 0n2332 
002300 onn023 
on2301 nn0623 
002302 nn0002 
002303 400006 
n02304 902326 
002305 990001 
002306 oan027 
ON2307 nnooco 
OO231C onn00G7 
002311 on6n22 
002312 o1200n 
002313 coon26 
0N2314 901467 
002315 90000C 
002316 900005 
002317 0031340 


OF BINARY CARD 


002320 000004 
002321 cao004 
002322 005162 
002323 oo00ce 
092324 525230 
02325 525236 


09.937 


992277 


2350 12 
7550 11 
2350 14 
3750 07 
7350 00 
2750 03 
7550 11 
002314 
7000 on 
6220 11 
2210 12 
62090 00 
1nS00063 
740M 11 
6200 11 
7170 00 
6210 12 
002324 
525230 
2200 a3 
2220 03 
002326 


INPUT/OUTE YT SCHELULER <= 


4261 
A242 
4263 
4264 
4265 
42466 
4267 
4268 
4269 
4270 
4271 
4272 
4273 
4274 
4275 
4276 
4277 
4278 
4279 
4280 
4281 
4282 
4283 
4284 
4285 
4286 
4287 
4288 
4289 
4290 
4291 
4292 
4293 
4294 
4295 


4296 
4297 


NPERATOR 


woetee ee ese # Be 


TRT 


* C 


aes &#@ *# @ & 


BUGBUG 


STRT2 


* 


TOS MONITOR 


INTERFACE w= START COMMAND 


USE 
HEAD 


STARTS (RESTARTS) 
ABBREVIATION, 


BSS 
TSX 
STX 
SXL 


HECK IF 


LDA 
CANA 
TZE 


GET RESTART ADDRESS 


LDA 
STA 
LDA 
ANA 
ALS 
ORA 
STA 
BRANCH 
TSX 
EAX 
LDX 
EAX 


STX 
EAX 
XED 
EAX 
BUGXR 
SET 
LDx 
LDX 
BSS 


CONE 
i) 


Q 

LePERI 

Xo TSTEMpPS oT 
Zo TSTEMPS5 aT 


PERTPHERAL IS IN 


RSFLAGs7 
R$BuUSYs. DU 
STRT2 


RESTATE SX 
TSTEMP1sT 
R$ARSR,7 
7.0L 

18 
BS.STRT»DU 
TETEMP2eT 
PASSsCSMESSX 
Os TSGETT 
XaOeaT 
ToTSLINKsxX 
O,CSMESSX 


Os TSTRAgT 
OsSSOFFSTsT 
OSXANDsQSTASK 
ToDeX 

(05x) 
BUGRUG4! 
O»BuGbuUGs DU 
X»BUGBUGs. DU 

0 


START COMMAND 


THE PERIPHERAL [DENTIFIED BY THE FOUR LFTTEPR 
THE FORMAT 1S3 


START <PERIPHERAL=NAME>3.. (3 <PERIPHERAL @NAME> 


GET PERIPHERAL INFORMATION 
SAVE TypE AND 
DEVICE PTRS 


ySe& 
GEy PERIPHERAL FLAG 


CHECK IF BUSY 
FXxIT IF NOT 


(CURRENTLY NOT IMPLEMENTED) 


SEND MESSAGE TO SUBMODULE TO RESTART 


GET STATE FOR CAUSE 

SAVE FOR COMMUNICATIONS ROUTINE 
GET NAME OF PERIPHERAL TO RESTART 
MASK TO UNIT NUMBER 

POSITION IN MESSAGE FIEL) 
COMMANDS RESTART 

SAVE MESSAGE 

CREATE TASK TO SEND MESSAGE 


460 
470 


MBR 


OL O9"17=71 


002326 
902327 
902330 
an2ssi 


0 


901730 
200973 
002277 
902945 


990937 UINPUT/OUTPHT SCHEDULER == 10S MONITOR 


NPERATOR INTEFFACE we START COMMANT 


4298 * MESSAGE SENT, SEE IF MORE 
4299 * 
N02326 4300 IDEL™ GET DELIMITER 
7979 00 TSX LeoOSIDELM 
1159 07 4301 CMPA ASSCOLSDL SEMICOLON? 
6n00 90 4302 TZE STRT YESs GET NEXT PERIPHERAL NAME 


7190 00 4303 TRA LSCAN NO» GET NEXT COMMAND 
6304 *$e DISK OPCAN2 


PAGE 


134 


480 
490 


500 


510 
520 
530 
540 


MBR 


END 


O01 O09"17=71 


G 


002332 100022 
002333 ocn044 
002334 9017206 
002335 002337 
002336 001674 
0902337 640906 
002340 002346 
002341 0900033 
002342 o000i1 
002343 onooli 
002344 992336 
OF BINARY CARD 
002345 002347 
002346 990546n 
002347 901720 
0023590 600000 
002351 oc2105 
002352 0905540 
002353 00010 
002354 0105620 
002355 902105 
002356 9c000G0 
002357 onanso3 
0n2360 6960012 


590937 


032332 


N92332 
4470 11 
3230 03 

102334 
7070 90 
710M 00 

192336 
7070 09 
3150 07 
6n1n0 00 
7350 00 
7770 00 
c23n a3 
604n on 
19890064 
71090 00 
0540 00 

002347 
7070 00 
3150 07 
6900 00 


2220 03 
NO2353 
922n 03 
1020 03 
6NS0 00 
2240 12 
235N 12 
7350 00 


INPUT/NUTP'T SCREDULER a= 


4306 
4367 
4308 
4309 
4310 
4311 
4312 
4313 
4314 
4315 
4316 
4317 
4318 
4319 
4320 
43214 
4322 
4323 
4324 
4325 
4326 
4327 


4328 
4329 


4330 
4331 
4332 
4333 
4334 
4335 


4336 
4337 
4338 


4339 
4340 
4341 
4342 
A343 
4344 
4345 
4346 
4347 
4348 
4349 
4350 
4351 


QPERATOR 


weete#eteteseetsee ee et &€ et eR 


ERI 


PER]1 


PERI2 


PERTS 


1OS MONITOR 


INTE®SFACE me PERI SUBROUTINE 
HE AY 0 
USE Cone 
PERI SUBROUTINE 

GET PFRIPHERAL ABBREVIATION FROM INPUT STREAM. IT SETS 
C(XX) TO THE DEVICE KEADFR AND C(XZ) TO THE NEVICE TABLE 
ENTRY. IF IT FINDS NO SUCH DEVICEs IT LOGS A MESSAGE 
SAYING SO. 
PERIPHERAL ASBREVIATION Ts OF THE FORMS 
<PER. ABBR,>s2°2 ALPHABETICS’4+*°2 DIGITS® (E.G. LPO1) 
RETURNS WITH 

C(iXx) » PTR TO DEVICE HEADER 

C(x?) = PTR TO DEVICE UNIT 
BSS 0 
SXL Le TSTEMPG6eT SAVE RETURN ADDRESS 
LCX Ys36,DU LOOK FOR FOUR Q9=RBIT CHARACTERS 
INBLK GET FIRST NON@8LANK CHARACTER 
TSX LeOQSINSLK 
TRA *+2 ENTER LONP 
{CHR GET NEXT CHARACTER 
TSX LsOSICHR 
CANA BSTERM+BSDELIM*+BSOPRSDL "TEST FOR DELIMITER 
TNZ PERI2 END OF ASBREVIATION 
ALS 3699 MOVE TO AU (LEFT JUSTIFIED) 
LLR 9 Now TO BOTTOM OF Q 
ADLX Y¥29.DU BUMP Q-BIT COUNTER 
TMI PERIY LOCK IF MORE 
TRA #42 Don?t BACK uP 
AOS RFLG BACK OvyER LAST CHARACTER 
INBLK GET NEXT NON@BLANK 
TSX LeOSINSLK 
CANA BSTERMsBSDELIMsDL "LOOK FOR TERMINATOR OR DELIMITER 
T7E FORER FOPMAT ERROR 


FIND TABLE ENTRY 


LDX XpRSDEVHR@RSDHLEN,DU POINT TO DEVICE HEADERS 
BSS 0 LOOP HERE 

ADLX XsRSDHLEN»s DU RUMP TO NEXT HEANER 

CMPX X,RSXDVHRSMU TEST FOR DONE 

TRC FORER FORMAT ERROR 

LDX ZaRSPTRoX GET PTR TO UNIT TABLE . 

LDA RESMAyoaX GET NUMBER TO SEARCH 

ALS 188 SET UP REPEAT 


MB 


FA 


OL OGe{7—71 


002361 
092362 
02363 
ON2364 
902365 
002366 


002367 
092370 
0N2371 


9) 


ociiae 
neog0c 
9c0n00 
062353 
900003 
106922 


525231 
900022 
90n000 


62°0 05 
52f2 03 
1140 14 
6910 40 
1249 43 
7270 11 
902367 
525231 
2200 O83 
4400 14 
7100 17 


INPUT/OUTPIT SCREJUI ER == 108 MONITOR 


OPERATOR 


4352 
4353 
4354 
4355 
4356 
4357 
4358 
BUGSUG 


4359 
4360 *$« 


INTERFACE em PERI SUBPOUTINE 


EAX 
RPTX 
CMPAQ 
TNZ 
SBLx 
LXL 
BUGL 
SET 
LDX 
SXL 
TRA 
DIsK 


OsBSABTT+BETZEeAL *TFRMINATE CONDITIONS 


eRBDFEVLN Look For ABBPEV]TATION 
RSARBRRgZ 
PERT3 LOOP IF NO MATCH 


ZeRBABSRERSOEVLNe DU #RESET INDEY 

Lo TSTEMP6—RT RETRIEVE RETURN ADDRESS 
(TESTEMP6aT) AUG IT 

BUGRUG+s1 

Os 8UGRUGS.DU 

OsTSTEMP62T 

OseL PETURN TQ CALLER 

OPEXIT 


PAGE 
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570 
580 
590 
600 
610 
620 
630 


640 
650 


MBR QL G9e,7a7] 292937 


0 


N92372 


902372 
092372 


END OF BINARY CARL 19S8N0065 


002372 
002373 


002374 
002375 


002376 


004740 
004741 


NC4740 2350 NO 
9n1543 70970 oo 
N02374 
oc156c 7979 a0 
002375 
901477 7000 no 
092376 
003074 7100 OO 


004740 


TNPUT/OUTP IT SCHEUU ER == Tas MONITOR 


4362 
4363 
4364 
4365 
4366 
4367 
4368 
4369 
4370 
4371 


4372 
4373 
4374 


4375 


QPERATOR INTERFACE m= FXIT 


cee * ¢€# 8 


4376 * 


4377 
4378 
4379 
4380 
4381 


Ee 


USE 
HEAD 


VARTOUS 


Bss 
LOGC 


LDA 
TSX 
LOG 
TSX 
RELT 
TSX 
EXIT 
TRA 


USE 
TALLY®B 
oct 
USE 
DISK 


CONF. 
8) 


EXIT 


WAYS OF EXITING THE OPERATOR INTERFACE 


0 
MOK LOG OK MESSAGE 
MOK 
LeOSLOSC 

SEND MESAGE 
LeOSLOGyx 

RELEASE TRAP BLOCK 
Os TSRELT 

AND EVAPORATE 
SEXTET 
CONST 
+158 OK MESSAGE TALLY 
1770150121170113015012177 RR CRLF OK CRLF 88 
PREVIOUS 
PERMAC 


DAE 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


210 
220 
230 


240 
250 
260 
270 
280 
290 
300 


MBR VL Agel7—71 094937 
0 


192377 


UINPUT/OUTPUT 


4383 
4384 
4385 
4386 
4387 
4388 
4389 
4390 
4391 
4392 
4393 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4410 
4441 
4412 


SCHEDULER =e 10S MOR ITOR 


PERIPHERAL MANAGEMENT == DESCRIPTION 


Q* ££ 8s © & © & He He HR 


ETP 


Dee © Ss 8 & 


ELP 


“Se 


USE CODE 
HEAD R 


DESCRIPTION 


THESE MACROS GET A RELEASE A SINGLE PERIPHERAL 


GETP 
GET A PERIPHERAL 
MACRO TYPE/ *A? 
INE HL sh Ae 
LDA #1 GET TYPE IN AU 
TSX LeRSGETP CalLL SUBROUTINE 
END™ GETP 

RELP MACRO 


RELEASE A PERIPHERAL 


MACRO DEVICE NUMBERS "Ae 


INE PHL, oA 

LDA ai GET DEVICE NUMBER IN AL 
TSX LeRSRELP CALL SUBRONTINE 

ENDM RELP 

DISK GETP 


PAGE 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 


MBR 


END 


VL Oget7=71 


R 


002377 cno004 
002400 600027 
o0n2401 anno27 
902402 000007 
002403 0n4743 
002404 777777 
002405 000027 
002406 900003 
002407 777777 
g024ic 000000 
092411 7c0000 
0n2412 ncand2 
OF BINARY CARD 
002413 002420 
002414 onnod3 
002415 oooool 


392937 


A92377 


002377 


4470 
7550 
2240 
3640 
2240 
6000 
7440 


3360 
6n00 
2200 
2350 
3150 


10890066 


6n0a 
92nn 
0760 


11 
11 
11 
03s 
14 
00 
it 


00 
03 
07 


INPUT/OUTPIIT SCHEUULER == 105 MONITOR PaGE 


4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 
4427 
4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 
4441 
4442 
4443 
4444 
4445 
4446 
4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 


4460 
4461 
4462 


PERIPHERAL MANAGEMENT «2% GETP 


Ose #3 ©2828 eee ee ee ee &e Se ee eH He He HE He 


m 
4 
Gv 


s 


GETP1 


USE 
HEAD 


CONF 
R 


GETP 


GETP GETS A SINGLE PERIPHERAL UNIT OF A SPECIFIED TYPE. 
IF THERE ARE MORE UNITS OF THE SAME TYPE STILL AVAT, ABLE 
AFTER THE GET, THEN THE NEXT JOB WAITING FOR THE SAME 
PERIPHERAL TYPE 3S AWAKENED. 


CALL RY 
TSX Lea RS$GETP 
CALL wITH 
C(J) = JOB NUMBER 
C(T) = TRLOCK ADDRESS 
C(L) = RETURN ADDRESS 
Cc AU) # PERIPHERAL TYPE 
CALLS 
NONE 
RETURNS WITH 


EXIT TO 
USES 


BSS 
SXL 
STA 
LDX 
ANX 
LDX 
TZE 
STX 


LOOP TO 


Lc 
TZE 
LDX 
LDA 
CANA 


Tze 
ADLX 
ADQ 


Ci(J) = JOB NUMBER 

Cit) # TRLOCK ADDRESS 

CiAU) 2 PTR TO DEvICE HEADER 
C(AL) = DEVICE NUMBER 


Ost 

NO LOCAL TEMPORARIES 

TSTEMPLLATSTEMP2 

0 ENTRY POINT 

La TSTRA,T SAVE RETURN ADDRESS 

TS$STEMP1,T SAVE TYPE 

Za TSTEMpioT GET PERIpHERAL TYpE 

Za7eDU MASK TO TYPE ONLY 

7a TABLE en? POINT TO PERIPHERAL TYPE TABLE 
SERROR NO SUCH PERIPHERAL 

Za TSTEMp1LoT SAVE DEyICE HEADER prrR 

LOOK FOR FREE DEVICE 

MAX? GET NUMBER TO CHECK COMPLEMENTED 
SERROR wae BLEwlt 

Oo PTRe? GEY POINTER TO UNITS 
BUSYs+CLOSE4¢RSVEsDU "GET BRITS TO CHECK 

FLAGsC Is THIS UNIT FREE? 

GETP2 YES» TAKE IT 

O»sRSDEVLNeDU STEP TO NEXT DEVICE 

169 TEST FOR DONE 


139 


110 
120 
130 
140 
150 
160 
170 
140 
190 
200 
210 
220 
230 
240 
250 
260 
270 
240 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
480 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 


570 
580 
590 


MBR 


END 


OL 09-4787] 
R 

an2416 902412 
ON2417 777777 
ON2420 900027 
002421 anoo002 
002422 400000 
092423 gon0c2 
002424 900001 
002425 700005 
092426 777777 
992427) 00n927 
ON2430 6525232 
002431 525232 
092432 525232 
002433 525232 
092434 000004 
092435 525233 
002436 40n0004 
002437 900027 
092449 «6525234 
OF BINARY CARD 
092441 990027 
092442 000927 
002443 525235 
002444 900026 
002445 900026 
nn2446 concn 


590937 


902420 
4400 11 
4460 10 
2220 03 
2420 19 

002424 
3360 97 
C560 14 
6N4N 00 
2350 11 

002430 

525232 
2220 03 
2230 083 
2240 03 
2250 03 
7270 il 

902435 

525233 
220n g3 
4400 11 
2350 11 

NON2440 

525234 
2200 o3 
19890067 
7400 i1 
4400 11 

102443 

525235 
2200 03 
7400 114 
4409 114 
7100 17 


4463 
4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 


ETP2 


4473 


4474 


4475 
4476 
4477 


4478 
4479 


4480 
4484 


4482 


4483 
4484 


BUGBUG 


BUGBUG 


BUGRBUG 


BUGRUG 


$e 


UINPUT/OUTPUT SCHEDULER == [TOS MONITOR PAGE 


PERTPHERAL MANAGEMENT == GETP 


TMI GETP1 NO» SO CANTINGE SEARCH | 
TRA $ERROR weaxSOMERQNODY FORGOT TO RESERVE °EMy 


FOUND THE REQUESTED UNIT 


BSS 0 

SxXL O,TSTEMPI.T SAVE POINTER T9 NEVICE 
SxL JeoALLCs0 MARK IT ALLOCATED TO US 
LDX XsBuSYe DU SET THE BUSY BIT ON 
ORSX XoFLAGeO 

DECRM (AVAIL »7) DECREMENT NUMBER NOW FREE 
LCca@ 1.0L 

ASO AVAILa? 

TMI SERROR wer OLEW IT 

LDA TSTEMPIST GET RETURN wORDS FOR USER 
BUGXR (XaYoZo0) 

SET BUGBUG41 

LDX XsBuGBUGs DU 

LDX YeBUSRUGS.DU 

LDX ZeBUGBYUGe. DU 

LDX De BUGRUGs DU 

LXL La TSTRAsT RETRIEVE RETURN 

BUGL (TSTRAsT) BUG IT 

SET BUGBUG+4!1 

LDx OsByGhuUGs Du 

Sxl Os TSTRALTY 

LDA TSTEMPILT GET RETURN WORD FOR CALLER 
BUS (TSTEMPy aT) BuG IT 

SET BUGBUG+1 

LDx Os. B8uUGByG.»DU 

STX Os TSTEMPIL eT 

SXL O,TSTEMPIsT 

BUG (TSTEMP2eT) 

SET BUGBUG+] 

LDX OsBUGR!HIGs DU 

STX Os TSTEMP2eT 

SXL Os TSTEMP25T 

TRA Osl RETURN TO CALLER 


DISK RES3 


14? 


600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 


720 
730 
740 


750 
760 


770 
780 


790 


800 
810 


MBR 


QL OGes7=71 


002447 


002450 
002451 
002452 
002453 
0n2454 
002455 
002456 
002457 


02460 
002461 
092462 
002463 


R 


ocaco4 


000027 
000027 
000002 
777777 
777777 
900002 
000006 
777777 


525236 
000002 
cnn027 


000005 


290937 


0892447 


202447 
4470 11 


7550 11 
7220 11 
2340 12 
6900 09 
2360 03 
2350 12 
2110. 24 
6010 00 
002460 
525236 
2200 03 
4400 12 
2240 it 
0540 14 


INPUT/OUTPHT SCHEDULER <= 


TOS MONITOR 


PERTPHERAL MANAGEMENT wae RELF 


4486 NSE CONne 
4487 HEAD R 
4488 * 
4489 * 
4490 * RELP 
4491 * 
4492 * RELP RELEASES A PERIPHERAL UNIT OF A SPECIFIED TYPF, 
4493 * 
4494 * CALL wITH 
4495 * TSX LeRSRELP 
4496 * CALL wITk 
4497 « Ci(J) = JOB NUMRER 
4498 * Civ) = TALOCK ADDRESS 
4499 * C(L) = RETURN ADNRFESS 
4500 * C(AU) @ PTF TO DEVICF READER 
4501 »* C(AL) # DEVICE NUMRER anpRESsS 
4502 * CALLS 
4503 * $CLOSE 
4504 * SNOTIF 
4505 * S$CAUSE 
4506 * OSLOGS 
4507 * O$LONGC 
4508 * O$LNGx 
4509 » RETURNS WITH 
4510 * CiJ) = JOB NUMBER 
45141 * Cc(T) = TALOCK ADDRESS 
4512 * EXITS TO OoL 
4513 * 
4514 * EXITS WITH PERIPHERAL DEALLOCATED. 
4515 * 
4516 RELP BSs 0 ENTRY POINT 
4517 SXL Lo TSTRASAT 
4516 * 
4519 * PERFORM CONSISTANCY CHECKs 
4520 * 
4521 sTA TSTEMPI eT 
4522 LXL Xe TSTEMPI oT 
4523 sZN FLAGsx sHCuLD BE Busy 
4524 TZE $ERROR IT ISN?’T2 
4525 LDA e1eNy 
4526 LDA ALLCoX 
4527 CMK TSJCBoT 
4526 TNZ S$ERROR 
4529 BUGL (ALLCeX) OK» DESTROY IT 
BUG8UG SET BUGBUG41 
LDxX 0eBUGBUGs.DU 
SXL OsALLCoX 
4530 LOX Ze TSTEMPILsT 
4531 AOS AvAlILo? 


4532 * 


SAVE RETURN ADDRESS 


SAVE PAgsED INFORMATION 
GET DEVICE ANDRESS 


sET FOR LOWER HALF COMPARE 
GET ALLOCATED JO3 NUMBER 
CHECK FOR CORRECT J NUMBER 
SHOULD BE THE SAME 


GET PTF TO DEvICe HEADER 
BUMP THE NUMBER NOw FREE 


141 


110 
120 
130 
140 
150 
160 
170 
140 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 


550 
560 
570 


MBR 


END 


END 


O1 D9—~-17=71 
R 

002464 oqnona2 
092465 inoooc 
OF BINARY CARD 
0N2466 002545 
002467 900006 
092470 ono00c! 
0902471 a00005 
002472 oj0000! 
002473 0090005 
092474 goood! 
002475 600004 
002476 777777 
092477 300000 
0n2500 900002 
002501 o0nn01 
002502 0000025 
002503 525237 
002504 ocono0l 
002505 000704 
002506 9000025 
002507 onanco 
092510 000977 
002511 002515 
on2512 anodes 
on25i3 902505 
OF BINARY CARN 
002514 777777 
002515 ocno27 
0n2516 ccooel 
992517 onon25 


590937 INPUT/OUTPUT SCHEDULFR -= 105 MONTTGR 
PERIPHERAL MANAGEMENT w= RELP 
4533 « CHECK IF CLOSE REQUESTFD 
4534 * 
2359 12 4535 LDA FLAGsX 
S1f0 03 4536 CANA RSVESDU 
19800068 
6con 00 4537 THE RELP3 
4536 » 
4539 »* CLOSE REQUESTED = CLOSE 
4540 * 
9540 14 4541 AOS OPER,Z 
002470 4542 DECRM (AVAIL »7) 
33460 07 LCa 1,DL 
6560 14 ASO AVATLa? 
102472 4543 DECRM (AVAIL se?) 
3360 07 LCa 1,DL 
5560 14 ASQ AVAIL eo? 
002474 4544 DECRM (OMAX«7) 
33EN 07 LCQ 150L 
9540 14 ASQ OMAN eZ 
6040 00 4545 TMI $ERROR 
6750 903 4546 ERA CLOSE4¢RSVEs DU 
7550 12 4547 STA FLAGsX 
2230 12 4548 LDX YaFRNoX 
7430 44 4549 STX Yo TSTEMPSoT 
002503 4550 BuGY (FRN»sX) 
525237 BUGRUG SET BUGBUG+41 
2290 03 LDX Os BUGBUGs Du 
7400 12 sTx OsFRN»X 
4551 * 
4552 * CLOSE PERIPHERAL 
4553 * 
002595 4554 RELPL CLOSE (TSTEMP32T) 
70C9 00 TSX Os 3CLOSE 
onco 11 ARG TSTEMP3.T 
02507 4555 CHECK REL P2seSSBZ2eRE_LPIL 
7200 11 LXL OsTSSRW1aT 
3600 03 ANX Os BSSTMKSDU 
6020 00 TZE RELP2 
1080 o3 CMPX 0.8$87,DU 
6000 00 T7E RELP{ 
1nsan069 
7100 00 TRA SERROR 
002515 4556 RELP2 BSS 0 
4557 * SEE WHO HAS IT? 
4558 * 
4559 « SEND RELEASE MESSAGE TO 
4560 * 
2229 114 4561 LDX Xo TETEMPLsT 
2350 12 4562 LDA STATE sX 
7550 11 4563 STA TSTEMP3,T 


PAGE 


GET PERIPHERAL FLAG 
1S IT RESERVED? 


NOs SO CONTINUE 


AND LOG 


BUMP OPER COUNT ONE 


DECREMENT ONCE FOR THE NOW FREE? 


AND AGAIN FOR TRE *CLOSE? 


AND OUR MAX TOO 


a22zPROALEM 

MARK IT CLOSED AND NOT RESERVEN 
RESTORE FLAG wORD 

GEY FRN OF DEVICE 


SAVE FOR CLOSE 
BuG FRN 


CLOSE THE DEVICE 


SUB=MOBULE 


RESTORE TYPE PTR 
GET STATE FOR CAUSE 


142 


580 
590 
600 
610 


620 
630 
640 
650 
660 
670 


680 


690 


700 
710 
720 
730 
740 
750 


760 
770 
780 
790 


800 


810 
820 
830 
840 
850 
860 
870 
BAD 


M3 


END 


AL O9=817=71 


R 
992520 00927 
992521 NHANES 
nd2522 cnaso7 
nn2523 aend22 
NV2524 90690 
992525 sn0n24 
0N2526 001467 
N92527 ocnodoo 
o09253c ¢6¢00005 
092531 900025 
002532 000027 
092533 no0024 
002534 oacnn26 
002535 o00009 
002536 nodside 
092537 000904 
002540 oanno4 
002541 005162 
OF BINARY CARD 
002542 on0005 
002543 5252406 
092544 52524n 
002545 406009 
002546 000027 
0N2547 900002 
002550 000004 
002551 525241 
002552 on00004 
002553 525242 
002554 525242 
an2558 525242 
002556 525242 
002557 5§25243 
092560 525243 
092561 525244 


090937 


7170 99 
1n$00070 
2216 12 
002543 
525240 
2200 03 
2220 03 
902545 


2350 03 
7220 11 
6550 12 
7270 11 
002551 
525241 
2200 o3 
4400 11 
002553 
525242 
2220 03 
2230 03 
2240 03 
2250 n3 
002557 
525243 
2350 03 
2750 07 
002561 
525244 
2360 93 


4564 
4565 
4566 
4567 
4568 
4569 
4570 


4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 


4580 


4581 


4582 


INPUT/OUTPUT SCHEDULER = 


TOS MONITOR 


RESTCRE NEVICE UNIT OTR 
GET NAME 

MASK TO UNIT NUMRER 
MOVE TO AU 

COMMAND3 RELEASE 

SAVE FOR CAUSE 


BRANCH NOPASS,CEMESSXs(TETEMPS,TI so (TSTEMP4eT) 


PERTPHERAL MANAGEMENT a0 RFLP 
LXL ZeTETEMPI,T 
LDA ABBRs?7 
ANA 7oML 
ALS 18 
ORA BSeRELSDU 
STA TSTEMP4,T 
TSX OsTSGETT 
EAX XaDatT 
LDX To TSLINKaX 
LDQ TSTEMP35T 
$T9 TSTFEMP1,X 
LD TSTEMP4,T 
$TQ TETFMP2.X 
EAX Te92X 
FAX OsCSMESS*X 
STX O,TSTRAST 
EAX OsOSNFFST#T 
xED QSXADD+QESTASK 
LDX ToTSLINKsX 
BUGXR (00x) 
BUGRBUG SET BUGBUG+1 
LDX Oe BUGBUGs. DU 
LDX XsBUGBUGs DU 
RELP3 BSS 0 
* 
* FINISH UP 
® 
LDA BusyeDy 
Lxk Xe TSTEMPi eT 
ERSA FLAGsX 
LXh Le TSTRALT 
BuUGL (TETRAST) 
BuGBUG SET BuGBUG+1 
LDx 0s. BUGBUGs DU 
SXbL Os TSTRASAT 
BUGXR (XeVsZeQ) 
BUGSUG SET BUGBUG+44 
LDX ¥,BUGBUG. DU 
Dx YsBucBuGeDuU 
LDX 2eBUGBUG.DU 
LDX Os, BUGBUGs* DU 
BUGA 
BUGSUG SET BUGBUG41 
LDA ByGByGs. Dy 
ORA BUGRUGS,DL 
BuGa 
BUGRUG SET BUGBUG+1 
LUG BUGRUGs. DU 


UNSET THE Busy BIY 
RESTORE PTR TO DEVICE UNTT 


RETRIEVE RETURN 
8yG IT 


BUG REGISTERS 


PACE 


960 
970 
980 
990 
1900 
1010 
1020 
1030 
1040 


1050 


1060 


1070 


MBR 


Ni 09"17=71 


R 


525244 
oco005 


303074 


590937 


2760 07 

7iCO 17 
092564 

7100 09 


INPUT/OUTPUT SCHEQUIER == 19S MONITOR 


PERIPHERAL MANAGEMENT we RELP 


ORA 
4583 TRA 
4544 ExIT 

TRA 
4585 $s DISK 


RUGBUGS.DL 

OsL PETURN To CALLER 
AIT F 

Sent W OR REPLY 

PERIPH 


144 


MBR Nt Q9817=71 


R 
004743 000000 
004744 905550 
END OF BINARY CARD 
004745 005566 
004746 005570 
004747 9095600 
094750 005610 
004751 000000 
094752 ana000 


£90937 


992569 


004743 

004743 
cnno 909 
enao a0 
19800071 
0000 90 
9000 00 
0000 00 
coon oo 
0000 oo 
o0co0 00 

02565 


oooool 
000002 
ooooNns 
nnooo4 
o000N5 


01000 
902000 
nN03000 
094000 
N95000 


INPUT/NUTPUT SCHEUULER == 105 MONITOR CAGE 


4587 
4558 
4589 
4590 
4591 
4592 
4593 
4594 
4595 
4596 
4597 
4598 
4599 
4600 
4601 
4602 
4603 
4604 
4605 
4606 
4607 


4606 
4609 
4610 
4611 
4612 
4613 
4614 
4615 
4616 
4617 
4618 
4619 
4620 
4621 
4622 
4623 
4624 
4625 
4626 
4627 
4628 
4629 
4630 
4631 
4632 


RESOURCE ALLOCATION om PERTPHERAL TYPE TaSLe 


2 2¢@et¢#e #2 & ee ee SE He EB 


TABLE 
TABCP 


TABCR 
TABLP 
TABMT 
TaanPe 


CrRST 
LPST 
MTST 
OPST 


USE Code 
HEAL R 


PERIPHERAL TYPE TALE 


THE PFRIPHERAL TYPE TABLE HAS AN ENTRy FOR EACH 

TYPE oF RESOURCE, THUS THE FNTRY POINTER POINTS TO TRE 
RESOURCE DEVICE HEADER, THE HEANER CONTIANS SUCH INFORMATION 
AS THE TOTAL NUMBER OF DEVICES OF THIS TYPE, THE NUMBER CUR} 
RENTLY AVAILABLE. A POINTER TO THE FIRST DEVICE, ETC, THE 
PERIPHERAL DEVICE ITSELF CONTAINS SUFFICIENT INFORMATION FCR 
ANY OPERATION ON THE PERIPHERAL, 


TABLE OF pERIpHERAL TYPES 


USE CONST 

BSss 0 

ARG 0 O = INVALID 

ARG CPTAS 1 # CARD PUNCH 

ARG CRTAB 2 = CAPD REALTER 

ARG LPTAS 3 = LINE PRINTER 

ARG MTTAS 4 = MAGNETIC TAPE 

ARG OPTAS 5 = OPERATOR®S CONSOLE 
ARG 0 6 = INVALID 

ARG 0 7 2 INVALID 

use PREVIOUS 

EQu TABCP=TABLE TYPE: CARN PUNCH 

EQu TABCR=TABLE TYPE: CARD READER 

EQU TABLP=TABLE TYPE LINE PRINTER 
EQU TABMT=TABLE TYPES MAG TAPE 

EQ TABOP=TARLE TYPE? OPERATOR®S CONSOLE 
COMMUNICATIONS STATES 

HEAD 

EQU RSTyPCP #512 Ce STATE FOR COMMUNICATIONS 
EQU RSTYPCR#512 CR STATE 

EQU RSTYPLP#512 LP STATE 

EQU RSTYPMT#51i2 MY STATE 

EQU R$STYPOP#512 ap STATE 

HEAD R 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


320 
330 
340 
350 
360 
370 
380 
390 
4n0 
410 
420 
430 
440 
450 
469 
470 
480 
490 
$90 
510 
520 
530 
540 
550 
560 


MBR Vt a9|e17"714 3920937 


R 


A02565 


000000 
nonool 
000002 
N00002 
900003 
000004 
900005 
090006 
000007 
N000190 


INPYT/OUTPYT SCREDY! ER o 


4634 
4635 
4636 
4637 
4638 
4639 
4640 
4641 
4642 
4643 
4644 
4645 
4646 
4647 
4648 
4649 
4650 
4651 
4652 
4653 
4654 
4655 
4656 
4657 
4658 
4659 
4660 
4661 
4662 
4663 
4664 
4665 
4666 
4667 
4668 
4669 
4670 
4671 
4672 
4673 


10S MONITOR eave 


RESNURCE ALLOCATION |= PERIPHERAL HEADER TABLE 


*se @ S# @*# #@ 4 8 & D2 & 


USE CODE 
HEAD R 


PERIPHERAL HFADER TABLE 


A DEVICE HEADER IS THE ITEM THAT AN ENTRY IN THE TARLE OF 
PERIPHERAL TYPES POINTS TQ. THE HEADER CONTAINS THE POINTER 
TO THE DEVICES oF A CERTAIN TYPE (teEo LINE PRINTERS )o 

IY ALSO CONTAINS SUCH INFORMATION AS THE CONFIGURATION OF THE 
SYSTEM (MAXIMUM NUMBER OF DEVICES OF A CERTAIN TYPE). 

LASTLY» IT CONTAINS A POINTER TO THE CORRESPONDING QUEUE. 


FORMAT OF DEVICE HEADER 


EQU 0 POINTER TO DEVICE TAALE 

EQu PTR! STATE CORRES, TO RECIPIENT 

EqQu STATE+! (UPPER) ELEMENT SIZE FOR DEVICE 
EQU ELT (LOWER) aCCESSES 

EQU ELT41 MAXIMUM IN SYSTEM 

EQU MAX+1 OUR MAXIMUM 

Equ OMAX41 NUMBER CURRENTLY AVAILABLE (FREE) 
EQU AVAIL +1 NUMBER OPERATOR HOLDS 

EFQU OPER+1 SPARE 

EQU SPARE+1—=PTR DEVICE HEADER LENGTH 


DEVICE HEADER GENERATING MACRO 


MACRO NAME sEL TeACCaMAXsOMAXeAVAIL Ss CPER 

ARG wt 

ZERO $#1S$T20 STATE 

ZERO A203 FLEMENT SIZE/ ACCESSES 
VFD 36/#4 MAX 

vFD 36/45 OuR MAy 

VFD 36/#6 AVAILABLE (FREE) 

VFO 36/487 NUMBER OPERATOR HOLDS 
DEC 0 SPARE 

ENDM DEyHnR 
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580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 


MBR 


END 


END 


O4, O98;7=74 


990937 


R 


105543 
995550 
095559 
905559 


005550 695620 ontn oo 
095551 aninac saenoo 
005552 000006 sotoo4 
995553 qondonoannnl 
095554 onnoocoonnng 
005555 ocanonogntnn 
905556 oanoocoocnonl 
an5557 anntocosocno 
905560 
905560 0654623 soto on 
005561 9on2coc ancodo 
905562 000006 onnn2o 
N05563 onodonosnnnl 
005564 gnasanocnnng 
OF BINARY CARD 10800072 
005565 oo00n0000000D 
995566 ogno0oncootol 
095567 onnoocoonnno 
005570 
005570 005626 6000 oO 
005571 903000 on0000 
005572 000006 9nn004 
005573 oaaoorocnnn2 
005574 9gno000000NnND 
005575 oo000000n0ND 
095576 goodonoonnn2 
005577 onnnonognoon 
NN5600 
005600 005634 onco oo 
005601 on400c cnanono 
005602 000044 sorn24 
005603 ogn00cno0n019 
005604 ogonco0000nND 
095605 ogn00000cn0nD 
905606 ocn00oroontio 
095607 nono0dnosannn 
005610 
095610 905664 6000 on 
005611 005000 cootoo 
005612 0900011 600037 


OF BINARY CARD 19800073 


005613 


cneoocoennnl 


TNPLT/IUTPHUT SCHEDULER == 19S MONITOR 


4675 
4676 
4677 
4678 
4679 
4681 


4682 
4683 


4684 


4685 


4686 


4687 


RESOURCE ALLOCATION we PERTPHERAIL HeADER TABLE 


* * &@ & 


UEVHR 


Cptas 


CRTAB 


LPTAB 


MYTTAB 


OPTAB 


PAGE 


HERE 1S THE LIST OF LEVICE HEANERS IN ALPHAGETICAL ORDER. 


use 
EIGHT 
BSS 
DEVHDe 
ARG 
ZERO 
ZERO 
vFD 
VFD 
VFD 
VFD 
DEC 
DEVHDrR 
ARG 
ZERO 
ZERO 
VFO 
VFO 


VFD 
VFO 
DEC 
DEVHDR 
ARG 
ZERO 
ZERO 
vFD 
VFO 
VFD 
VFD 
DEC 
DEVHOR 
ARG 
ZERO 
ZERO 
vFD 
VFD 
VFD 
vFD 
DEC 
DEyHDR 
ARG 
ZERO 
ZERO 


VFD 


STORE 


0 START OF DEVICE HEADER LIST 


CPa6sBBaPoCPMAXa0s0eCPMAX 
Cp 

$CPST,9 

6e,RBSAP 

S6/CPMAX 

36/0 

36/0 

S6/CPMAX 


0 
CRebshBRDeCRMAX a 02 De CRMAX 
CR 

SCRST29 

6,38RN0 

S6/CRMAX 

36/0 


36/0 
S6/CRMAX 
0 


LPebeBSAPaLPMAXs 0a. CeaLPMAX 
LP 

SLPST29 

6,3$aP 

S6/LPMAY 

36/0 

36/0 

S6/LPMAX 

0 

MT e S6eASRDFBSEAPSMTMAX DOD sMIMAX 
MT 

$MTST29 

36eBSPD4BSAP 

S6/MTMAY 

36/0 

3670 

S6/MTMAX 

0 

OP s9sBSALL eOPMAy a Qo Oe 0PMAYX 
OP 

SoPSTsd 

9,3SALL 


36/0PMAX 
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990 

1000 
4010 
1020 
1030 
1050 
1060 
1070 


1080 


1090 


1100 


1110 


MBR 


OL O9"817=71 590937 


099614 
095615 
095616 
095617 


R 


oa0gonracaqang 
eococrocnera 
eoooengennnt 
onoscnocanng 
(05620 
n90050 
No2565 


INPUT/OUTPUT SCHEODUIER == 


JOS MONITOR 


RESOURCE ALLOCATION w= PFRIPHERAL HEALER TARLE 


VFD 
VFO 
VFO 
DEC 
4666 xDvHR EGU 
4689 DHRLN EQU 
4690 USE 


3670 
36/0 
S6/NPMAY 
q 

* 
*eDEVHR 
PREVIQUS 


PAGE 148 
ENT OF DEVICE HEADER TABLE 1120 
LENGTH OF TARLE 1130 


1140 


MBR OL 09017 —a71 59,937 INPUT/NUTPEYT SCKEUUL ER 2- 19S MONITOR PAGE 149 


R RESOURCE ALLOCATION w= PERIPRKERAL DEVICE TABLE 
902365 4692 USE CODE 1160 
4693 HEAD R 1170 
4694 * 1140 
4695 * 1190 
4696 * PERIPHERAL DEVICF TABLE 1200 
4697 * 1210 
4698 * THERE Is A ONE*70=ONE CORRESPONDENCE BETWEEN A PNEVICE? aND 1220 
4699 * PHYSICAL DEVICE IN THE MACHINE ROOM, TRE DEVICE CONTAINS THE 1230 
4700 * NAME MF THE NEVICEs THE FRN WHEN OPEN, FLAG SITS TELLING ITS 1240 
4701 * CURRENT STATUS» AND IF BUSYs WHO IS RESPONSIRALE> 1250 
4702 * 1260 
4703.* 1270 
4704 * FORMAT OF PERIPHERAL DEVICE 1280 
4705 * 1290 
4706 * 1300 
nooono 4707 AS3BR EQU 0 FOUR CHARACTER ASCII ABBREVIATION FOR PERIPHERAL 
noodol 4708 FRN EQU ABBR! (UPPER) FRN OF PERIPHERAL WHEN OPEN 1320 
no0002 4709 FLAG EQu FRN#1 (UPPER) FLAG ByTS FoR THE PERI] PHFRAL 1330 
000002 4710 ALLC EQU FLAG (LOWFR) JOR NUMBER USING IT WHEN BUSY 1340 
noo003 4711 DEVLN EqQu ALLC+1-ABBR DEVICE ENTRY LENGTH 1350 
4712 * 1360 
4713 * 1370 
4714 * BITS FOR FLAG 1360 
4715 * 1390 
400000 4716 BUSY EQU BSSIGN ON IF NOT ALLOCATASLE 1400 
200000 4717 CLOSE EQU BUSY/2 ON IF CLOSED 1410 
100000 4718 RSVE EOU CLOSE/2 ON IF OPERATOR REQUESTED A CLOSE 1420 
4719 * 1430 
4720 * 1440 
4721 * DEVICE GENERATING MACRO 1450 
4722 * 1460 
4723 DEVICE MACRO NAME 1470 
4724 UASCI let 1480 
4725 ARG 0 1490 
4726 ZERO BUSYs¢CLOSE 20 1500 
4727 ENDM DEVICE 1510 
4728 * 1820 
4729 * 1530 
4730 DEvrT MACRO NAMEs (LIST OF DEVICE NUMBERS) 1540 
4731 #1 BSS 0 1550 
4732 IDRP #2 1560 
4733 SET SET #2 1570 
4734 DEVICE #1i#2 1580 
4735 ITDRP 1590 
4736 HIMAX SET SET+1 1600 


4737 ENDM DEVT 1610 


MBR 


END 


Q1 O9-17471 390937 


0905620 
n05621 
095622 


005623 
005624 
005625 


005626 
095627 
005630 


N05631 
095632 
095633 


005634 
005635 
005636 


095637 


R 


0905620 
005620 
005620 
005629 
005620 
no0n00 
05620 
103129060069 
o0onoad0 onto 00 
6009059 990900 
nogeol 
005623 
0905623 
000000 
0956238 
103122060060 
oq0ced sana a0 
600000 ocotaoo 
o09n0n1 
005626 
105626 
000000 
005626 
114129060060 
000000 onto 900 
600009 soroon0 
oo0o0o0l1 
005631 
114120060061 
000009 conn oo 
600000 ancooo0 
anno02 
005634 
105634 
no0000 
005634 
115124060060 
0000G0 000 n0 
60n000 ontNON 
090001 
005637 
115124060964 


OF BINARY CARD 10800074 


095640 
090564] 


600000 ¢n50 an 
600000 sotnoa 


INPUT/OUTPUT SCHEDULER == 10S MONITOR 


4739 
4740 


4741 
4742 
4743 
4744 
4745 
47 46 


4747 


4748 


4749 


4750 


RESOURCE ALLOCATION a= PERIPHERAL NEVICE TABLE 


s+ 28 & 


PERT 
DEvT8 


cP 
SET 


CPMAX 


CR 
SET 


CRMAX 


LP 
SET 


SET 


SET 


HERE 15S 


USE 
ess 
BSS 
DEVT 
BSS 
SET 
DEVICE 
UASCI 
ARG 
ZERO 
SET 
DEVT 
BSS 
SET 
DEVICE 
UASCI 
ARG 
ZERO 
SET 
DEVT 
BSS 
SET 
DEVICE 
UASC!I 
ARG 
ZERO 
SET 
DEVICE 
UASCI 
ARG 
ZERO 
SET 
DEVT 
BSS 
SET 
DEVICE 
UASC] 
ARG 
ZERO 
SET 
DEVICE 
UASCI 


ARG 
ZERO 


THE TARLE OF DFVICES IN ALPHABETICAL ORDER, 


STORE 

0 START OF PERIPHERAL TABLE 
0 START OF DEVICE TASLE 
CP,(00) CARD PUNCHES 

tt) 

Go 

CP00 

1.CPO0 

0 


BUSY+#CLOSEs0 

SET+¢! 

CrRe(90) CARL READERS 
0 

00 

Croo 

1,CRO00 

0 


ByuSY+CLOses0 
SET+¢1 
rr oneost LINE PRINTERS 


00 
LPOO 
1,LP00 
0 


BUSY*CLOSEs0 


BUSY+¢CLOSEs0 
SET+4 
pet O a Obs Card sanerOrreero”) MAG TAPES 


00 

MTO00 

1.MT00 

0) 
BUSY+¢CLOSEs0 
01 

MTOL 

1eMTO1 


0 
BuSY+CLosEe0 


150 


1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 


1720 


1730 


1740 


MBR 


END 


OL O9—817=74 390937 
P 
nongn2 
105642 
005642 115124060062 
005643 onndoc garo on 
005644 606060 gntnnn 
090903 
005645 
005645 115124069763 
095646 coonor satan o9 
005647 645nNOr SNNNODN 
000004 
ON5650 
NO5650 115124060064 
005651 coo00n onon oo 
0N5652 60G000% onnnagn 
n90005 
005653 
005653 115124069065 
005654 000000 nto oo 
095655 60000C notnda 
090006 
0105656 
005656 115124060066 
005657 o00000 O00 00 
005660 60N000 cnoonoo 
000007 
; 005661 
005661 115124060067 
005662 oco000e cote on 
095663 600000 conono 
000010 
N05664 
005664 
nocoo00 
005664 
005664 11712c0060060 
005665 o00000 9000 00 


OF BINARY CARD 19800075 
005666 600900N coonoN 


090001 
090047 
n90015 


05665 
N92565 


TINPUT/NUTPHT SCHEUUL ER -= INS MONITOR 


4751 


4752 
4753 
4754 
4755 
4756 
4757 


RESOURCE ALLOCATION em PERIPHERAL TEVICE TARLE 


SET 


SET 


SET 


SET 


SET 


MTMAX 


oP 
SET 


SET 
DEVICE 
UASCI 
ARG 
ZERO 
SET 
CEVICE 
UASCI 
ARG 
ZERO 


DEVICE 
UASCI 
ARG 
ZERO 
SET 
DEVICE 
UASCI 
ARG 
ZERO 
SET 
DEVT 
BSS 
SET 
DEVICE 
UASC] 
ARG 


ZERO 


SET 
SET 


EQU 


EGU 
USE 
DISK 


02 

MT12 

1,”TO2 

0 
RUSY#+CLOSEs0 
03 

MTO3 

124793 

0 


BUSY+CLOSEs0 
04 

MTO4 

1,MTO4 

0 


BUS y+CLOSEs0 


BUSY+CLOSEs9 
06 

M796 

1oMT06 

0 
BUSY+CLOSEs0 


BUSYs+CLOSE20 
SET+1 
OCP,.(00) 

0 

00 

OP0O 

1.9P00 

0 


OPERATOR*®S CONSOLE 


BUSY sCLOSEs0 
SET+1 

woPERT 
TT/DEVLN 


PERT LENGTH 
NUMBER OF ENTRIES 
OP+F RN OP FRN 
PREVIOUS 

SCHED 


PACE 


1750 


1760 
1770 
1780 
1790 
1800 
1410 


0N2565 
002566 
002567 
092570 
002571 
002572 


092573 


0n2574 


005240 
002575 
005220 
902575 
005260 
902575 


901477 


003074 


092545 


92565 
6250 an 
7070 OO 
6250 OO 
7070 00 
6250 00 
7070 00 

N92573 
70CO0 a0 

002574 
7100 90 


INPUT/OUTPUT SCHEUUIER == 105 MONITLR PAGE 152 


4759 
4760 
4761 
&762 
4763 
4764 
4765 
4766 
4767 
4768 
4769 
4770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 
4778 
4779 
4780 
4784 
4782 
4783 
4784 
4785 
4786 


4787 


4788 


SCHEDULER == MAIN 


2@eees # Be ee ee Re Se Re He SH 


DM 
x 
m 
f=] 


“Sw 


USE Cone 110 

HEAD R 120 

130 

140 

MAIN 150 

160 

THIS 16 THE sCHEDULER FOR THE ENTIRE MONITOR JOB=RIN SYSTEMS. 170 

IT CHECKS THE IMPUT QUEUE LISTS FOR POSSIBLE JNB INITIATION, 180 

TO UO THISs IT POINTS TO A QUEUE LIST AND CALLS THE RUIN 190 

PART MF THE SCHENULERe. RUN WILL TRY TO START EVERY WAITING 200 

JO8 On THE SPECIFIED GUEUVE LIST. so MAIN MERELY POINTS TO 210 

LISTe AND THE SURROUTINES DO THE REST, 220 

230 

CURRENTLY THERE ARE ONLY TWO INPUT QUEVE LISTS 240 

QSINP2 -= JOBS WHICH ARE SHORT PRINT JOBS, 260 

Q$SINP3 == JOBS WHICH ARE MEDTUM PRINTER JOBS (NOT IMPLEMENTED) 

280 

THIS 1S AN ASYNCHRONOUS TASK 290 

300 

BSS 0 310 

EAX QNsAKINPQ POINT To SHORT PRINT JOB QUEUE LIST 320 

TSX LsSKEDR RUN °EM 330 

EAX QeASINPL POINT TO ALL OTHER JOB QUEUE LIST 340 

TSX LeSKEDR LET "EM GO.» TON 350 

FAX QeASINES POINT TO MEDIUM PRINT JO8 QUEUE LIST 360 

TSX LeSKEDR LET HER RIP, 370 

RELT DONEs FELEASE TCA 380 
TSX OsTSRELT 

EXIT POOF. 390 

TRA SEXIT 
DISK SCHEDULE 400 


MOR 


O01 O9817=71 


002575 
002576 


002577 
002600 
002601 
002602 


002603 
002604 
002605 
002606 
002607 


fs) 


ogco02s 
090025 


0no0001 
onocot 
oc2724 
ooacca 


o0nder 
o000g0c0 
777777 
nn0020 
777774 


69-937 


002575 


02575 


4479 
7450 


6200 
inoo 
6000 
6200 


002603 


7400 
2200 
6000 
4460 
6200 


11 
it 


15 
15 
00 
15 


11 
10 
00 
11 
10 


INPUT/OUTPUT SCHEDU, ER == 165 MONITOR 


4790 
4791 
4792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 
4800 
4801 
4802 
4803 
4804 
4805 
4806 
4807 
4868 
4809 
4810 
48i1 
4812 
48138 
4814 
4815 
43816 
4817 
4818 
4819 
4820 
4821 
4822 
4823 
4824 
4825 
4826 
4827 
4828 
4a29 
4830 
4831 
4832 
4833 
4834 
4835 
4836 
4837 
4838 
4839 


SCHEDULER = RIN 


me #+=*#etehe #e &£e © ee 8 He He Fe He Ee Hee Se HEH HH eH He He SE 


KENR 


SKDRO 


SKRN ef 


USE 
HE AY 


CODE 
R 


RUN 


THIS SUBROUTINE CHECKS A oPECIFIED QUuUEVE*=LIST TO SEF IF 


ANY OF TRE WAITING JOBS CAN HAVE ALL OF THEIR RESOURCE RFQUESTS 
SATISFIED. IF SOs THEN THAT JOR IS REMOVEN FROM THE LIST aNn 


PLACED ON THE OS$TASK QUEUE IN ORDER TO RUN.’ 


ALL JNBS ARE GNE=STEP PROCESSES, THIS MEANS THAT THE JORS 
CONSIST OF A SINGLE ACTIVITY. THUS IN ORDER TC AVOID DEaDe 


LOCK SITUATIONS, 
A JOB 1S TON STARTS 


CALL wITH 


CALL HY 


RETURNS 
RETURNS 


USES 


BSS 
SXL 
STX 


IS THIS 


EAX 
CMPX 
TZE 
EAX 
BSS 
STX 
LDx 
T7E 
SXL 
EAX 


CixTy 2 TCR 


ALL RESOURCES aRE 


C(xJ) = JCB (PHONY) 


TSX LeRSSKEOR 
Ool 

WITH 

C(xtT) = TC8 


TEMPS (UPPER) 
TEMPS (LOWER) 


QADDRESS 
RETURN ADNRESS 


TEMP4 PTR TO NEXT RESOURCE NEED 

TEMPS CURRENT NEED 

TEMP6 COUNTER OF CURRENT NEED 

TEMPS (UPPER) PTR TO PREDECESSOR (AQSLINK) 


TEMP& (LOWER) 


0 
LoTSTEMP3sT 
Qe T8TEMp3eT 


LIST EMPTY? 


OrQSFIRST+190 
Os ISLAST2O 
SKDRX 
OsQSFrRsTed 

8) 

Os TSTEMPB8aT 
02020 

SERROR 

Os TETEMPSsT 
OssQASOFFSTs9 


PTR TO CURRENT (OS0FFST) 


ENTRY POINT 
SAVE RETURN ADORESS 
SAVE PTR To QUEVEPLIST 


ADMRESS OF FIRST ELEMENT 
DOES LAST POINT TO IT? 


IF SOs. EXIT 
GET PTR TO WHAT 1S To RE PREDECESSAR 


SAVE IT FOR RE@LINKING 
NFFSET PTR TN BLOCK 
w#eaxPROBLEM 

SAVE PTR TO CURRENT SLOCK 
RELATE TO REGINNING 


ALLOCATED COLLECTIVELY WHEN 
OTHERWISE THE JOB MUST WarT TILL ALL HIS 
REQUESTS FOR SYSTEM RESOURCES CaN RE SATISFIED SIMULTANENUSLY. 


153 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
4n0 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 


MBR 


END 


END 


91 O099¢17=71 


R 


OF BINARY CART 
ON2616 900006 
O02611 06913 
n02612 ooone4 
002613 ofno00c 
002614 902645 
092615 104743 
002616 777777 
002617 nnanor 
0092620) 6777777 
092621 900003 
092622 902624 
092623 777777 
092624 902625 
092625 777777 
002626 7192735 
002627 9092735 
002630 002741 
0N2631 002735 
002632 777777 
002633 777777 
002634 777777 
092635 acnooo 
OF BINARY CARD 
092636 90n0024 
002637 102612 
092640 000004 
002641 onnoo! 
002642 002724 
092643 000003 
002644 062603 
092645 603064 
092646 000007 
092647 onnnon 
002650 000022 
002651 aganin 
092652 nanoo4 
002653 ncooG4 
0n2654 annnin 
on2655 annois 


094937 


INSN9076 


7260 
6230 
7430 
2240 
6040 
2220 
6090 
2350 
3750 
1150 
6000 
6030 
7100 
7100 
7100 
7100 
71090 
71C0 
7100 
7100 
7100 


192635 


6230 


190890077 


92350 
7100 


192645 


7070 
4420 
6350 
7710 
2360 
7360 
7730 
7560 
623n 


19 


ei) 


05 


it 
00 


00 


4840 
4841 
4842 


4843 
4844 
4845 
4846 
4847 
4848 
4849 
4850 
4851 
4852 
4853 
4854 
4855 
4856 
4857 
4856 
4859 
4860 
4861 
4862 
4863 
4864 
4865 


4866 
4867 
4868 
4869 
4870 
4871 
4872 
4873 
4874 
4875 
4876 
4877 
4878 
4879 
4880 
4881 
4882 
4883 
4884 
4885 
4886 
4887 


SkDrR1 


SKDR2 


SKDRI 


SCHFOULER f= BIN 


CHECK 


ex 
EAX 
STX 
LDX 
TMI 
LDX 
TZE 
LDA 
ANA 
CMPA 
TZE 
TRC 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
BSS 
EAX 


ADLX 
TRA 
BSS 
EAX 
CMPX 
TZE 
EAX 


TRA 


INPUT/GUTPUT SCKEDULER == 195 MONITTOR 


JeTh$IC9820 
Y,JSRES.J 
Ya TETEMP4aT 
Za Ia 
SKDRA4 

Xe TASLES? 
SERROAR 
OsY 

=12DL 
MAXX 

#42 
SERROR 
*+157 
SERROR 
SCPCK 
SCRCK 
SLPCK 
S4TCK 
SERROR 
SERROR 
SERROR 

6 

Yo Oo AL 


Ya TSTEMP4aT 
SKDR1 

0 
Y,QSOFFST,O 
YaQSLASTo@ 
SKDRY 
OsO8,_INKSO 


SKDRO 


ALLOCATE RESOURCES 


BSS 
TSX 
SXL 
EAA 
ARL 
LDa 
Q@LS 
LRL 
STaQ 
EAX 


0 
La» JSJNUMR 
Xe ISICS oJ 
0.x 

138 
JSMESS, 5 
4 


4 


JSMESS,J 
Ye JISPRES.J 


GET PTR +O ASSOCIATED JOFI NESCRIPryCR 


PAGE 


IF RESOURCE REQUIREMENTS CAN BF SAT]SFYED 


GET PTR TO PESNURCE REQUEST BLOCK 


SAVE IT 


GET TYPE OF NEXT RESOURCE REQUESTER 
END OF LYIST==RUN THIS J08 
GET PTR TO DEVICE HEADFR 


*aePRORLEM 


GET NUMBER REQUIRED 
MASK TO NUMBER ONLY 
TEST AGAINST MAX 


AK 


aaeTHAT®S SOMERODY ELSE 
BRANCH THR'I TABLE ON TYPE 


w ILLEGAL 


CARN PUNCH 
CARD REANER 
LINE PRINTER 


MAG TAPE 


INVALID 
a INVALID 


NO UR GUN O 
eee e ow 


OP CONSOLE 


(ALLOW NO ONE TO AWN 


RETURN HERE IF RESOURCES AVAILABLE 


MOVE COUNT TO Y 


ADD IN OLD POINTER 


AND LOOP 


RETURN HERE ITF THIS JOB CAN*T START 
GET OFFSET PTR TO THIS BLOCK 


1S IT THE LAST? 


IF SQM. EXIT 


OTHERWISE GET PTR TO NEXT 


GET NEXT BLOCK 


START THIS JOR 


GET A JOB NUMBER 
SAVE AS STATE FOR COMMIINICATIONS 


MOVE JOR NUMBER 


INTO AL RIGHT JUSTYIFTED 


GET MESSAGE 


LEFT JusriFIeED 


MOVE INTO QU 


COMPLETE MESSAGE» 


SAVE 


GET POINTER TO RESOURCE NEED BLOCK 


IT) 


154 


MBR 


END 


CND 


AL O9—817—=71 


R 
092656 947°0924 
092657 007900 
0N2660 0f2707 
092661 o06N23 
092662 777777 
992663 777777 
OF BINARY CAR? 
002664 oaognon 
002665 9090922 
102666 onnn2s 
092667 909267Fr 
992670 777777 
002671 002751 
002672 072751 
002673 062753 
002674 902751 
002675 777777 
002676 777777 
002677 777777 
092700 o00024 
092701 on00or 
002702 oncoo! 
002703 oooned4 
002704 o00020 
002705 002666 
002706 002657 
092707 goo02c 
092710 777777 
002711 o0002¢ 
OF BINARY CARD 
002712 90000c 
002713 005162 
002714 900025 
002715 000001 
002716 002722 
002717 gononct 
092720 onooci 


59e9T7 INPUT/NUTPUT SCHEJULER |== TOS MONITOR PAGE 


SCHEDULER == RUN 


7439 11 4888 STX Ye TSTEMP4,T SAVE 
4889 * 
092657 4890 SKNRS #8SS 0 
2350 13 4891 LDA OsY GET NEXT RESOURC REQUIREMENT 
6n4n no 4892 TMI SKDRS TEST FOR DONE 
7550 11 4893 STA TETEMPSeT SAVE IT 
375N 97 4894 ANA “1.0L MASK TO COUNT ONLY 
Barn an 4895 TZE SERROR eee SLEwlT 
1nS007a 
5310 00 4896 NEG COMPLEMENT 
7550 11 4897 STA TSTEMP4S5LT SAVE AS LOOP COUNTER 
235r 11 4898 SkDR6 LDA TSTEMPS.T GET BACK TYPE 
71490 o1 4899 TRA *+teAU BRANCH ON TYPE 
7100 49 4900 TRA $ERROR 0 # ILLEGAL 
7100 90 49n1 TRA SCPAL 1 = CARD PUNCH 
7100 00 4962 TRA SCRAL 2 =» CARD READER 
7100 00 4963 TRA SLPAL 3 = LINE PRINTER 
710M oOo 4964 TRA SMTAL 4 = MAG TAPE 
7100 00 4995 TRA SERROAR 5S = OP CONSOLE (ALLOW NO ONE TON AWN IT) 
7100 00 4906 TRA SERROR 6 » INVALID 
7100 GO 4907 TRA SERROR 7 = INVALID 
n02700 4908 SKDR7Z BSS 0 
2230 11 4909 LDX Yea TSTEMP4aT RESTORE RESOURCE PTR 
7550 13 4910 STA Oey SAVE ALLOCATED RESnuURCE IN JCB 
c230 03 4911 ADLX YelsduU BUMP ONE 
7430 14 4912 STX Ya TSTEMP4eT SAVE 
1540 it 4913 AOS TSTEMP4SST RUMP LOOP COUNTER 
6040 00 4914 TMI SKDR6 LOOP IF MORE DEVICES OF THIS TYPF NEEDED 
7100 oO 4915 TRA SKDRS OTHERWISE GET NEXT TYPE 
4916 * 
4917 * RESOURCES ALLOCATEDs REMOVE FROM LIST 
4918 * 
002707 4919 SKDR& BSS 0 
7200 11 4920 LXL Oe TSTEMPBeT GET BACK PTR TN CURRENT 3LOCK 
2220 10 4921 LDX Xs@QSOCFFST+Q$LINK,C "PTR TO SUCCESSOR 
22350 11 4922 LDx Ya TSTEMPBsT GET BACK PTR TN PREDECESSOR 
10800079 
74209 13 4923 STX Xa0eyY REMOVE FROM LIST 
4924 * 
4925 * ADD JNB TO OS$TASK QUEUE 
4926 * 
7170 0 4927 XED OSXANDsQSTASK PLACE ON QSTASK 
4928 * 
4929 * TEST FOR DONE 
4930 * 
2250 11 4931 LDX Gs TSTEMP3eaT RESTORE QADDRESS 
1000 15 4932 CMPX O,O$LASTsO TEST FOR LAST 
6010 90 4933 TNZ SKDRO NOPE» ConTINuUE 
6230 13 4934 EAX YorQ&LINK+QOSOFFSTSY SUPDATE 
7430 15 4935 STX Ye OSLASTS9 O$LAST PTR 


155 


MBR 


092721 


002722 
a02723 


One724 
002725 
002726 
002727 
002730 


002731 
0N2732 
002733 
102734 


OL O9"17=71 


F 


PITTI? 
992606 


526245 
525245 
525245 
525245 
000025 


525246 
60025 
ongo2s 
oggo0gn 


690937 


7100 00 


002722 
22ta 19 
7109 00 


092724 
092724 
525245 
2220 03 
2230 03 
2240 03 
2250 O83 
7270 11 
N02731 
525246 
2200 o3 
7400 ii 
4400 il 
7100 17 


INPUT/NUTPUT SCkKEDULER == 10S MONITOR PAGE 


4936 
4937 
4934 
4939 
4940 
4941 
4942 
4943 
4944 
4945 
4946 
4947 


4948 
4949 


4950 
4951 


SCHENQULER == &IIN 


SKDRYX 


BUGBUG 


BUGBUG 


aSw 


TRA SKDRx ANT EXIT 

FUDGE IN ORME 1A LOOP THe Lisy AFTER REMNVAL 
Bess 0 

Lox OstQKOFFST4+9OELINKSO #MOVE TO NEXT BLOCK 
TRA SKRO.1 AND LOOP WITHOUT DISTURBING PREDECESSOR 
DONEs 8UG REGISTERSs AND RETURN 

BSS 0 

BUGXR (XeVYsZo0) BUG REGISTERS 

SET BUGRBUG+1 

LDX XsBUGRUGs DU 

LDX Ye RUGBIIGs DU 

LDX ZeRUGBUGs DU 

LDX Qs BUGBUGs DU 

LXL Leo TSTEMPSeT RETRIEVE RETURN ADDRESS 
BUG (TSTEMP3eT) BUG IT (BOTH HALVES) 
SET BUGBUG+1 

LDX Oe ByGbiyGeDu 

STX OsTSTEMPSsT 

SXL Os TSTEMPSaT 

TRA Oel RETURN TO CALLER 

DISK SKEDCK 


1690 
1700 


1710 
1720 


MBR OL Ogeiz7e=7l 392937 INPUT/OUTPIIT SCHEDULER «= 168 MONITOR PAGE 157 


R SCHENULER == CHECK 

102785 4953 USE CONE 110 

4954 HEAD R 120 

4955 * 130 

4956 * 140 

4957 * CHECK 150 

4958 * 160 

4959 * THESE ROUTINES DETERMINE WHETHER OR NOT ENOUGH RESOURCES 170 

4960 * OF A SPECIFIC TYPE ARE AVAILABLE, THE DECISION IS BaSED ON 180 

4961 * URVILOUSLY THE NUMBER OF FREE UNITS OF THE REQUESTED TYPE and 190 

4962 * ON A *JOHN HaMM® POLICY RULE (SUBJECT TC CHANGE WITHOUT 200 

4963 * NOTIFICATION), IF THE REQUEST CAN BE SATIFIEDs, THEN THE 210 

4964 * ROUTINES EXIT To RESSKDR2$ OTHERWISE RSSKDRS. 220 

4965 * 230 

4966 * ENTER wITH 240 

4967 * C(A) = NUMBER REQUESTED 250 

4968 * C(X) = PTR TO DEVICE HEADER OF TYPE REQUESTED 260 

4969 * RETURNS 270 

4970 * R$SKDRO IF SATIFIABLE 280 

4971 * RSSKDR3 OTHERWISE 290 

4972 * 300 

002735 4973 SCPCK B85 0 CaRD PUNCH CHECK 310 

192735 4974 SCRCK BSS 0 CARD READER CHECK 320 

002735 4975 SMTCK BSS 0 MAG TAPE CHECK 330 

002735 condos 1159 12 4976 CMPA AVATL xX ARE THAT MANY AVAILABLE? 340 
002736 902635 6000 oo 4977 T7E SKDR2 YESs NO POLICY RULE TO CHECK HERE 350 

CND OF BINARY CARD I1NSN0080 

002737 0092635 604 OO 4978 TMI SKDR2 YESs DIYvTo 360 
002740 0N2640 7100 no 4979 TRA SKDR3 NO» SO SOLLY PREASE 370 
4980 * 380 

4981 * 390 

4982 * YE OLNE LINE PRINTERS 400 

4983 * 410 

4984 * CURRENT IMPLEMENTED ALGORITHM3 420 

4985 * GIVEN N PRINTERS» WHERE Nooo THEN WEPLL POTENTIALLY ALLOW Ney 430 

4986 »« LONG JOBS (SEE RSLJOBS) TNO RUN SIMULTANENUSLY, IF Nel, THEN 440 

4987 * WE®LL RUN SHORT, LONGs AND MEDIUM JOBS IN THAT ORDER, 450 

4988 * 460 

002741 4989 SLPCK BSS 0 LINE PRINTER CHECK 470 

0902741 000002 1150 07 4990 CMPA 2.0L ALLOW ONLY ONE PRINTER PER JOB 480 
002742 777777 6030 0n0 4991 TRC SERROR #e*#PROBLEM 490 
002743 of0004 2360 12 4992 LDa OMAX»x GET NUMBER OF PRINTERS WE OWN 500 
002744 oconod2 1760 07 4993 $Ba 2eDL PART OF POLICY RULE §10 
002745 062735 6n40 n0 4994 TMI SCPCK ALL RIGHT TO RUN LONG JOB 520 
002746 005674 1160 950 4995 CMPQ LJOBS HAVE 2 OR MORE PRINTERS» RUN LJOR2 530 
002747 0627640 6049 on 4996 TMI SKDR3 HAVE OMAX@1 LONG JOBS ALREADY GOING $40 


002750 002735 7100 oo 4997 TRA SCPCK 0K TO TRY TO RUN A LONG JOB 550 


MB 


END 


OL Oget7e71 090937 
R 
no275)1 
N02751 
902751 
NN2751 
No2751 
0N2751 002377 7070 on 
002752 1027060 7160 no 
No2753 
002753 cnn012 2360 16 
002754 9000903 222n 16 
092755 000001 3629 O38 
002756 002763 71€N 12 
002757 902751 60CN oO 
002760 002751 6020 n9 
002761 005674 6540 oo 
092762 002751 710 oO 
002763 
002763 9005672 1160 69 
OF BINARY CARD 19800081 
002764 005673 1160 ao 
095667 
005670 
090567¢ oondon00n23s 
005671 ocooonoco254 
095672 oononocooi751 
095673 090000002196 
005674 coonocacotno 
N02765 


INPUT/OUTPUT SCHELULER == 


4999 
5000 
Scol 
SOn2 
5003 
5004 
5005 
50c6 
5007 
soca 
5069 
5610 
Soii 
5012 
S013 


5014 
5015 
5016 
5017 
5018 
5619 
5020 
5021 
5022 
5023 
5024 
5025 
5026 
5027 
5028 
5029 


5030 
5031! 
5032 
5033 
5034 
5035 
5036 
5037 
5038 
5039 
5040 
5041 


SCHEDULER = ALLOCATE 


2eee#we#sFt 


LPTB1L 


USE 
HEA 


PRINTFR TYPE, THEN 


BUMPED, 


570 
5&0 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 


720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 


880 
890 
900 
910 
920 
930 
940 
950 
960 


980 


16S MONITOR PAGE 
CONE 
R 
ALLOCATE 
THIS POUTINE ALLOCATES a SPECIFIC DEVICE TYPF, IF aA LONG 
THE LONG PRINTER JOB COUNTER °LJaB® Is 
0 CARD PUNCH ALLOCATE 
0 CARD READER ALLOCATE 
0 MAG TAPE ALLOCATE 
A GEY THE PERIPHERAL 
LeRSGETP 
SKDR7 AND RETURN WITH IT ALLOCATED 
0 LINE PRINTER ALLOCATE 
JESI7EsJ GET SIZE OF THE JOB 
Xe JSTYPE oJ GET THE QUTPUT TYPE (512 OR 320 FORMAT) 
Xa STYPMK o DL! MASK TO TYPE 
LPTBieXx TEST FOR LONG JOB 
SMTAL ExIT IF not A LONG PRINTER JoB 
SMTAL EXIT IF NOT A LONG PRINTER JOB 
LJNSs OTHERWISE RUMP LONG JOB COUNTER 
SMTAL USE STANDARD ROUTINE 
0 PRINTER DECISION TABLE 
M3512 NECISION IF 542 FORMAT 
Me329 DECISION IF 320 FORMAT 
STORE RUN TIME PATCHABLE 
36/5900/3241 S000 OR LESS IS A SHORT JO8 
36/55090/3241 DITTO FoR 320 FORMAT 
S6/32000/3241 32000 1S TOPS FOR MEDIUM JOB 
36/35090/32+44 DITTO FoR 320 FORMAT 
6 NUMBER OF LONG PRINTER JOBS CURRENTLY ACTIVE 
PREVIOUS 
SCRATCH 


990 


MBR 


END 


O1 O9"17=71 
R 

002765 900736 
002766 0900027 
002767 occoco 
002770 000077 
092771 002777 
002772 006003 
002773 062765 
002774 000013 
092775 0902765 
002776 777777 
02777 000026 
008000 000032 
ONS00!1 003037 
OF BINARY CARD 
ooso002 oocion 
ooS003 001152 
003004 oo0025 
003005 900536 
003006 000027 
003007 000025 
005010 000001 
003011 oacodo 


Nd2765 


092765 
002765 
7090 70 
cano if 
N02767 
7200 11 
3600 03 
60cm a0 
1000 O38 
6000 a0 
1000 03 
6n0n oo 
7100 n0 
002777 
2220 11 
2349 12 
6010 oOo 
03002 
1oShdnae2 
2350 07 
7070 a0 
7550 11 
003005 
7000 oO 
ooeo 14 
coco 11 
oonn 03 
cooo os: 
Qo3012 


INPUT/OUTPUT SCHEUULER <= 


5043 
5044 
3045 
5046 
5047 
5648 
5049 
5050 
5051 
5052 
5053 
5054 
5055 
5056 
5057 
5058 
5059 
5060 
5061 
5062 
5063 
5064 
5065 


5066 


5067 
5068 
5069 
5070 
5071 


5072 
5073 


5074 


1GS MONITOR PAGE 


UTILITY #=— SCRATCH INPUT QUEUE FILE 


*2 © #@£ He 8 


#2 nee eetneteeweteteee 


SCR 


SCR1i 


SCR2 


USE CODE 
HEA) R 


SCRATCH INPUT QUEUE FILE 


THIS IS AN ASYNCHRONCUS TASK DESIGNER TO SCRATCH AN [INPUT 
QUEVE FILE (E.G. PRINT@FILE°QUFUF). PASSED THE FRN OF THE 
wutuc rilEs, IT DETERMINES IF THE READ POINTER IS AT THE FND 
OF THE FILE. IF SQ» aND THE BUSY COUNT IS ZERO» THEN THe 
SCRATCH Ig ALLOWED. OTHERWISE THE READ POINTER Is RESET AND 
THE TaSK IS TERMINATED, 


ENTER BY 
CREATED TASK RSSCR 

ENTER WITH 
C(TSTEMP1.T) 
C(TSTEMP2sT) 


z FRN OF INPUT QUEUE FILE 
= PTR TNO NCR 


RETURNS 
TERMINATES == ASYNCHRONOUS TASK 
88S 0 
LOCK (TSTEMPZsT) LOCK THE FILE 
TSX Os$LOCK 
ARG TSTEMP1.T 
CHECK SCRLsRBSR72SCReRSLOCK SCR 
LXL Os TESRWiaT 
ANX O,BSSTMKsDU 
TZE SCR1i 
CMPX 028887.eDU 
TZE SCR 
CMPX OsBSLOCK.DU 
T7E SCR 
TRA S$ERROR 
BSS O FILE LOCKED 
LDX Xo TSTEMP2eT GET PTR TO NCB 
SZN CSRUSYsx TEST COUNT 
TNZ SCR5 BuSYs FIT 
GETC (SORFSZ,DL) GET A WORKING BUFFER 
LDA SQBFSZ.DL 
TSX LeRSGETC 
STA TSTEMP3.T SAVE FOR READ 
READ (TSTEMPe TI oa (TESTEMPSeoT) ol(teDUIs(Qe20U) READ 
TSX O,SREAD 
ARG TSTEMP1.T 
ARG TSTEMP3,T 
ARG 1sDU 
ARG 0.Dy 
CHECK SCR7,63B70SCR2eBSEOFsSCRI 


159 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 


340 


420 


MBR 


END 


o1 09-17-71 
R 

onsol2 nagnoac 
003013 906077 
003014 ansns1 
anso015 ncono3 
003016 ansao05 
003017 4000016 
ON3020 00302? 
O93021 777777 
003022 onn612 
003023 4a0n027 
003024 oanc00n 
003025 oo000c6 
003026 00077 
003027 903033 
OF BINARY CARD 
on3030 ogd003 
003031 90302? 
9N3032 777777 
003033 100026 
003034 000034 
003035 9090025 
003036 001252 
003037 9000746 
0030490 000027 
003041 onn000 
0038042 0009077 
003043 903047 
093044 qgna0o03 
003045 003037 
003046 777777 
003047 901477 
093050 003074 
003051 oancoo0n 
003052 093022 


090937 


72onn 44 
3600 03 
600 00 
nan o3 
6000 90 
1000 03 
6000 00 
7100 00 
nNo3022 
no3o22 
7000 00 
coon 11 
c000 o3 
003025 
7200 11 
3600 03 
6000 00 
10800083 
1000 03 
6000 00 
7100 00 
903033 
2220 11 
4500 12 
003035 
2350 14 
7070 00 
N93037 
03037 
7090 00 
nooo 14 
n03041 
7200 11 
3660 03 
6000 oo 
1000 03 
6000 00 
7100 00 
993047 
003047 
7000 00 
No3050 
7100 00 


003051 
e200 11 
6000 00 

003053 


5075 
5076 


5077 


5078 
5079 
5080 
5081 


5082 
5083 


5084 


5085 
5086 


5087 


5088 
5089 
5090 
5091 
5092 
5093 
5094 


SCR3I 


SCR4 


SCRS5 


SCR6 


INPUT/OUTPIT SCREUULER <= 


Lx 
ANX 
T7E 
CMP X 
TZE 
CMP X 
Tzé 
TRA 
ass 
SCR 
TSX 
ARG 
ARG 
CHECK 
LXL 
ANX 
T7E 


CMPX 
TZE 
TRA 
BSS 
LDX 
STZ 
RELC 
LDA 
TSX 
BSS 
UNLCK 
TSX 
ARG 
CHECK 
LX 
ANX 
TZE 
CmMPX 
THE 
TRA 
BSS 
RELT 
TSX 
EXIT 
TRA 


BSS 
LDX 
TZE 
BSS 


Os TSSRwieaT 
Os88STMKSDU 
SCR7 
OsBSS7eEli 
SCR2 
Os8SFOF,DU 
sctrs3 


BERROR 
0 


(TETEMP{ oT) 2 (05DU) 


O0,$SCR 
TSTEMP1,T 

0.DuU 
SCR4,64B825eSCRS3 
OsTSSRWieT 
OsBSSTMKeDU 
SCR4 


0,8$92.50U 
SCR3 

SERROR 

0 
XoTETEMP2aT 
CS$9F10C.X 
(TSTEMP3eT) 
TSTEMPILT 
LeaRSRELC 

8) 
(TSTEMP1 eT) 
Os BUNLCK 
TSTEMP1.T 
SCR6,.BBBZeSCR5 
Os TSSRWieaT 
OsB8SSTMK.DU 
SCR6 

SCR5 

SERROR 

0 


OsTSRELT 


SEXIT 


0 

Os TSSRNioT 
SCR3 

G 


TOS MONITOR 


PAGE 


UTILITY == SCPATCH INPUT QUEUE FILE 


SCRATCH THE FILE 


FILE SCRATCHED 
GET BACK PTR TO NCB 


RESET FLOC PTR 
RELEASE RUFFER 


UNLOCK IT 


NONE 
RELEASE TCA 


EXIT 


FILE NOT EMPTY 
GET NUMBER OF UNITS TRANSFERRED 
NONE» THEN SCRATCH THE FILE 


160 


430 
440 


450 


460 
470 
480 
490 


500 
510 


520 


530 
540 


550 


560 
570 
580 
590 
600 
610 
620 


MBR OL O9—47="7}4 
R 
003053 900623 
003054 906027 
003055 777777 
END OF BINARY GARE 
005056 4an0008 
003057 000077 
003060 093033 
003061 anotoz 
903062 003053 
003063 777777 


790937 


993953 
700 no 
noen 41 
so0n n3 

993056 
190809084 
7200 11 
3600 903 
6000 00 
1aeo 03 
60CN 00 
71C9 00 


INPUT/OUTPUT SCHEDULER |= 105 MONITOR 


UTILITY e= SCRATCH INPUT QUEUE FILE 


5095 


5696 


5097 #4. 


SPTR 
TSX 
ARG 
ARG 
CHECK 


LXL 
ANX 
TZe 
CMP 
TZE 
TRA 
DISK 


(TETEMPL, TIC Hl.) SET POINTER BACK ONE 
Cs tSgpte 

TSTEMP1.T 

"1.5 

SCR4,84872SCR8 


OsTSSRWNieT 
Oe388ST¥KeDU 
SCR4 
Os3ER75DU 
SCRB 

SERROR 
JOBTAB 


PAGE 


161 


630 


640 


650 


MBR OL O9917—71 590937 


R 


N93064 


103064 
093064 000000 2220 03 
003065 900000 2359 4o7 
003066 040300 5202 o1 
003067 905700 1150 12 
003070 777777 6019 oo 
003071 005701 1220 o3 
003072 995700 7460 12 
003073 Anonon 7100 17 


005675 
900020 


095700 
005700 
005700 
005700 000000 onotdo 
END OF BINARY CARD 10800085 
093074 


5099 
5100 
510! 
5102 
5103 
5104 
5165 
5106 
5167 
5108 
5109 
5110 
5111 
5ii2 
S113 
5114 
S115 
5116 
5117 
51186 
5119 
5120 
5121 
5122 
5123 
5124 
5125 
5126 
5127 
5128 
5129 
5130 
5131 
S132 
5133 
5134 
5135 


5136 
5137 


JO8 


NUMB 


*e8# @ He #¢ Oe £ He 8 


aSw 


USE 
HEAD 


THE JOB 
CLOBEPS 


BSss 
LDX 
LEA 
RPT 
CMPA 
TNZ 
SBLX 
STX 
TRA 


INPUT/NUTPUT SCHEUUI ER == 198 MONITOR 


NUMBER ASSIGNMENT AND TABLF 


CONE 
J 


PAGE 


JO&8 NUMBER ASSIGNMENT 


NUMBER 1S RETURNFQ IN XRoX 


C(x0) 


0 

Xe Ooh 

Os0L 
MAXJBelsTZE 
JTAB,X 
SERROR 

Xo JITAR ato DU 
Je JTAGeY 
Osl 


INITIALIZE FOR SEARCH 
CLEAR AL 


SEARCH FOR FREE JO83 NUMBER 
waekeOY VEH] 

COMPUTE JOR NUMBER 

MARK JIT ALLOCATEN To US 
RETURN To CALLER 


JOB TABLE 


THE JNB TARLE IS A TABLE OF ONE WORD ENTRIES, INDEXED 


BY THE JOB NUMBER. 


INFORMATION IN THE JOB TAGLE IS 


THAT WHICH MUST BE LOCATED OR MATCHED FOR CONSISTENCY 
CHECKS AND FOR DEBUGGING PURPOSES. THE TABLE CONTAINS 
MAXJB ENTRIES. 


USE 
EQU 


EIGHT 
BSS 
DuP 
ZERO 


UsE 
DISK 


STORE 
16 


0 


1.MAXJIB 
0,0 


Previous 
XIT 


MAXIMUM NUMBER OF JOBS IN THE SYSTEM 


TO MAKE DEBUGGING EASIER 
JOB TABLE 


162 


110 
120 
130 
140 
150 
160 
170 
140 
190 
200 
210 
220 
230 
240 
250 
260 
270 
240 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 


(UPPER) PTR TO JCB/ (LOWER) PTR TO DEVICE460 


INITIALLY OFF 


470 


480 
490 


MBR 


END 


OL N9—17=715 


J 
003074 900474 
003075 0c5161 
003076 on5161 
003077 003135 
003100 005160 
003101 777777 
ONn3si02 05161 
003103 003106 
o0si04 005161 
OF BINARY CARD 
003105 005161 
003106 000004 
003107 777777 
003110 777777 
oOSiit 000003 
003112 005160 
003113 000006 
003114 777777 
003115 777777 
003116 006004 
003117 777777 
003120 777777 
003121 525247 
003122 000004 
003123 525250 


590937 


nn5n74 


NO3074 
003074 
7179 00 


N03075 
6262 0 
inn2 ao 
6002 0 
2212 00 
6002 00 
1o12 00 
6012 00 
6202 a0 
19809086 
7402 00 
1212 03 
6002 00 
6042 00 
2222 i1 
7422 00 


7260 it 
6000 o0 
6040 00 
2270 11 
6000 00 
6040 00 
903121 
525247 
2200 03 
7400 11 
903123 
525250 
2200 03 


TINPUT/OUTPUT SCHEDULER <= 


5139 
5140 
5141 
5ide 
5143 
5144 
5145 
5146 
5147 
5148 
5149 
$150 
S151 
5152 
5153 
5154 
5155 
5156 


5157 
5158 
5159 
5160 
5164 
5162 
5163 
5164 
5165 
5166 


5167 
5168 
5169 
5170 
5171 
5172 
5173 
5174 
5175 
5176 
5177 
5178 
5179 
5180 


5181 


EXIT 


* © @ &@ & © 


™ ¢ + &@ @ &@ B&H 1- 


XIT 


EXIT. 


BUGSUG 


BUGBUG 


USE 
HEAD 


COMPLETE ONE TASK AND BEGIN 


a an 
Ginbuis 


CODF 


¥ 
TRA SEXIT 


RETURN TO NEXT TASK 
RETURNS WITH 

C(J) = JOB NUMBER 

C(T) = TRAP BLOCK 

C(L) © TASK@=START#ADDRESS 


ass 
CKPT 
xED 
INHIB 
BSS 
EAX 
CMPX 
TZE 
LDX 
TzE 
CMP y 
TNZ 
EAX 


STX 
SBLX 
TzE 
™I 
LDX 
STX 
INHI@ 
LXL 
TZE 
TI 
LDX 
TZE 
TMI 
BuUGU 
SET 
LDX 
sTX 
BUGKR 
SET 
LDX 


TCS MONITOR 


PAGE 


EXIT 


ANOTHER FROM Q$TASK JUEUE 


Q ENTRY POINT 

NEQSUGGING 
XSCKPT 
SAVE .ON LOCK OUT UNWANTED INTERRUPTS 
0 TIME TO FOOL WITH THE ASTASK QUENE 
Os ISFIRST4+14Q0S$TASK ADDRESS OF FIRST ELEMENT 
OsASLASTs+OSTASK "DMES LAST POINT TN IT? 
WAIT 
T,ISFIRST+OSTASK "OFFSET POINTER TO BLOCK 
SERROR wae PROR) EM 
TeQSLAST4+GSTASK #15 THIS LAST? 
#43 NO 
OsASFIRST414¢QSTASK YESs SET THIS QUEUE 


OsQSLasT+OFTaSk 


TeQSOFFsteDy 
SERROR 
SERROR 

Xe DSLINKeT 


XsQISFIRST+OSTASK 


RESTORE 

Je TSJICRST 
SERROR 
SERROR 
LeTSTRAST 
SERROR 
SERROR 
(TSTRAST) 
BUGBUG+1 
0,RUGBUG.DU 
Os TSTRAsT 
(OsXe2YoZeQ) 
BUGBUG+4+1 
OsBUGBUGs* DU 


"TO EMPTY STATUS 

RELATE THE BEGINNING OF AL OCK 

#22DBG 

w#anDRBG 

GET CFFSEY POINTER TO NEXT BLOCK 
AND MAKE IY NOW FIRST 

RESUME NORMAL TELECAST 

RESTORE JCR POINTER 

a#22DBG 

zeae DBG 

AND TRANSFER ADDRESS 

#aaDBG 

wanJDBG 

BuG RETURN 


BuG THE REGISTERS 


163 


tin 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 


290 
300 
310 
320 
330 
340 
350 
360 
370 
380 


390 
400 
410 
420 
430 
440 
450 
460 
470 
440 
490 
500 
510 
520 


530 


MOR 


END 


O01 O09=17=71 


003124 525256 
093125 5252556 
003126 525250 
903127 525250 
003130 525251 
005131 525251 
008132 525252 
OF BINARY CARD 
008133 525252 
003134 900000 
003135 006017 
003136 000009 
003137 903975 


090937 


5252582 
2360 03 
10890087 
2760 07 
7100 17 


2272 O83 
col2 oo 


71°90 00 


INPUT/OUTPUT SCKEDULER == 10S MONITOR 


5142 


5163 


5184 
5185 
5186 
5187 
5188 
5189 
5190 
5191 
5192 
5193 
5194 
5195 


EXT 


BUGBUG 


BUGBUG 


«$e 


Lox 
LEX 
co 
LDX 
BUGA 
SET 
LDA 
ORA 
BUGQ 
SET 
LD 


ORG 
TRA 


INHIB 
LDX 
MME 
INHIB 
TRA 
DISK 


¥sRUGBUG.s OU 
Ye 3UGEUGS DU 
Zs FUGAUGs Ou 
QsRUGBUG. DU 
BUGBUG+1 
BUGRUGs DU 
BUGBUGS DL 


BUGRUG+] 
BUGRUGS DU 


BUSBUGS. DL 
Vel AND AWAAAY WE GO4 


WAIT FOR SOMETHING TO HAPPEN 


SAVEsON 

OeS, PAUSE es DU PAUSE AND START AT 
ANY INTERRUPT 

RESTORE 

EXIT) SKIP CHECKPOINT 

NOTC 


164 


540 


550 


560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
690 


MBR 


Ot 


09°17"71 


C9 e937 


003140 


INPUT/OUTP IT SCHEUULER == 105 MONITOR PAGE 165 


$197 
5198 
5199 
5200 
S201 
5202 
5203 
5204 
52c5 
5206 
5207 
§208 
5209 
5210 
S211 
S212 
S213 
5214 
5215 
5216 
5217 
5216 
5219 
5220 
5221 
5222 
5223 
5224 
5225 
5226 
5227 
5228 
5229 
5230 
5231 
S232 
52335 
5234 
5235 
5236 
5237 
5236 
§239 
5240 
5241 
5242 
5248 
5244 
5245 
5246 


COMM INICATIONS |= DESCRIPTIUN 


a2e#eseee SC BP eteseesveeteeeeaneeeeeene ee ee ee Ree HehUcrUhUrhlUr hUrhhUhHMhUhhUhhUh FS FH FE HH HF 


USE ConF 110 
HEAD Cc 120 
130 

140 

COMMUNICATIONS NETWORK STRUCTURE 150 
140 

THERE EXEIsts A PRIVATE COMMUNICATIONS NETWORK AMONG THE 170 

THE MONITOR AND ALL OF ITS SUB=MODULES (T.E, PERIPHERAL NRIVERS).180 
AT STARTUP TIME FOR THE MONITOR, IT CREATES THE NETWORK QY 190 
OPENING THREE SCRATCH EVENTS AND PASSING A FRN OF EACH TN FACH 200 
SUB@=MNDULES SPAWNEDe FOR THE SUR*MODULES»s THESE EVENTS aRF 210 
REFERENCED By CANONICAL NyMBERS8 220 
230 

FRNQ «= 240 

THIS 1S THE COMMAND EVENT FOR THE DRIVERS, EACH DRIVER 1S 250 
ALLOWFD NOTIFY ACCESS ONLY, COMMANDS ARF CHANNELED TO THE 260 
SPECIFIED SUSeMODULE BY THE STATE WHEN CAUSED. 270 
280 

FRNL == 290 

THIS Ig THE COMMAND REPLY EVENY FOR THE ODRIVERSe EACH DelveEr 300 
IS ALIQOWED CAUSE ACCESS ONLY. IN ORDER TO INFORM THE 310 
MONITOR THE PERIPHERAL DRIVER CAUSES THIS EVENT WITH ITS STATE, 320 
330 

FRN2 «< ; 340 

AS IMPLIED ABOVEs FRNO AND FRNY ARE AN INPUT/OUTPUT PAIR, 350 
FRN2 HOWEVER IS NOT PAIRED AT ALLe THE MONITOR USES THIS 360 
EVENT AS A PASS EVENT SENDING FILES TO BE PROCESSEN AND NEVICES 370 
DOWN TO ITS SONS, THE SONS NEVER EVER PASS ANYTHING BACK TO 380 
THE FATHER. THEY SIMPLY CLOSE FILES, 390 
410 

MESSAGE FORMATS: RETURNED IN T$SRW2,T (UPPER) 420 
430 

FOR FRN2 = 440 
BITS 90 = 3 2 JOB NUMBER (WITH 9 ILLEGAL) 450 

BITS 4 ® BANNER (ON MEANS SUPPLY BANNER) 460 

BITS 5 = OUTPUT MODES 512/ 320 (ON MEANS 32) 470 

B1Ts 6 -17 = START ADDRESS (3N ELEMENTS) 480 

, 490 

FOR FRNl == 500 
BITS 0 = 3 # MUST BE ZERO 510 

BITS 4 = 7 = COMMAND 520 

BITS 8 =14 = <NOT USED» $30 

BITS 15017 = DEVICE UNIT NUMBER (07) 540 

550 

$60 

FOR FRNO #= 570 
BITS 0 » 3 = JOB NUMBER (MUST BE ZERO) 580 

6ITS 4 = 7 = COMMAND 590 

BITS 8 #14 = <NOT USED> 600 

BITS 15017 = DEVICE UNIT NUMBER (0 THRU 7) 610 


MBR OL 09°17-71 


003140 
003141 
093142 
003143 
005144 
003145 
003146 


003147 
005150 
ooSsi5i 
0035152 
003153 
003154 
008155 
003156 


003157 


C 


090767 
006217 
00000! 
000027 
000026 
000000 
000000 


000000 
000077 
063155 
900003 
003140 
777777 
000000 
003146 


001477 


END OF BINARY CARD 


003160 


003074 


992937 


003140 


003140 
003140 


7000 
0000 
0000 
0000 
0n00 
eRepene 
0000 


003147 


7200 
3600 
6000 
1000 
6000 
7100 
2220 
6000 


093157 


7000 


003160 
10800088 


7100 


00 
he) 
03 
il 
ii 
03 
03 


ii 
03 
00 
03 
00 
00 
1i 
00 


0 


00 


INPUT/OUTPUT SCHEDUIER == 195 MONITOR PAGE 


5248 
5249 
5250 
S251 
5252 
5253 
5254 
5255 
5256 
5257 
5258 
5259 
5260 
5261 
5262 
5263 
5264 
5265 
5266 
5267 
5268 


5269 


5270 
5271 
5272 
5273 
5274 
5275 


5276 


COMMUNICATIONS m= SEND MESSAGE 


xseweteeee ©e eee ee © He ee te 


ESSX 


MESS1 


USE CONF 
HE AY C 


SEND A MESSAGE 


THIS TASK SENDS A 36 BIT MESSAGE, WHICH IS 817 CODED TN THE 


MONITOR ON THE OUTPUT EVENT FILE FRNi. THE STATE AND 
MESSAGE ARE PASSED TO IT IN TSTEMP1,T AND TSTEMP2eT. 
RESPECTIVELY. AFTER SUCCESFULLY TRANSMITTING THE MESSAGE 
THE Task EVAPORATES. 


ENTER wITH 

C(XT) # TBLOCK*=ANDRESS 

C(TSTEMP1sT) = STATE 

CI(TSTEMP2sT) = MESSAGE 
SINCE AN ASYNCHRONOUS TASKs IT CAN USE ALL TEMP?S 
CALLS ONLY RSRELT WHEN DONE. 


ess 0 ENTRY POINT 

CAUSE FRNOs(1sDU) a (TESTEMPL oT) o( TSTEMP2eT) o(OsD') eo (O0eDU) 
TSX Os$CAUSE 

ARG FRNO 

ARG 1,Du 

ARG TSTEMPI,T 

ARG TSTEMP2,T 

ARG 0.Du 

ARG OeDU 

CHECK MESS1s88BZeMESSX 

LXt OsTSSRWisT 

ANX OsBESsTMKeDU 

TZE MESS1 

CMPX 028$82.DU 

TZE MESSx 

TRA SERROR 

LDX Xe TSSRWieT GET NUMBER OF PEOPLE NOTIFIED 


TZE MESSx NONEs RESEND 


MESSAGE SENT 


RELT RELEASE TRAP BLOCK 
TSX OsTSRELT 
ExIt EyAPORATE 


TRA SEXIT 


164 


630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
ano 
810 
820 
830 


840 


850 
860 
870 
860 
890 
900 


910 


MBR OL 09"17=71 


003161 
003162 
005163 
005164 
003165 
003166 


005167 
005170 


C 


090000 
000077 
003167 
000011 
003171 
777777 


000005 
000000 


092937 


NO31461 


003161 
003161 


7200 
3600 
6000 
10c0 
6000 
7100 


003167 


7270 
7100 


il 
03 
00 
Os 
00 
09 


it 
17 


INPUT/OUTPUT SCHEDULER == 10S MONITOR 


5279 
5280 
5281 
5282 
5283 
5284 
$285 
5286 
5267 
5258 
5289 
5290 
5291 
5292 
5293 
5294 
5295 
5296 


5297 
5298 
5299 


COMMUNICATIONS *@ CTRAP SERVICE 


zeeteeteee#teet#seet#tse ££ £ 


SRV 


NSRvVi 


USE 
HEAD 


CODE 
Cc 


CQ TRAP SERVICE 


THIS SUBROUTINE 1S ENTERED WHENEVER AN OUTSTANDING 
NOTIFY IS CAUSED, THE ROUTINE ASCERTAINS THE REASON 
FOR THE CAUSE AND TRANSFERS CONTROL TO THE AP= 
PRIiate SUBROUTINE. 


CALL wITH 


CALLS 


BSS 
CHECK 
LXb 
ANX 
TZE 
CMPX 
TZE 
TRA 
BSS 


LXb 
TRA 


C(XT) = CTRAP ADDRESS 


CSNSRVY (TO RE#ISSUE NOTIFY) 
OR APPROPIATE SURRQUTINE 


0 

NgRviseSSTLEeNSRvx 

Oe TSSRWisT 

OsBSST¥KS.DU 

NSRVI1 

O,8$TLE.DU 

NSRVX 

SERROR 

0 IT WAS REALLY CAUSED 
Le CSRLINKsT WELL® WHO GETS IT? 
Gal LET HIM HANDLE IT 


PAGE 


167 


940 
950 
969 
970 
980 
990 
1N00 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1040 
1090 
1100 
1110 


1120 
1130 
1140 


MBR 


END 


OL O9"17=71 
C 

OOS171 001467 
003172 000000 
005173 000005 
003174 003161 
005175 000510 
003176 000000 
003177 090005 
003200 000756 
003201 000024 
003202 000025 
003203 000000 
OF BINARY CARD 
003204 000077 
005205 o03211 
003206 000003 
093207 003177 
003210 777777 
003211 001477 
O0N3212 003074 


096937 


NOSI71 


003171 
003171 
7000 00 
6220 11 
2210 11 
6200 00 
003175 
7170 00 
6210 12 
2230 11 
003200 
7000 00 
0000 13 
0000 13 
003203 
7200 11 
10S00089 
3600 O38 
6000 00 
1000 o3 
6000 09 
7109 00 
QO3211 
003211 
7090 900 
003212 


7100 00 


INPUT/OUTPUT SCRKEDUIER = 


5301 
5302 
5303 
5304 
5305 
5306 
5307 
5308 
5309 
5310 
53114 
5312 
5313 
5314 
5315 
5316 
5317 
5318 
5319 
5320 


5321 
5322 
5328 
3324 


5325 


5326 
5327 


5326 


5329 
5350 


S331 


19S MONITOR PaGE 


COMMUNJCATIONS 2° RE=[SSUE NOTIFY 


z2zeeeetenee eee eee eet t 


SRVX 


NSX1 


NSX2 


USE CODE 
HE AD c 


RE=ISSUE NOTIFY 


THIg SUBROUTINE SIMPLY pE#ISSUES THE NOTIFY FOR 


ANY NCB (NOTIFY CONTROL BLOCK). AFTER A SUCCESSFUL OPERATION 
THE TASK EVAPORATES. 
CALL wITH 
C(xt) =» NCB ADDRESS 
CALLS 
TSGETT 
SSETUP 
SNOTIF 
TSRELT 
BSS Q 
GETT GET A TRAP BLOCK 
TSX Os, TSGETT 
EAX X,0,T SAVE A PTR TO IT 
LDx Teo TSLINKoT LEY T POINT 70 ORIGINAL YTCB8 
EAX OaNSRV RESTART ADDRESS 
SETUP RESTART CTRAP 
XED SSETUP 
EAX Te0yX GET BACK PTR TO NEW TCB 
LDX Se TSLINKsT MAKE X3 POINT TO NCB 
NOTIF (ERN,S),(STATESS) 
TSX Os BNOTIF 
ARG ERN»s3 
ARG STATEs3 
CHECK NSX2,88BZeNSX1 
LXL Os TSSRW1eT 
ANX OsB88STMKe DY 
TZE NSX2 
CMPX 028$62750U 
TZE NSX1 
TRA SERROR 
BSS 0 SUCCESSFULLY RE#ISSUED NOTIFY 
RELT RELEASE TBLOCK 
TSX OsTSRELT 
ExIT EXIT 
TRA SEXIT 


168 


1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
41300 
1310 
1320 
1330 
1340 
1350 


1360 
1370 
1380 
1390 


1400 


1410 
1420 


1430 


1440 
1450 


1460 


MBR 


END 


END 


01 Ogetze71 99.937 
C 
QO3218 
005720 
005720 
005720 
005720 000000 co0035 
005721 000000 o00n00 
005722 000900 900000 
005723 000000 cotnDnD 
005724 9000900 on0000 
005725 000000 903301 
005726 005720 005720 
005727 114120105040 
005730 
005730 000000000000 
OF BINARY CARD 10800090 
005744 777777 0000 00 
005745 9000006 000000 
005746 
005746 coo0000nnCHO 
005750 777777 o0CO 00 
005751 oon00nn0000NN 
005752 ococcccoonooD 
005753 005574 o000 on 
005754 005220 0000 oo 
005755 000003 ootcol 
005756 777777777777 
003213 
005750 
003213 
005757 
005760 
005760 
095760 000000 900035 
005761 co0000 900000 
OF BINARY CARD 10800091 
005762 on0000 900000 
005763 000000 o00000 
005764 000000 ootnnn 
005765 on0000 o03301 
005766 005760 005760 


INPUT/NUTPIUT SCHEDULER o- 


S333 
5334 
5335 
5336 
5337 
3338 
5339 


5340 
S341 
5342 
5343 
5344 
5345 


INOS MONITOR 


COMMUNICATIONS @= NOTIFY CONTROL SLOCKS 


* © * © # & 


LPE 


FRLPE 


CPE 


NCB 
USE 


weenie 
we 


BSS 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
UASCI 
DuP 
DEC 


ARG 
ZERO 
DUP 
DEC 
ARG 
DEC 
ARG 
ARG 
ZERO 
DEC 
USE 
EQU 


NC8 
USE 
EIGHT 
BSS 
ZERO 
ZERO 


ZERO 
ramerye) 


ZERO 
ZERO 
ZERO, 


PRINT@FILE@EVENT 


NOTIFY CONTROL BLOCKS 


LPEsLPEsSINITe@*1e Oe RSLPTABS+RSOMAK eS OSINPI oRSTYPLP SL 


STORE 


0 
0238TRO 
020 

0,9 

029 
ean 
OsBINIT 
WOCENCSS*"C3SICB 
LeLPE 
1216-4 
0 


a | 

0,9 

1,2 

0 

hal | 

0 

0 
RSLPTABs+RSOMAX 
QSINPI 
RSTYPLP,i 
=1 
PREyIOUS 
LPEsnFRN 


PUNCH@FILE*EVENT 


ASCII ABREVIATION 


INPUT FILE RN 


CPEsCPEsS$INITs=1eGsRSCPTAB+RSOMAXsQSINPLoRETYPCP ol 


STORE 


0 
02B$TRO 
020 


020 
029 
#wol 


Os SINIT 
#eCSNC3,*-CS$JCB 


169 


1480 
1490 
1500 
1510 
1520 
1530 
1540 


1550 
1560 
1570 
1580 
1590 
1600 


MBR 


END 


END 


OL O9917=71 


995767 
005770 
006004 
006005 


006006 


592937 
C 


193120105049 
095770 
000000000000 
777777 COO 090 
000000 oo0000 
006006 
ooanococodnn 


OF BINARY CARD 10800092 


006010 
o06o11 
006012 
006013 
006014 
006015 
006016 


006020 
906021 
006022 
006023 
006024 
006025 
006026 
006027 


9060306 


777777 0000 00 
ne000coca0nNndD 
900000000000 
008554 9000 00 
005220 0000 o0 
ocoddg! oococol 
777777777777 
003213 
006010 


325253 
0032135 
006017 
006020 
096020 
000035 
000000 
000000 
000900 
000000 


000000 
000000 
000000 
000000 
000000 
000000 001775 
006020 006020 
112123123040 
006030 
o00000000C00 


OF BINARY CARD 10800093 


006044 
996045 


006046 
096050 
006051 
006052 
006053 
006054 
006055 
006056 


777777 0000 00 
oo000d ontooa 
006046 
000000000000 
777777 0000 00 
000000000000 
000000000000 
525253 0000 00 
525253 coco 00 
525253 525253 
777777777777 
003213 


INPUT/OUTPUT SCHEDULER on 


108 MONITOR PAGE 


COMMUNICATIONS == NOTIFY CONTROL BLOCKS 


FRCPE 


JSS 


FRJSS 


S353 * 


1oCPE 
1516-4 


fa] 


=1 
059 
152 
0 


ASCII ASREVIATION 


“1 

0 

0 
RSCPTAS+RSOMAX 
QSINPI 
R$TYpCpoal 

=1 

PREVIOUS 


CPE+GFRN INPUT FILE RN 


JOB=STREAM=SCHEDULER@EVENT 


BUGBUGS1 #2eDBG 
JSSeJSS,OSENTER, @1,0e$RUGBUGs $BUGBUG, SARUGBUG, SBUGRUG 
STORE 


0 

0,BSTRO 
0,0 

0,9 

0,0 

*we0 
O2sOSENTER 
*oCSNCB,e-CSJCR 
12JSS 
1316=4 

0 


ASCII ABREVIATION 


=1 

0,0 

1,2 

i) 

=1 

4) 

0 
$BUGBUG 
$S3UGRUG 
$BUGRUGS, $BUGBUG 
1 
PREVIOUS 


177 


1610 
1620 
1630 
1640 
1650 
1660 
1670 


1680 


MBR 


END 


OL OJ9—"37=71 590937 
C 
925254 
093213 
006057 
006060 
006060 
END OF BINARY CARD 10809094 
006060 ocnn0ce oftn3s 
006061 000000 c00n00 
006062 coocdc ant000 
006063 000000 n00000 
006064 00000C 00000 
006065 000000 003213 
006066 006060 006060 
006067 114120061040 
096070 
006070 ooc000000000 
006104 777777 0000 00 
006105 003000 000000 
006106 
OF BINARY CARD 10800095 
006106 gog000000C00 
006110 777777 0000 00 
006111 gn000C000C00 
006112 000000000000 
006113 525254 0000 00 
006114 525254 0000 00 
006115 525254 525254 
006116 777777777777 
003213 
525255 
0903215 
006117 
006120 
006120 
006120 co000c 000035 
006121 000000 000000 
006122 on0000 o00N000 
006123 000000 o00000 
006124 900000 o00000 
006125 000000 003213 
006126 006120 006120 
006127 103120061049 


006130 


INPUT/NUTPUT SCHEUUI ER == 105 MONITOR 


5354 
5355 
5356 
5357 
5358 


5359 
5360 
5361 
5362 
5363 
5364 


COMMUNICATIONS #= NOTIFY CONTROL BLOCKS 


* 
® 


* 
BUGSUG 


LPL 


Fret 


UGBYUG 


CP1 


SET 
NCB 
USE 
EIGHT 
Bss 


ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
UASCI 
DyuP 
DEC 
ARG 
ZERO 
DuP 


DEC 
ARG 
DEC 
DEC 
ARG 
ARG 
ZERO 
BEC 
USE 


sET 
NCB 
USE 
EIGHT 
8ss 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
UASCI 
DUP 


FRNISEVENT@LP CINPUT) 

BUGRUGe!L #*2DBG 
LPLeLP1»CSCOMDs—1,35LPST,SHUGRUGs. $8UGBUG, $B8iGBUS stBIGRUG 
STORE 


0 


Os BSTRO 
020 

029 

020 

taeQ 
OsCS&COMD 
#oClSNCB,*eC$JCB 
LoLPi 
15164 

0 

=-1 
S$LPST29D 
152 


ASCI] ABREVIATION 


0 

=1 

0 

0 

$BUGBUG 

SBUGBUG 
$BUGBUG, $BUGRUG 
-1 

PREVIOUS 


SFRNISEVENT*CP (INPUT) 

ByGByGe1 wae DRG 
CP1sCPy.CECOMDs—-4,$CPST, S$BIIGRUGs $BUGBUG, SBUGBUG»s ¢BUGBUG 
STORE 


0 

Os BSTRO 

020 

020 

029 

a ae) 

Os»CSCOMD 
weCENC8,%x°CSJCB 
1,CPy 

121604 


ASCII ABREVIATION 


171 


1690 
1700 
1710 
1720 
1730 


1740 
1730 
1760 
1770 
1780 
1790 


MBR 


END 


END 


END 


OL 09=17—71 992937 


006139 


C 
oococqooncoea 


OF BINARY CARD 19809096 


06144 
006145 


006146 
096150 
006151 
006152 
006153 
006154 
006155 
006156 


777777 core on 
g01000 ontoon 
106146 
oc¢0000000000 
777777 G000 ao 
ogcooodocannd 
000000000000 
525255 6000 00 
525255 co0o 00 
525255 525255 
777777777777 
003213 


525256 
003213 
096157 


OF BINARY CARD 10800097 


006160 
006161 
006162 
006163 
006164 
006165 
006166 
906167 


006170 


006160 

006160 
000000 0090035 
000000 cocoonD 
000000 000000 
000000 000000 
000000 000000 
000000 005213 
006160 006160 
103122061040 

006170 
000000000000 


OF BINARY CARD 10800098 


006204 
006205 


006206 
006210 
006211 
006212 
006213 
006214 
006215 
006216 


777777 9000 00 
002000 900000 
006206 
000000000000 
777777 9000 00 
oocdodo00ndo 
oooocdogatNDN 
525256 0000 00 
525256 9000 00 
525256 525256 
777777777777 
003213 


5365 
5366 
5367 
5366 
5369 


5370 
5371 
5372 
5373 


FRCPL 


* 
® 
* 


BUGBUG 


CRi 


FRCR1I 


ee. © & 


DEC 


ARG 
ZERQ 
DuP 
DEC 
ARG 
DEC 
DEC 
ARG 
ARG 
ZERO 
DEC 
Use 


INPUT/OUTPUT SCHEDULER #= 10S MONITOR 


COMMUNICATIONS == NOTIFY CONTROL 3LOCKS 


0 


= 
SCPST21 
le2 

0 

“1 

0 

Q 
$BUGRUS 
S$BUGRUG 
$BUGRUG, SBUGRUG 
ale | 
PREyIOuUS 


SFRNI@EVENT@CR (INPUT) 


SET 
NCB 
USE 


EIGHT 
BSS 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
YASCI 
DuP 
DEC 


ARG 
ZERO 
puP 
DEC 
ARG 
DEC 
DEC 
ARG 
ARG 
ZERO 
DEC 
use 


BUGSUG+41 


CR1sCRI~CSCOMDe—-1 ,$CRST.SBUGBRUGs SBUGBUGs $B81/GBUGs $8UGRUG 


STORE 


0 
Os.BSTRO 
020 

020 

029 

aol 
0eC$COMD 
seCSNC8,#-C3JCB 
1.CRy 
1216-4 

0 


=} 
S$CRSTs9 
1s2 

0 

=i 

0 

0 
$BUGRUG 
$BUGBUG 
S$BUGBUGs» SBUGBLUG 
“1 
PREVIOUS 


COMMUNICATIONS FRN@S 


ASCII ABREVIATION 


172 


1800 
1810 
1820 
1830 
1840 


1850 
1860 
1870 
1880 


MBR OL 09817=71 090937 
C 
Q 
006217 777777 5000 ba. 
006220 777777 0000 50 
006221 777777 cotd oO 
525257 
096222 
006222 
006230 
006230 
006230 co000o cocn3s 
006231 o0000C onc000 
006232 000000 co0000 
006233 000000 o00000 
END OF BINARY CARD 19NS00099 
006234 000000 500000 
006235 000000 004074 
006236 006230 006230 
006237 114120103120 
006240 
006240 9000000000000 
006254 777777 9000 00 
006255 9000000 900000 
006256 
096256 000000000000 
006260 777777 0000 oo 
006261 000000000000 
END OF BINARY CARD 10800100 
006262 ocn0000000000 
006263 525257 9000 00 
006264 525257 0000 00 
006265 525257 525257 
006266 777777777777 
006267 
096260 
525269 
006267 
006267 
006270 
006270 
006270 000000 onf035 
006271 900000 onc000 
006272 9000900 an0t00 


INPUT/QNUTPUT SCHEVULER <= 


5374 
5375 
5376 
§377 
5378 
5379 
5380 
5381 
5382 
5383 


5384 
5385 
5366 
5387 
5388 
5389 
5390 


tos MONITOR 


COMMUNTCATIONS |= NOTIFY CONTROL 3LOCKS 


FRNO 
FRNY 
FRNO 
® 
« 
® 
* 


byssus 


PRI 


FRPR1 


PR2 


USE 
ARG 
ARG 
ARG 


sett 
NC3 
USE 
EIGHT 
BSS 
ZERO 
ZERO 
ZERO 
ZERO 


ZERO 
ZERO 
ZERO 
UASCI 
Due 
DEC 
ARG 
ZERO 
DuP 
pec 
ARG 
DEC 
DEC 
ARG 
ArG 
ZERO 
DEC 


USE 
EQU 


sET 
NCB 
USE 
EIGHT 
BSS 
ZERO 
ZERO 
ZERO 


STORE 

“1 MoXs CoMMAND guteut 
-] MONS COMMAND [NPUT 
-4 MOMs COMMAND PASS 
PROCESS@ONE*EVENT (LPCP MODULE) 
BUGBYGe, a2220BG 


PRI pL PCP oSCRASHs—1 50 sBUGBUG sRUGBUG sBUGBUG s BUGBUG 
STORE 


0 
OsBSTRO 
0.0 

0,9 

029 


aay 

O»SCRASH 
weoCENC8Ig*e-CSJCB 
1sLPCP 

151604 


ASCII] ABREVIATION 


0 
ByGByG 

ByGByG 
BUGBUGs BUGRUG 
“1 

PREVIOUS 


PR140FRN SPANNED FRN 


PORCESS*TWOMEVENY (CR MODULE) 


BuUGBYyG+i wax DBG 
PR2eCDRDs SCRASHs=1 50s BIIGBUGsRUGBUG s 8UGRUGs. BUGBUG 
STORE 


0 

Os» BETRO 
029 

009 


1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 


1990 
2000 
2010 
2020 
2030 
2040 
2050 


MBR OL O9—17—714 99.2937 


C 


996273 oc000S SOtfNo0 
006274 ononods onoqoo 
006275 co00co 624074 
006276 006270 006270 
006277 103104122104 
006300 
006300 oanocnooo0oO 
END OF BINARY CARD 10890101 
006314 777777 0n00 oO 
006315 000000 snconn 
006316 
006316 do00000000NND 
006320 777777 coCn 400 
006321 caocoocooancne 
006322 oaonoc0000ND 
006323 525260 9090 no 
006324 525260 coCO oO 
006325 525260 525260 
096326 777777777777 
006327 
006320 


INPUT/OUTPUT SCHEDULER #= 35S MONITOR 


COMMUNICATIONS #= NOTIFY CONTROL BLOCKS 


FRPR2 


5391 FRCR 
5392 *$e 


ZERO 
ZERO 
29 
ZERO 
UASCI 
DUP 
DEC 


ARG 
ZERO 
DuP 
DEC 
ARG 
DEC 
DEC 
ARG 
ARG 
ZERO 
DEC 
USE 
EOU 
DISK 


6,9 

taal 

is BER ASH 
#eNSnCQ,weC$JCB 


1,CnRD ASCII ABREVIATION 


1,16<4 
0 


=i 

0.9 

152 

0 

=i 

0 

0 

RBUGBRUG 
RUGBUG 
BUGBUG,RUGBUG 
=i 
PREVIOUS 
PR24QF RAN 
con 


SPAWNED FRN 


PAGE 


174 


2060 
2070 


al O9"47=7 1 
c 

00Ss213 ocn00l 
003214 906012 
003215 0090017 
003216 00010 
OF BINARY CARD 
0N3217 COs231i 
003220 003221 
003221 9003231 
003222 003232 
003223 003233 
003224 903236 
0038225 003231 
0038226 003247 
003227 777777 
003230 ans241 
003231 cosi71 


090937 


O39 s215 


093213 
2360 11 
7720 00 
3769 O03 
1140 903 
19800102 
6030 00 
7100 22 
coon no 
onno no 
o0c0 a0 
f000 00 
oo00 oO 
co000 09 
000 00 
o0%0 00 

0000190 


003231 
7100 00 


5394 
5395 
$396 
5397 
5396 
5399 
5400 
5401 
5402 
5463 
5404 
5495 
5406 
5407 
5408 
5409 


5410 
5411 
5412 
5413 
5414 
5415 
5416 
5417 
5416 
5419 
5420 
5421 
5422 
5423 
5424 
5425 
5426 
5427 
5426 


5429 


Ons © # © &@ ££ 8 & 


TNPUT/OUTPUT SCHEJULER #2 TMS MONITOR 


COMMIINTCATIONS "© CAMMANNS 


USE CONE 
HEAD C 


COMMANDS 


THIS ROUTINE DECODES A COMMAND sSENT TO IT FROM A SYBeMODULE 


IF A LEGAL COMMANDs THE 


APPROPRIATE ACTION IS TAKEN, IF 


ILLCGAL» WELL IT IS INGORED (MORE OFTEN THAN NOT) 


8ss 0 

Lda TESRW2eT 
ANG =017,0u 
CMPYQ CMAX,PY 
TRC COMDYX 
TRA *+1eQU* 
ARG ComMDy 
ARG GET 

ARG KILL 
ARG REL 

ARG COMNYX 
ARG RSTRT 
ARG FERROR 
ARG REANY 
EQU *#eCMDTS 


RE*ISsy& NOTIFY ON THIS 
BSS 0 
TRA NSRVX 


FNTER HERE FROM CENSRV 
GET COMMAND 

RIGHT JUSTIFY IN Q!J 

MASK TO COMMAND 

TEST VALIDITY OF COMMAND 


NOPES EXIT 

BRANCH TQ SURROUTINE 

=z INVALID (IGNORED) 

= GET A PERIPHERAL 

= KILL PERIPHERAL NOW 

= RELEASE PERIPHERAL WHEN NOT RQUSY 
= INVALID (XXX) 

= RESTART A PERIPHERAL 

=» DONE (NOT HERE ON THIS STATE) 
m READY PERIPHERAL NAME 

UMBER OF COMMANDS LEGAL 


ZNa Na wnewd 


ComMDX 


NCB 


RE@eISSUE THE NOTIFY 


175 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 


MBR QL O9=37=71 590937 INPUT/OUTPUT SCHEDULER == JOS MONITOR PAGE 176 


6 COMMUNICATIONS == GCOMMAND GET 
003232 5431 USE CODE 480 
5432 HEAD C 490 
5433 * 500 
5434 * 510 
5435 * COMMAND GET 520 
5436 * 530 
5437 * THIS SUBROUTINE °GETS* THE SPECIFIED PERIPHERAL. 540 
5436 * 550 
5439 * 560 
093232 5440 GET Bss 0 IGNORE 570 


003232 003231 7100 90 5441 TRA ComMDx EXPECT NO REPLY#==<IGNORE 580 


MBR 


END 


OL 09"37=71 092937 
C 
093233 
003233 
003233 0094753 2350 oo 
0NS234 ONGO27 7580 11 
NN4753 
094753 004754 9024 40 
004754 120105122111 


OF BINARY CARD 10800103 
003235 


OnNS235 903243 7100 o0 


INPUT/NUTP IT SCHEDULER o= 


5443 
5444 
5445 
5446 
5447 
5448 
5449 
9450 
5451 
5452 
5453 
5454 
5455 
5456 
5457 
5458 
5459 
5460 


5461 
5462 


1GS MONITOR 


COMMINTCATIONS == COMMAND KILL 


Knee #8 & © & HH He He 


TLL 


KLMS 


USE 
HEAD 


CODE 
C 


COMMAND KILL 


THIS ROUTINE TELLS THE OPERATOR THAT A PARTICULAR DEVICE 
HAS BFEN STOPPED AND RELEASED w= KILLED. 


ENTER wITH 
C(xXTy w NCBeADDRESS 
BSS Q 
LDA KLMS GET MESSAGE TO SEND 
STA TSTEMPI,T SAVE FOR LOGGING 
use CONST 
TALLYR 4410194120 
UASCI S,PERIPHERAL KILLED 
USE PREVIOUS 
TRA RDyYt HANDLE Ly KE READY 


MBR OL 09—17—71 99.937 


003236 
003237 


004761 
004762 


003240 


C 


903236 


003236 
004761 2350 00 
ONG027 7550 11 

004761 
004762 0024 40 
120105122111 

003240 
003243 7100 00 


INPUT/OUTPUT SCHEQUIER == 10S MONITOR PAGE 


5464 
5465 
5466 
5467 
5468 
5469 
5470 
5471 
5472 
5473 
5474 
5475 
5476 
5477 
5478 
5479 
5480 
5461 
5482 


COMMUNICATIONS == COMMAND RELEASE 


Doe &©& & & & & © He FH 


CLMS 


USE 
HEAD 


CODE 
C 


COMMAND RELEASE 


THIS ROUTINE RELEASES A PERIPHERAL AS SOON AS IT IS FREE 


ENTER WITH 
C(xXT) # NCB-ADNRESS 
BSS 0 
LDA CLMs GET MESsAGE 10 sEND 
STA TSTEMP1,T SAVE FOR LOGGING 
USE CONST 
TALLYR *%4101941020 
UASCI SePERIPHERAL CLOSED: 
USE PREVICUS 
TRA RDY1 HANDLE LIKE READY 


178 


810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 


MBR 


END 


1 09°17-71 090937 


C 


003241 
003241 004767 2350 a9 
003242 000027 7550 11 
004767 
004767 004770 call 40 
004770 122105101104 
093243 
003243 
OF BINARY CARD InS800104 
003243 003262 7n70 on 
003244 09000026 742n 11 
003245 000026 4440 11 
003246 003250 7100 o0 


INPUT/OUTP'T SCHEDULER #= [05 MONITOR 


5484 
5465 
5486 
5487 
5488 
5489 
5490 
5491 
5492 
5493 
5494 
5495 
5496 
5497 
5498 
5499 


5500 
5501 
5502 
5503 


COMMINICATIONS == COMMAND READY 


s8# 2s © 6 


READY 


RDYMS 


RoY1 


HEAD 


Cc 


COMMAND READY 


THIS COMMAND TELLS THE OpERATOR TO pERFORM CERTAIN ACTIONS, 


Lo 
Uw 


LDA 
STA 
use 
TALLYB 
UASCI 
use 
BSS 


TSX 
STX 
SXL 


TRA 


a 
w~ 


RDYMS 
TSTEMPI,T 
CONST 
%41984450 
2,READYS 
Bowes 


LoaPERI 

Xe TSTEMP2aT 
Ze TSTEMP2aT 
LOG 


GET MESSAGE TO SEND 
SAVE FOR LOGGING 


PRINT NAME 


GET PERIPHERAL INFORMATION 
SAVE DeviCe HEADER PTR 
SAVE UNIT PTR 


SEND BUILT UP MESSAGES 


MBR OL Q9—17=71 790937 INPUT/OUTPUT SCHEDULER == 30S MONITOR PAGE 180 


Cc COMMUNICATIONS == COMMAND RESTART 
093247 5505 USE CONE 1220 
5506 HEAD C 1230 
5507 * 1240 
5508 * 1250 
5509 * COMMAND RESTART 1260 
5510 * 1270 
S5il * THIS COMMAND RESTARTS THE JOB ON THE SPECIFIED PER= 1280 
5512 * IPHERAL TO THE SPECIFIED ELEMENT NUMRER, 1290 
5513 * 1300 
993247 5514 rstrt 8SS 0 1310 


093247 903231 7100 00 5515 TRA COMNy ExPECT NO REPLY@=IGNORE 1320 


MBR OL O9"37=71 590937 INPUT/QUTPUT SCHEDULER == 108 MONITOR PaGE {41 


C COMMIINTCATIONS #= LOG MESSAGE TO OP 
993250 5517 USE CONE 1340 
5518 HEAD Cc 1350 
5519 * 1360 
5520 * 1370 
5521 * LoG MESSAGE To oP 1380 
5522 * 1390 
03250 5523 LOS 38ss 0 1400 
903250 5524 LOGS LOG A MESSAGE TO THE OP SAYING 1410 
093250 001517 7070 no TSX LeO$SLOSS 
903251 5525 LOGC (TSTEMP 1 sT) THE CANNED MESSAGE 1420 
005251 0900027 2350 11 LDA TSTEMP1,T 
003252 9061543 7070 oOo TSX LeO$L0G6C 
0038253 000026 7240 11 5526 Lxb Zo TSTEMP2eT FROM #= GET PTR TO UNIT 1430 
0N3254 qgno000 6350 14 5527 EAA RSABBRSZ POINT TO ABBREVIATION 1440 
003255 0065460 2750 07 5528 ORA 4eSTAL*+STAL*+$TALYB, UL ARBREVIATIONS ARE 4 CHARACTERS 1450 
003256 5529 LOGC A PERIPHERAL NAME 1460 
003256 001543 7070 a0 TSX LsO8Lasc 
003257 5530 LCRLF NEATNESS 1470 
003257 001600 7070 oo TSX LeoOSLCRLF 
003260 5531 LOGX FINISH tp 1480 
003260 00156C 7070 on TSX L»eOSLOGX 


003261 003231 7100 oo 5532 TRA COMDx REISSUE THE NOTIFY 1490 


MBR 


END 


QL O9917—74 


r 


~ 


003262 70n0025 
008263 900011 
003264 994743 
005265 o00006 
OF BINARY CARD 
005266 ofo0ol 
005267 000022 
008270 000007 
003271 o000C0 
0938272 000903 
003273 o00000 
003274 0009000 
003275 900003 
003276 on000! 
003277 =9003273 
003300 003231 


596937 


093262 


003262 


2350 
7710 
2200 
2240 


10800105 


2350 
7710 
3750 
2750 
3360 
1150 
6000 
6240 
0760 
6046 
7100 


it 
00 
01 
19 


11 
00 
07 
14 


INPUT/OUTPUT SCHEDULER == 10S MONITOR PAGE 


5534 
5535 
5536 
5537 
5536 
5539 
5540 
5541 
5542 
5543 
5544 
5545 
5546 
5547 
55468 
5549 
5550 
5551 
5552 
5553 
5554 


5555 
5556 
5557 
5556 
5559 
5560 
5561 
5562 
5563 
- $564 
5565 
5566 


COMMUNICATIONS == PERIOHERAL INFORMATION (PERI) 


wus e+ teetee @© B&B eH HB HR Ft 


Er! 


PERT1 


aw 


USE CONF 
HE Ai) Cc 


PER! 


THIS ROUTINE CHECKS yO SEE IF THE PERIPHERAL NAME ExIts 
AND IF SO RETURNS A POINTER TO THE DEVICE ENTRY SLOCK, 
OTHERWISE IT Exr Ts 


ENTER wITH 
Cixt) #= NCR@ADDRESS 

RETURN WITH 
C(X?) 2 DEVICE ENTRY BLOCK 
C(x0) # TYPE 


Bss 0 

LDA C3SSTATEST GET STATE 

ARL 18-9 MAP INTO TYPE 

LDX OsRETABLE SAU GET PTR TO DEVICE HEADER 

uLDX ZeRSPTR2O GET PTR YO FIRST DEVICE OF THIS TYPE 
LDA TSSRW2eT GEY BACK UNIT NUMBER 

ARL 36-18 RIGHT JUSTIFY IN AL 

ANA 7oDL MASK TO UNIT NUMBER 

ORA R$ABRR»g7 GET NAME 

LCo RSMAX29 GET THE NUMBER OF DEVICES TO CHECK 
CMPA RSABBRs7 TEST FOR MATCH 

TZ2E Osl RETURN wITH 2 POINTING TO DEVICE 
ADLX ZeRSDEVLNeDU NOs» SKIP TO NEXT DEVICE 

ADQ 1.0L TEST For DONE 

TMI PERT1 NOs LOOP 

TRA COMDx INGORE MONITOR 

DISK INIT 


182 


1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1390 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 


1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1600 
1810 
1820 
1830 


MBR 


Of 


O9"17—71 


C 


"92937 


003301 


INPUT/NUTPJT SCHEQULER -= 10S MONITOR PAGE 183 
JOB INITIALIZATION m- DESCRIPTION 
5568 USE cone 110 
5569 HEAD 120 
5570 » 130 
5571 * 140 
5572 * THE INITIALIZATION ROUTINE IS CHARGED WITH THE RESPONSIBILITY 180 
5573 * OF COMRDINATING THE ACTIVITIES OF THE EXTERNAL SYSTEMS® LISFERS 160 
5574 « AND THE ENTIRE MONITCR STRUCTURE, FROM THE EXTERNAL SIDE, 170 
5575 » AS USERS PLACE DESCRIPTOR ITEMS OF FILES T9 8E PRINTED OR PUNCHEDI80 
5576 » LN 1ae FRINT AND PUNCH FILE QUEUES» RESPECTIVELY. AND CANSE THE 190 
5577 * CORRESPONDING FVENT TO INDICATE THAT ACTIONs THE “INIT® ROUTINE 200 
5578 * IS NOTIFIED, IT THEN MUST READ IN THE DESCRIPTOR FROM THE EXERNALIO 
5579 * FILESs CREATE «a CORRESPONDING INTERNAL REPRESENTATION» AND QUEUE 220 
5580 »* IT UP TO 3E RUNS 230 
5581 * 240 
5582 * WITH REGARDS 79 ACTUAL IMPLEMENTATIONS THE FOLLOWING HAPPENGS 250 
5583 » CHECK TO SEE IF WE HAVE ANY PERIPHERALS NEEDED FOR THIS 260 
5584 * INPUT FILE QUEUE. IF NOT, THERE IS NO NEEN TO READ THE NES 270 
5565 * CRIPTOR BECAUSE WE CAN*®T RUN HIM (OWW NO PERIPHERALS). 280 
5586 * OTHERWISE GET a TCR AND a JOR FOR THE NEW JOR. MOVE IN DaTa FROM 290 
5587 * THE NOTIFY CONTROL BLOCK (NC8) TO THE JO8 CONTROL 8LOCK (JIC3)e 300 
5586 * LOCK THE INPUT FILE QUEUE 310 
5589 » UPDATE THE INPUT FILE QUEUE 320 
5590 * GET A READ SUFFER 330 
5591 * READ DESCRIPTOR ITEM INTO CORE 340 
5592 * OPEN NAMED FILE 350 
5593 »* RELEASE BUFFER 360 
5594 »* FINISH DESCRIBING INPUT IN JCB 370 
5595 * PLACE THE NEW REQUEST ON A WAITeWANITNG@TON@RUN QHEUE 380 
5596 »* UNLOCK THE INPUT FILE QUEUE 390 
5597 * WAKE UP THE SCHEDULER 400 
5598 * LOOP To HIT EOF oF INPUT FILE QUEUE 410 
5599 » UPON HITTING THE ENDs REISSUE THE NOTIFY 420 


MBR 


END 


OL 09"17=71 


003301 000033 
093302 003171 
003303 000736 
003304 006036 
003305 900000 
003306 900077 
003307 093315 
003310 990003 
NN3311 ON BIO 
003312 000013 
OF BINARY CARD 
003313 003303 
003314 777777 
003315 001467 
003316 0901505 
003317 000006 
003320 000005 
003321 oc0008 
003322 000006 
003323 000005 
003324 000030 
003325 900000 
093326 000031 
093327 900001 
003330 900017 
093331 905720 
093332 003334 
003333 900016 
003334 pooto04 
003335 900035 
003336 900013 


290937 


Oo3sal 


003301 
2340 31 
6000 00 


003303 

003303 
7000 00 
coon 1 

Q93305 
7200 11 
3600 03 
6000 oo 


1000 03 
4000 429 
1000 03 
19800106 
6009 00 
7100 00 
093315 
093315 
7000 00 
003316 
7000 00 
4460 11 
4410 16 
2220 11 
7420 11 
7420 16 


2200 12 
7400 16 
7200 12 
7400 16 
2200 03 
1020 03 
6000 00 
2200 O83 
4400 16 
62350 12 
624N 16 


INPUT/OUTPUT SCKEDULER == 


5661 
5602 
5603 
5604 
5605 
5606 
$607 
5606 
5609 
5610 
S611 
5612 
5613 
5614 


5615 


5616 
5617 


5618 


5619 
5620 
5621 
5622 
5623 
5624 
5625 
5626 
5627 
5628 
5629 
5630 
5631 
5632 
5633 
5634 
5635 
5636 
5637 


JOB e= SET UP 


-_— + &£ # f 


NIT 


INI TOG 


INT0N20 


s 


USE 
HEAD 


Bss 
SZN 
TZE 


CODE. 


0 
CSRUNeTs 
CENSRVX 


INOS MONITOR 


SETUP 


PAGE 


TEST TO SEE tF ANY PERIPHERAL OPFNED 
EXIT IF NONE OPENED 


LOCK THE INPUT FILE QUEUE 


Bss 
LOCK 
TSX 
ARG 
CHECK 
LXL 
ANX 
TZE 
CMPX 
big a2 
CMPX 


TZE 
TRA 
BSS 
GETT 
TSX 
GETJ 
TSX 
SX 
SXL 
LDx 
STX 
STXx 


MOVE 


LDXx 
STX 
LXL 
STX 
LDX 
CMPx 
TZE 
LDX 
SXL 
EAX 
EAX 


0 
(CSOFRN,T) 
Os SLOCK 
CSOFRNsT 


LOCK THE 


INPUT QUEUE 


INTO OsBSBZsINITOsBSLOCKSINITO 


OsTSSRWieT 


OsBSSTMKs. DU 


INTO.O 
028$827eDU 
INTTO 


OsBSLOCKS,DU 


INITO 
SERROR 
i) 


Os TSGCETT 


Os JEGETY 
JeTS$ICSBL7T 
Te JSTCB.Y 
Xa TSLINKST 
Xe TSNC8,LT 
Xe JENC2LJ 


OsCSQFRNoX 
Og JEOFRNSJ 


Oo CSOFLOCsX 
O,JSOFLOCSJ 


OsASLPa nU 

XoCS$LPE.DY 
#42 

Os ASCP.DU 


Os JEACOIDESJ 


YsCSRES,X 
ZeJSRES.J 


GET A NEW TASK BLOCK 


GET A JOB CONTROL ALOCK 


SAVE PTR 
SAVE PTR 
GET BACK 
SAVE PTR 
SAVE PTR 


DATA FROM NCB TO NEw BLOCK 


(JCB) 


To JCS 

TQ TC8ex*DaG 
PTR TO NCBA 
TO NCB 

TO NCBeeeDBG 


GET FRN OF FILE CORRESPONDING TO 
EVENT NOTIFIED 


GET FILE 
AND SAVE 
GET 

sEE 

YES 

NO. IT 
SAVE FoR 


SOURCE 
IT 


(READ) PTR 


ACCOUNTING NUMBER FOR LINE PRINTER 
IF If Ig JHE LINE PRINTER 


1S THE CARD PUNCH 


ACCOUNTING 


PTR TO RESNURCE NEEDS 
PTR TO WHERE THEY GO IN JCB 


184 


440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 


580 


590 
600 


610 


620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 


MBR 


END 


END 


OL O9=17=71 


093337 ocans® 
003340 777777 
OF BINARY CARD 
003341 00011 
003342 000006 
003343 000027 
003344 onooor 
003345 g9000r 
0093346 0903353 
003347 onno0n 
003350 000927 
003351 070001 
003352 003343 
003353 000726 
003354 oc0000 
003355 ocon000 
003356 000077 
003357 003363 
003360 000003 
003361 003353 
003362 777777 
003363 000100 
003364 001152 
003365 o00ni1 
003366 000536 
OF BINARY CARD 
003367 O0000N 
003370 o00011 
003371 ooo00! 
003372 on0000D 
003373 onooco 
003374 000077 


990937 


2350 12 
3750 03 
19899107 
7350 09 
7550 16 
NO3I343 
7440 11 
2380 13 
7550 14 
6040 09 
6240 05 
C2an 14 
0230 03 
7100 00 


903353 
7000 00 
cacn 16 

193355 
7200 11 
3600 083 
6000 90 
1900 3 
6000 00 
7100 00 


003363 

003363 
2350 07 
7070 cO 
7550 16 


003366 

003366 
7006 0o0 
190899108 
0000 16 
o00N 16 
poann 03 
coco 03 

003373 
7200 jt 
360n 03 


5656 
5657 
5658 
5659 
5660 


5661 
5662 
5663 
5664 
5665 
5666 
5667 


5668 


INTOol 


* 
* 


* 


I 


NIT2 


INPUT/OUTP IT SCHEUULER == 


JOR «= SET UP 


LDA 
ANA 


ALS 
STA 
BSss 
STX 
LDA 
STA 
TMI 
EAX 
ADLX 
ADLX 
TRA 


CBRESaX 
150 


g 
JSESTATIZJ 
0 


Ze TSTEMPIi eT 


OsY 
OaZ 
INIT 
Ze De AL 


ZoTSTEMPLsT 


YoleDy 
INTO*4 


UPDATE FILE 


UPDATE 
TSX 
ARG 
CHECK 
LXL 
ANX 
TZE 
CMPx 
TZE 
TRA 


(JBQFRNeJ) 
Os BUPDATE 
JSQFRNSJ 


INIT2,8$8ZeINITI 


OsTSSRWLeT 


Oe 3SSTMKoDU 


INIT2 
053$87.D0U 
INIT1 
SERROR 


IGS MONITOR 


COMPUTE STATE 
FOR JOR INITIATEON 


wawWHEW 2d 
SAVE FOR RIN 


SAVE PTR 


GEY NEXT NEED 

SAVE IN JCB 

TEST FOR DONE 

GET NUMBER REQUESTED IN 2 
PLUS OLN PTR 

BumeP Y PTR TOO 


LaaPp 


UPDATE INPUT QUEUE 


GET A BUFFER TO READ IN NExT JOB 


BSS 
GETC 
LDA 
TSX 
STA 


0 
(QBFSZ,DL) 
OBFS7eDL 
LeaRSGETC 
JERBUF SJ 


GET A BUFFER 


SAVE BUFFER POINTER 


READ tNFORMATION INTO CORE 


BSS 
READ 
TSX 


ARG 
ARG 
ARG 
ARG 
CHECK 
LXb 
ANX 


0 


(JSQFRNeJ) eo (JSBUF SJ) ao (1eDU) a (OeDU) 


Os BREAD 


JSOFRNSJ 
JSBUF eJ 
1.DU 
02eDU 


INI T4e8S$BZeINIT32BSEC0OF sINITX 


Oo TSSRWisT 


OsBSSTMKeDU 
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990 

1000 
1010 
1020 
1030 


1040 
1050 
1060 
1070 
1080 
1090 
1100 


1110 


MBR 


END 


OL 09-17-71 


003375 003403 
003376 oo00002 
003377 003366 
on3400 0nn016 
003401 9003531 
003402 777777 
005403 oocoll 
003404 900001 
003405 99093413 
008406 go000! 
003407 on0001 
Onséio 900006 
003411 900031 
003412 003366 
003413 900026 
003414 000002 
OF BINARY CARD 
003415 o00001 
003416 000003 
003417 900002 
003420 000063 
003421 000003 
003422 9000003 
003423 900004 
003424 000004 
003425 000027 
003426 900003 
003427 o00001 
003430 004772 
003431 9000025 
004772 944000 
004773 926400 
003432 090667 
003433 090027 


9920937 INPUT/OUTPUT SCHEUJULER e= 105 MONITOR 
JOB == SET UP 
6000 09 TZE INIT4 
1aen o3 CmPx Os,BSA7—50U 
600N 09 TIF INUT 
1000 o3 CMP xX NsosRSEOF, DU 
6000 0 TZE INIT 
7109 0 TRA SERROR 
5669 * 
5670 »« INFORMATION READ 
5671 * 
093403 5672 INIT4 855 0 
2220 16 5673 LOX Xo JSRUF LJ 
22NN 12 5674 LDXx Os TNSZaX 
6910 00 5675 TNZ INT4,2 
2220 03 5676 INT4.14 LDX XeleDU 
N420 16 5677 AS% Xe JSOFLOCaT 
2220 11 5678 LOX Xe TSNC3I.T 
0540 12 5679 AOS CS$QF1.0C,%x 
7100 Go 5680 TRA INITS 
003413 5681 INT4e2 B83 0 
7400 11 5682 Six Os TSTEMP2aT 
2240 12 5683 LOX ZaTYPEsX 
1NS00109 
3640 03 5684 ANX Za TYPMK,DU 
7440 16 5685 SYX Za JSTYPEaJ 
7240 12 5686 Lod. Za DISPax 
3640 03 5687 AN} ZsDISMK,DU 
4440 16 5688 SxXL Ze ISNISP ad 
2240 12 5689 LOX Ze ACOCEsX 
7440 16 5690 Six Ze JEACONE SS 
6200 12 5691 EAX Os TN» 
7400 11 5692 SX O,TSTEMPI ST 
2200 16 5693 LOX Os JSTYP oJ 
3600 03 5694 ANX OsTYPMK, Dy 
2200 10 5695 Lox Os TABLE 0 
7400 11 5696 Six Os TS TEMP 3aT 
5697 * 
5698 * 
004772 5699 USE CONSi 
004772 5700 TABLE $$ 0G 
0000900 5701 ZERO 512% 36, 
000000 5702 ZERO S29*365 
003432 5703 USE PREVIOUS 
5704 * 
5705 * 
5706 * OPEN FILE 
5707 * 
003432 5708 INIT5 8s3 0 
003432 5709 orpEN 
7900 oO TS O2S0PEN 
soon 114 ARG TSTEMP1.T 


PAGE 


GET BACK BUFFER POINTER 
GET TREE-SI7E 

GOT A TREE@SIZE 

BUMP READ PTR TO NEXT 
IN JCB 

AND IN THE NCB 


AND READ AGAIN 


SAVE IN TASK BLOCK 
GET TYPE 


MASK TO TYPE ONLY 

SAVE IN JBLOCK 

GET DISPOSITION 

MASK TO DISPOSITION 

SAVE IN JBLOCKs ALSO 

GET ACODE FOR ACCOUNTING 
SAVE IT 

GET POINTER TO TREE=NAME 
SAVE ONLY FOR OPEN 

GET BACK TYPE 

ISOLATE TyPE 

GET CORRESPONDING ELEMENT SIZE 
SAVE ONLY FOR OPEN 


512 ELEMENT SIZE 
320 ELEMENT SIZE 


CTETEMP Leo TI o(TETEMP2eT) os (LoD) o(TSETEMPSeT) eo (00D) 


146 


1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 


1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 


1510 
1520 


MBR OL O9817=71 
093434 oo0o02é 
003435 oaondoi 
003436 000025 

END OF BINARY CARD 
093437 ocooo0n 
0034490 )6«6ogoate 
003441 0900077 
093442 0903450 
003443 000003 
093444 903432 
003445 900005 
003446 0603406 
003447 777777 
005459 oo000N 
003451 oonoce2 
003452 on000l 
003453 090012 
003454 g00012 
003455 000006 
003456 900031 
003457 000032 
003460 00nN11 
003461 000000 
03462 ocoool 
003463 003465 
003464 920000 

END OF BINARY CARD 
003465 00002 
003466 09063470 
003467 10000 
003470 ood0i10 
003471 oo0011 
003472 004252 
003473 003577 
003474 990004 
003475 000004 
003476 900006 
003477 000034 


092937 INPUT/QUTPT SCHEDU, ER == TUS MONITOR PAGE 
JO3 == SET UP 
seco 11 ARG TSTEMP2,T 
coco 03 ARG 1,04 
9aco 11 ARG TSTEMP3.T 
19800110 
o000 03 ARG 0.DU 
NO344C 5710 CHECK INI T6c3S$BZeINITSsBSITNoINT4e1 
7200 11 LXL Os TSSRWioT 
3600 083 ANX Os BSSTMKs DU 
6000 00 Tze iwiTsd 
1000 03 CMPX 0,8$97,DU 
6000 00 TZE INITS 
1000 03 CMP Xx Os BSI TNs» DU 
6§o0co 00 TZE INT4,14 
7100 90 TRA SERROR 
5711 * 
5712 * FILE OPENED. FINISH UP 
5713 * 
003450 5714 INIT6 885 0 
2200 11 S715 DX Os TSSRALoT GET FRN OF FILE 
7400 16 5716 six Os JSFRNoJ SAVE IT 
2200 if 5717 DX Os TSSRW2aT GEY NUMBER OF UNITS 
45°0 16 5718 372 JSSI7VESJ CLEAR STORAGE AREA 
4400 16 5719 SXL Os JSSI7ZEsJ SAVE SIZE FOR LATER DECISIONS 
22009 11 5720 DX Os TSNCS,T GEY SACK POINTER TO NCB 
0540 10 5721 Aos CS$OFLOC sO BUMP Ryw PTR TO NEXT 
0540 310 5722 aos CS$BUSYs0 BUMP THE 8USY COUNT 
2220 16 5723 LpXx Xe JS3UF oJ GET PTR TO INPUT BUFFER 
2350 07 5724 LDA 0s DL ByILD MESSAGE wORD 
7200 12 5725 LAL Os BANRsX GET 3ANNER BITS 
6010 00 5726 TN? *+2 NO BANNER 
2750 03 5727 ORA BSHDRMK,DU OR IN BANNER BIT 
10SN0111 
2200 12 5728 0X O» TYPE sx GEY OUTPUT FORMAT 
6n00 00 5729 T2E %42 OKs, 512 FORMAT 
2750 03 5730 ORA BSOUTMKs DU OR IN 320 FORMAT 
7550 16 5731 STA JSMESS,J MESSAGE BUILT EXCEPT FOR JOS NUMRER 
NO3471 5732 RELC (y$BuF es J) RELEASE THE BUFFER 
2350 16 LDA J$BUF es J 
7070 09 TSX LoRSRELC 
5733 * 
5734 * FAKE THE REstAry ADDRESS 
5735 * 
6200 a0 5736 EAX OsRUN RESTART ADDRESS 
7400 11 5737 3TX OstTSTRAsT PLACE tN TCB 
5738 * 
5739 * PLACE ON PROPER WAIT QUEUE 
5740 * 
6200 11 5741 EAX OsgSOFF stat GE; OFFsE&T POINTER 
2210 11 5742 LDX ToTSNCBST GE7 BACK PTR TO NCB 
2259 a4 5743 LDX G»aCSQUEVEsT Gey PTR TO QUEUE LIST 


187 


1530 


1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 


1710 
1720 
1730 
1740 
1750 


1760 
1770 
1780 
1790 
1800 
1810 
1820 
1430 
1840 
1850 
1860 


MBR 


END 


OL 19—17—7 1 


093500 90572N 
003501 903517 
003502 oo0n02 
003503 093507 
003504 9005677 
003505 005672 
003506 903511 
003507 05671 
003510 9054673 
003511 00012 
003512 903517 
OF BINARY CARD 
003513 003516 
003514 005260 
003515 003517 
003516 005240 
003517 oco002 
003520 000746 
003521 oco003n 
003522 oc0006 
003523 000077 
003524 003530 
003525 900003 
003526 09093520 
003527 777777 
003530 003303 
003531 000746 
003532 on0000 
003533 900060 
003534 000077 
003535 003541 
003536 000003 
003537 003531 
003540 777777 


990937 


1910 03 
6019 O90 
2230 12 
601n a0 
2350 00 
2360 00 
7100 00 
2350 090 
2360 00 
1110 16 
6049 oo 
190809112 
6019 00 
2250 03 
7100 00 
2250 O38 
093517 
7179 15 


903520 


003530 
7100 00 


NO35S31 
903531 
7aoro 00 
0000 16 
0903533 
7200 11 
3690 O83 
6000 00 
1000 403 
6000 00 
7100 00 
003541 


5744 
5745 
5746 
5747 
5748 
5749 
5750 
5751 
5752 
5753 
5754 


5755 
5756 
5757 
5756 
5759 
5760 
5761 
5762 
5763 
5764 
5765 


5766 


5767 
5768 
5769 
5770 


5771 
5772 


5773 
5774 


5775 


5776 


INPUT/OUTPUT 


JOB = 


INIT7 


INT T8 


NITX 


INTX1 


SCHEDULER == 10S MONITOR 


SET uP 
CMPX TaCSLPE.NU 
TNZ INIT9 
LdK Va tTVOE sy 
TNZ INTT7 
LDA R$8,512 
LDa R$M.512 
TRA INITS 
LDA R$S.321 
LD RSM.329 
CwL JSSI7EsJ 
TMI INITS 
TNZ #43 
LDX QsQ9SINPS32DU 
TRA INIT9 
LDX QsASINP2eDU 
8Ss 0 
XED OSXaANnDs.d 
UNLOCK THE quEve FILE 
BSs 0 
UNLOCK (CSQFRN,T) 
TSX Os SUNLCK 
ARG CSOFRNeT 
CKECK INT11e8SBZeINTIO 
LXL OsTSSRWisT 
ANX O,8SSTMKs.DU 
TZE INTA1 
CMPX 0.B$R7,0U 
TZE INT1O 
TRA SERROR 
BSS 0 
TRA INIToO 
EGF REACHED 
BSss 8) 
UNLOCK (JSQFRN,J) 
TSX o,$UNLCK 
ARG JSOFRNe J 
CHECK INTx1eS$BZeINI Tx 
LX Os TESRWieT 
ANX O,8SSTMK.,DU 
TZE INTX1 
CMPX 022982. DU 
TZE INITY 
TRA SERROR 
BSS 0 


PAGE 


TEST FOR LINF PRINTER JOS 
NO» NOT ALP JO8 


GEy Its 7yYPE (512/320 FORMAT) 
SKIP IF 320 


DO COMPARE WITH THESE LIMITS 


TEST WITH 9 GETS HIM 
LARGEs ON QSINPI 
SHORT? 

MECIUM 

PLACE ON @ 

SHORT 


PLACE ON QUEUE LIST 


UNLOCK THE FILE QUEUE 


SEE IF MORE 


UNLOCK THE QUEUE FILE 
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1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 


1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 


2090 


2160 
2110 
2120 
2130 
2140 
2150 
2160 
2170 


2180 


2190 


MBR 


END 


END 


OL 09"17=71 


OF BINARY CARD 
003541 ooGcoil 
003542 001252 
003543 961467 
003544 o0090C 
003545 000005 
003546 oo0n00 
003547 992565 
003550 000004 
003551 000004 
003552 005162 
003553 900005 
003554 525261 
003555 525261 
003556 001511 
003557 co00000 
003560 000006 
003561 001467 
003562 9000000 
003563 900005 
003564 003171 
003565 900004 
003566 900004 
OF BINARY CARD 
003567 005162 
003570 000000 
003571 525262 
003572 525262 
003573 001477 
003574 000000 
003575 001477 


590937 


N03541 
1NSd0113 
2350 16 
7070 90 


003543 
700N 00 
622n it 
2210 12 
6210 12 
6200 00 
7470 11 
6200 11 
7179 90 
2210 12 
N03554 
525261 
2200 03 
2220 03 
003556 
7000 oO 
6230 11 
2a10 11 


003561 
7000 00 
6220 11 
2210 12 
6200 00 
7400 11 
6200 11 
10800114 
7170 00 
6210 12 

003571 

525262 
2200 O83 
2220 03 


903573 
7000 00 
6210 13 

003575 
7000 00 


5777 


5778 
5779 
5780 
57A1L 


5782 


5783 
5784 
5785 


* * 


BUG3UG 


5786 * 


5787 
5788 


5789 
5790 


5791 
5792 


5793 
5794 


BUGRUG 


INPUT/OUTPIIT SCHEUULER == 


JOB «= SET UP 


RELC 


UDA 
TSX 


WAKE (1P 


BRAWCH 
TSK 
E.AX 
1 DX 
EAX 
EAX 
STX 
EAX 
XED 
1,DX 
BUGXR 
SET 
LDX 
1,DX 
RELJ 
TSK 
EAX 
iDX 


198 MONITOR 


(JBRUF eJ) RELEASE THE RIFFFR 
J$BUFeJ 
Lea RSRELC 
THE sCHEDULER 
NOPASSsRSSKED TRY TO START THE DUDES 
Os, TE&GETT 
Xe0eaT 
Te TS_INKex 
ToDeX 
OsRSSKED 
OsTSTRAsT 
Os QSOFFSTsT 
OSXAND+QSTASK 
Ta TELINKSX 
(OsX) 
BUGBUG+! 
Os BUGBYyGe DU 
XsBUGBUGs* DU 
RELEASE JC8 
Os J$SRELJ 
YaQeT 
Ts TSNC3,7T 


SAVE PTR TO CURRENT TCR 
GET BACK NCB 


RE*ISSUE NOTIFY 


BRANC,, 
TSX 
EAYX 
LDyx 
EAX 
STXx 
=AX 


XED 
EAX 
BUG xR 
SET 
LDX 
LDX 


RELEASE 


RELT 
TSX 
EAX 
RELT 
TSX 


PASSaCENSRVX 
Os TSGETT 
XeOet 

Ta TSLINKa x 
OsCENSRyX 
OsTSTRA,T 

Oo DSOFFSTsT 


SETU® TASK TO RE=;SSUE NOTIFY 


QSXAND+OSTASK 
Ta OaXx 

(00X) 
BUGBUG+1 


O»BUGBUG.™DU 
XeBUGBUGsDU 
REMAINING RESOURCE 


RELEASE NEw YCB 


Oo TSRELT 

Ta0eY RESTORE TO OLD TCB 
REILEASE THE TRAP BLCOK 

OsTSRELT 


PAGE 


{a9 


2200 


2210 
2220 
2230 
2240 


2250 


2260 
2270 
2280 
2290 
2300 
2310 


2320 
2330 


2340 
2350 


2360 
2370 


MBR Q1 Q9-17-71 092937 INPUT/OUTPUT SCHEDUI ER == 19S MONITOR PAGE 190 


JOB == SET UP 


093576 5795 EXIT EVAPNRATE 2380 
003576 003074 7100 oOo TRA SEXIT 
5796 *&e nts« RUN 2390 


MBR 


END 


OL 09917271 


093577 000767 
003600 006221 
005601 000901 
003602 000006 
003603 on0010 
003604 oc0002 
003605 000021 
005606 ooo00c 
003607 000077 
003610 003614 
003611 000003 
003612 003577 
003613 777777 


OF BINARY CARD 


003614 go000n 
009615 0903577 
005616 003640 
003617 9c0005 
003620 000007 


992937 


003577 


093577 


003577 
003577 
7000 00 
0000 00 
coco a3 
on0o 16 
oo00 16 
coco 16 
0000 og 
003606 
7200 11 
3600 03 
6000 a0 
1000 o3 
6000 00 
7100 00 
003614 
10800115 
2220 31 
60C0 a0 


6200 oo 
4400 i1 
2360 16 


INPUT/NUTPIT SCHEDU) ER == 


5798 
5799 
5600 
5851 
5802 
5803 
5act4 
58ns 
5806 
5807 
5898 
5809 
5810 
5811 
5812 
5813 
5814 
5815 
5816 
5817 
$818 
5819 
5820 
5621 
5822 
5823 


5824 


JOB -= RUN 


**+ #¢#DO © 4 © # eee eH HH ee Re 
Cc 
Zz 


RUN1 


USE 
HEALY 


10S MONITOR 


CODE 


RUN 


THIS ROUTINE RUNS THE NEXT JCB 


IT IS ENTERED ONLY AFTER «a JOB HAS HAD ALL ITS RESOURCE 
(TeE. ALL RESQURCES ALLOCATED Ty IT). 
7O THE SUBMODULE, 
THE INPUT FILE 


REUQESTS SATISFIED 
teem d 
THAT MEANS ISSUING A CAUSE PASSING THE FRN OF 
AND A MESSAGE WORD DESCRIBING WHAT TO DO WITH 
STATE TELLS WHAT PERIPHERAL TyPE IS TO BE THE 
AFTER a SUCCESSFUL CAUSE, 
STATE CORRESPONDS TO THE JOS NUMBER WHICH ARE 


ALL 


NEED 5 DONE 1S PASS THE INFORMATIGN 


ITe 


WE PUT OUT A NOTIFY 
UNTOU 


CAUSENs, WE GO TO JOB TERMINATION, 


CALL wITH 


8353 


CixXT) = JOB=CONTROL@=BLOCK ADDRESS 
ALL RESOURCES ALLOCATED 


0 


ISSUE CAUSE fO START JOB 


CAUSE 


evo 
TSX 
ARG 
ARG 
ARG 
ARG 
ARG 
ARG 
CHEC 
xt 
ANX 
TZE 
CMP Xx 
TZE 
TRA 
8SS 


LOX 
FZE 


PUT 
EAX 


SXL 
LDG@ 


K 


OUT 


CSFRN2,(1eDU) a (JSSTATI oJ) o (JSMESSsJ) 
(JSFRNeJ)o(ASRD+8SLKeDU) 
Os S8CAUSE 

CSFRN2Q 

1eDu 

JESTATI oJ 

JSMESSsJ 

JSFRNOJ 

BSRD+BS_Ko DU 
RUN1s68Q8272eRUN 

Co TSSRWisT 

OsBSSTMKs*DU 

RUNI 

028%$87.DU 

RiyN 

SERROR 

0 


GET NUMBER OF PEOPLE CAUSED 
NQ ONEs TRY AGAIN 


Xa TSSRwWisT 
RUN 


A NOTIFy ON THIS JOB 


Co TERM GET RESTART ADDRESS) 
OsCSR_INKeT SAVE In TCB 
JSSTATTsJ GET THE TERMINATE STATE 


THE 


E. 


PAGE 


NUPUT DEVICE TyPE. 
ON THE JOB, 


WHEN 


191 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 


370 


380 


390 
400 
410 
420 
430 
440 
450 
460 


MBR 


G1 O99817=71 


0N3621 
093622 
003623 


093624 
093625 
005626 
003627 
093630 
005631 
093632 
093633 


003634 


003635 


003636 
003637 


900025 
00622C 


000024 


0101467 
900900 
900005 
ONnS1i7i 
000004 
000004 
9005162 
900000 


525263 
525263 


001477 


003074 


590937 


7560 11 
2360 00 


003634 

525263 
2200 O83 
2220 03 


003636 
7090 00 

003637 
7100 00 


INPUT/OUTPUT SCKEDULER == 10S MONITOR PAGE 
JOB © RUN 
5834 STO TSTEMP3,T SAVE FOR COMMUNICATIONS 
5835 LDe@ CSFRNY GET ERN FOR NOTIFY 
5a34 era TOTEMPALT SAVE FOR COMMUNICATIONS 
5837 BRANCH PASS,sCENSRVX PUT QUT a NOTIFY 
TSX Os TSGETT 
EAX XeO0e7T 
LDx To TSLINKoX 
EAX Os CENSRVX 
STX OsTSTRAsT 
EAX OsQBOFFSTaT 
XED QSXANCD+a$TASk 
EAX Taek 
BUGXR (02x) 
BUGBUG SET BUGBUG 41 
LDx OsBUGBUGS.DU 
LDX X»B8uGBUGsDU 
5836 * 
5839 * FINISH UP 
5840 * 
5841 RELT RELEASE TRAP BLOCK 
TSX Qa TSRELT 
5842 Exit 
TRA SEXIT 
5843 *S« DISK TERM1 


192 


470 
480 
490 
500 


510 
520 
530 
540 


550 


560 


MBR OL 19"147=71 
003649 «66000001 
END OF BINARY CARD 
003641 900012 
003642 000917 
003643 gn0010 
003644 777777 
003645 003646 
003646 777777 
003647 777777 
003650 «6000367r 
003651 777777 
003652 777777 
003653 777777 
003654 003670 
003655 777777 
003656 061017 
003657 000004 
003660 000012 
003661 900001 
003662 900000 
003663 000077 
003664 003679 
003665 000003 
003666 003656 
END OF BINARY CARD 
003667 777777 


090937 


993640 


603640 
2360 41 
10800116 
7720 00 
3760 03 
1160 03 
6039 oOo 
7100 22 
£000 90 
coon oo 
ooco oo 
coco 00 
9090 00 
ooco ao 
9000 40 
oneo oo 

900010 


003656 

003656 
70CQ 00 
0000 16 
go000 16 
$000 03 

003662 
72eo 11 
36C0 C3 
6000 00 
1000 03 
6000 00 
I1NS00117 
7100 00 


INPLUT/NUTPUT SCHEDULER <= 


9845 
5846 
5847 
5846 
5849 
5850 
5851 
5852 
$853 
5854 
5855 
5856 
5857 
5858 
$859 
5860 
5861 
5862 


$863 
5864 
5865 
5866 
5867 
5668 
5869 
5870 
5871 
5872 
5873 
5874 
5875 
5876 
5877 
5878 
5879 
5880 
5881 


5882 


10S MONITOR PAGE 


JOS e= TERMINATION 


—+n2#e © *# &@ Se 2H 8 HH ER 


ER™ 


CMDT8 


use Code 


HEAD 


TERMINATION 


JOB TERMINATION DOES THE FOLLOWINGS 
DOES ACCOUNTING REPORT 
ALLOCATES A WORKING BUFFER 
ACTS ON DISPOSITON CODE 
MARKS INPUT FILE DESCRIPTOR AS DONE 
TRIES To SCRATCH THE INPUT FILE QUEUE 
RELEASES JOBS RESOURCES 
AWAKENS SCHEDULER 


BSS 0 

LDG@ TSSRW2eT GET MESSAGE FROM SUBMONULE 
GRL 18-494 RIGHT JusrIFY IN OV 
ANQ 4017,5DuU MASK TO COMMAND 

CMPQ CMAX,DBU TEST VALIDITY 

TRC SERROR zuaPROBLEM 

TRA *o1e2dUe BRANCH ON COMMAND 

ARG SERROR O s ILLEGAL 

ARG SERROR 1 = GET (ILLEGAL) 

ARG TERM} 220 KILL 

ARG SERROR 3 2 RELEASE (ILLEGAL) 
ARG SERROR 4 = XXXX CILLEGAL) 
ARG SERROR 5 = RESTART (ILLEGAL) 
ARG TERM 6 = DONE 

ARG SERROR 7 w= READY (ILLEGAL) 
EQU a#=2CMDT3 NUMBER QF COMMANDS 


ACCOUNTING REPORT 


88S 0 

accy (JSACODEsJ o(JSSIZEsJ)o(yo0U) WRITE BILLING INFN 
TSX O,3ACCT 

ARG JSACODE, J 

ARG JSSIZEaJ 

ArgG 1,D0u 

CHECK TERM1238$87sTERMO 
LXL OsTSSRW1sT 

ANX OsBSSTMKeDU 

TZE TERM] 

CMPX 0.B$8Z.DU 

TZE TERMO 

TRA SERROR 


193 


439 


MBR 


END 


OL 09417=71 


003670 66900100 
003671 991152 
003672 o00011 
093673 annoo3 
003674 000003 
003675 003676 
003676 903701 
003677 0063733 
003700 003744 
ON3S701 70006564 
003702 oc0n0007 
003703 oo0001 
093704 o0001i! 
003705 900001 
003706 ocon000 
003707 100077 
003710 003714 
003711 900003 
003712 003701 
003713 777777 
003714 on0011 
OF BINARY CARD 
0035715 900004 
003716 000027 
003717 000714 
003720 000027 
003721 ocoool 
003722 000001 
003723 onon00 
003724 000077 
003725 903733 
003726 900003 
003727 003714 
003730 6900005 
003731 003744 
003732 777777 


390937 INPUT/OUTPUT SCHEDULER == 10S MONITOR 


JOB == TERMINATION 


203670 5883 TERML 85S 0 
5884 * 
5eae2& » ALLOC*¢TE A yNDW ING BUFFED 
5886 * 
093670 5887 TRM1 BSS 0 
003670 5888 GETC (QBFszeDL) GET A wORKING BUFFER 
2350 07 LDA QOBFS7eDL 
7070 00 TSX LeaRSGETC 
7550 16 5889 STA JSBUF 2 J SAVE BUFFER POINTER 
72°00 16 5896 LXt Os JENISP.J GET DISPOSITION RULE 
36C0 11 5agi ANX O,DISMKLT ISOLATE DISPOSITION RULE 
7100 30 5892 TRA +1 _0% FOLLOW THE RULES 
poco oo 5893 ARG TRMD DESTROY 
nonn 00 5894 ARG TRMS SCRATCH 
coca a0 5895 ARG TRMC CLOSE 
5896 *# 
5897 * DESTROY SOURCE FILE 
5896 * 
003701 5899 Trap BSS 0 
003701 5900 RRF CJSQOFRNs J) eo (JSOFLOCe J) o ( sSBUF es J) a (12D) 
7000 00 TSX O,SRRF 
oo%0 16 ARG JSOFRNe J 
coco 16 ARG JSOFLOCLJ 
go9°0 16 ARG JSBUF.J 
0090 03 ARG 1.Dy 
003706 5901 CHECK TRMD1»B8S$B2ZeTRMD 
7200 if LX Os TSSRWieT 
3600 G3 ANX Os BSSTMKS.DU 
6000 00 Tze TRMD1 
1000 O03 CMPX 0sB$87,0U 
6000 00 TZE TRMD 
7100 00 TRA SERROR 
2220 16 5902 TRMpL LDX 2eJSBUFSJ GET POINTER TO BUFFER AREA 
10800118 
6350 12 5903 EAA TNe2 GET PTR TO TREE NAME 
7550 114 5904 STA TSTEMPI1.T SAVE FOR DESTROY 
003717 5905 DESTRN (TSTEMPyoT) eo (TNS72e2)0(1eDU) 
7000 00 TSX O,SDESTRO 
o0cn ii ARG TSTEMP1,17 
nota 12 ARG INSZs2 
once 03 ARS L.Du 
003723 5906 CHECK TRMSsBEBZe TRMDISBSITNe TRMC 
7200 11 LXL Os TSSRW1eT 
S6CO 03 ANX OeoBSsTMKsDU 
6000 00 TZE TRMS 
1900 03 CMP x O0,B8887.DU 
6000 00 TZE TRMD} 
1000 03 CMPX OsASITN,DU 
60009 00 TZE TRMC 


7100 00 TRA SERROR 


670 


680 
690 


700 
710 


720 


MBR 


OL O09817=71 


003733 000612 
003734 000002 
093735 00000 


003736 000000 
003737 000077 
005740 003744 
003741 000003 
003742 903733 


END OF BINARY CARD 


003743 777777 


003744 000704 
005745 000002 


003746 ooo00r 
003747 000077 
003750 003754 
0035751 000003 
003752 003744 
003753 777777 


003754 g00011 
003755 000001 
003756 o00001 
003757 777777 
003760 176300 
003761 900000 


003762 000577 
003763 000000 
003764 000001 
003765 000011 
003766 000001 


005767 900000 
003770 000077 


692937 


903733 
903733 


7000 
9o00n 
on00 


6000 


00 
16 
03 


00 


10800119 


7100 


00 


093744 
003744 


7000 
0000 


00 
16 


003746 


7200 
3600 
6000 
1000 
6000 
7100 


it 
03 
00 
03 
00 
00 


003754 


2220 
0220 
3360 
7560 
5202 
4500 


16 


003762 
003762 


7000 
6000 
0000 
0000 
0000 


090 
16 
16 
16 
03 


003767 


7200 
3690 


if 
03 


5907 
5906 
5909 
5910 
59114 


3912 


5913 
5914 
5915 
5916 
5917 


5918 


5919 
5920 
5921 
5922 
5923 
5924 
5925 
5926 
5927 
5928 
5929 
5930 


5931 


TRMS 


TRM2 


TRM3 


TNPUT/OUTPUT SCHEDULER =< 


SCRATCH THE SOlURCE FILE 


88S 
SCR 
TSX 
ARG 
ArG 
LMELA 
Lxt 
ANX 
TZE 
CMP, 
TZE 


TRA 


JOB == TERMINATION 


0 


(JSFRNs J) eo (020U) 


0,3SCR 

JSFRNoJ 

O0.Dy 
TRMCeGSHL2TRMS 
Os TSSRWieT 
OoBSSTMKeDU 
TRMC 

OsBSB7eD0U 

TRMS 


SERROR 


CLOSE SOURCE FILE 


BSS 
CLOSE 
YS€x 


9) 

(JSFRNSJ) 
Oo 8CLOSE 
JSFRNeJ 
TRM2,BESBZaTRMC 
Os TSSRWioT 
Oo BSstTMKeDU 
TRM2 
023$87,DU 
TRMC 

SERROR 


MARK SOURCE DONE 


BSS 
L DX 
ADLX 
LCaQ 
STQ 
RPT 
STZ 
BSS 
WRF 
TSX 
ARG 
ARG 
ARG 
ARG 
CHECK 
LXL 
ANX 


0 

Xe JSSUF.J 
XelsDy 

12D0L 

~19X 
OBFS7=-1,1,TZE 
Osx 

0 


(JSQFRNeJ) a (JSQFLOCe J) o ( JSBUF es JI o (450U) 


Os SwrF 
JSOFRNeT 
JSOFLOCSJ 
JSBUF eS 

aaDu 
TRM4,B8$87eTRM3 
OsTSSRWioT 
OsBSSTMKsDU 


TOS MONITOR 


nSCRATCH THE FILE 


POINT TO BUFFER 
BUMP ONE 

MARK BUFFER DONE 
WITH CHECKSUM @& -]} 
AND WITH THE REST 
OF THE BLOCK ZERN 


195 


730 
740 
750 
760 
770 


780 


790 
800 
810 
820 
830 


840 


850 
880 
870 
680 
890 
900 
910 
920 
930 
940 
950 
960 


970 


MBR 


END 


END 


OL O9"17=71 


OF BINARY CARD 
003771 003775 
093772 900003 
003773 003762 
003774 777777 
003775 oon005d 
003776 oocno! 
003777 906032 
004000 777777 
004001 004024 
004002 000030 
004003 000027 
004004 900026 
094005 001467 
04006 900000 
0n4007 900005 
094010 000027 
004011 900027 
004012 900026 
004013 0009026 
004014 900000 
004015 002765 
004016 000004 
OF BINARY CARD 
004017 000004 
004020 005162 
004021 oon005 
094022 525264 
004023 525264 
004024 900013 
004025 o0cd026 
094026 900000 
094027 94950 
004030 777777 
004031 005570 


590937 


190800120 


6aca 
1aco 
6o0co0 
7100 


903775 


2220 


003776 


3360 
9560 
6040 
6010 


2290 
7400 
7420 


004005 


7000 
6220 
2210 
2360 
7560 
2360 
7560 
6210 
6200 
7400 


10800121 


6200 
7170 
2210 


004022 
525264 


2200 
2220 


004024 


6200 
7400 
2350 
6040 
3750 
1150 


00 
C3 
00 
090 


16 


07 
12 
00 


00 


12 
11 
it 


00 
11 
12 
il 
12 
ii 
12 
12 
00 
it 


it 
00 
12 


03 
03 


16 
11 
10 
00 
03 
03 


5932 
5933 
5934 
5935 
5936 
5937 


5936 
5939 
5940 
5941 
5942 
5943 
5944 
5945 
5946 


5947 
5946 
5949 
5950 
5951 
5952 
5953 
5954 
5955 
5956 


TRM4 


2 


BUGBUG 


INPUT/OUTPUT SCHEDULER 


TZE 
CMP X 
T7E 
TRA 
BSS 


CLEAN \P 


LDX 
DECRM 
LCO 
ASQ 
TMI 
TNZ 


JOB e-= TERMINATION 


TRM4 
0.8%82.DuU 
TRMS 
SERROR 

0 


Xe JSNCBLJ 
(C$BuSY.X) 
1.DL 
CSBUSYsx 
SERROR 
TRM5 


10S MONITOR 


GET PTR YO NCB 
DECREMENT THE SUSY COUNT 


weePRORLEM 
SKIP IN NON#ZERGO 


SETUP TASK TO SCRATCH INPUT © FILE 


LOX 
STx 
STX 
BRANCH 
TSX 
EAX 
LDX 
LDQ 
sta 
LDQ 
STQ 
EAX 
EAX 
SYX 


EAX 
XED 
LDX 
BUGXR 
SET 
LDX 
LDX 


RELEASE 


BSS 
EAX 
STX 
LDA 
TMI 
ANA 
CMPA 


OsCSoFRNeX 
Oa TSTEMPistT 
Xa TSTEMP2aT 


NOPASSsRESCRo(TSTEMPLoT) a (TETEMP2sT) 


Os, TSGETT 
Xa0eT 

Teo TSLINKeX 
TSTEMPI1.T 
TSTEMP1.X 
TSTEMP2,T 
TSTEMP2.X 
TaDeX 
OsRSSCR 
OsTSTRAsT 


Os QSOFFSTsT 


QSXADD+OSTASK 


Tao TSLINK OX 
(02X) 
BUGBUG+41 

0+ BUGBUGs DU 
XsBUGBUGs DU 


RESOURCES 


0 

O,J$RES,J 
Os TSTEMp2sT 
020 

TRMB 

=10D0U 
R3SLPYAB,DU 


GET INPUT QUEUE FRN 
SAVE FOR PASS 
PASS PTR TO NCB 


GET PTR TO RESOURCES 

SAVE PYR 

GET NExyT RESOURCE TO RELEASE 
TEST FOR DONE 

MASK TO TYPE 

TEST FOR A LINE PRINTER 


980 
990 
1000 
1010 
1020 
1030 


1040 
1050 
1060 
1070 
10860 
1090 
1100 
1110 


SCRATCH INPUT QUEUE FILE 


1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 


MBR 


END 


END 


OL O9—817"71 


094032 004043 
094033 o0n012 
094034 906003 
094035 004774 
004774 905672 
004775 905673 
004036 394943 
004037 0n4043 
004040 )6«6©69n0n01 
OF BINARY CARD 
004041 005674 
004042 777777 
004043 900900 
004044 0902447 
004045 900001 
004046 000926 
004047 004025 
0094050 000011 
004051 001252 
004052 901467 
004053 000000 
004054 900005 
004055 9009000 
004056 902565 
004057 900004 
004060 000004 
004061 005162 
004062 900005 
004063 525265 
004064 525265 
004065 000007 
004066 905700 


OF BINARY CARD 


004067 777777 
004070 005700 
004071 001511 


990937 


6010 40 
2360 16 
2220 16 
7140 12 
004774 
1160 00 
1160 0 
004036 
6000 00 
6020 00 
904040 
3360 07 
19899122 
0560 00 
6040 00 
004043 
2350 10 
7079 00 
2200 93 
c2co 11 
7109 00 
004050 
004050 
2350 16 
7970 90 


904052 
7000 00 
6220 11 
2210 12 
6210 12 
6200 00 
7400 11 
62C0 11 
7170 00 
2210 12 

004063 

525265 
2200 03 
2220 03 
7220 16 
2340 12 
10$00123 
6000 00 
4500 12 

004071 
70c0 00 

004072 


INPUT/QOUTPUT SCHEDULER -= 198 MONITOR 


5979 
5980 


5961 
5982 
5983 


5984 


JOB -= TERMINATION 


LPTBL 


TRMA 


BUGBUG 


TNZ 
LDY 


LDX 


TRM7 
JESI7EsJ 
Xs JISTYPESJ 
LPTB1oX 
CONST 
R3M.512 
RSM,329 
PREVIOUS 
TRIM? 
TRM7 
RSLJOBS 
oe 


R$LJOES 
SERROR 
(000) 

020 
LeRSRELP 
Ox isDU 

Os TSTEmMp2eT 
TRM6 

0 
(JSBUF.J) 
J$BUF oJ 
LeRSRELC 


AWAKEN THE SCHEDULER 


BRANCH 
TSX 
EAX 
LDX 
EAX 
EAX 
STXx 
EAX 
XED 
LDX 
BUGXR 
SET 
LDX 
LDX 
Lx 
SZN 


TZE 
572 
RELJ 
TSX 
RELT 


NOPAsSSeRSSKED 
Os TSGETT 
Xe0eT 

To TSLINKeX 
ToDeX 
OeRSESKED 

Os TSTRAST 
OeDSOFFSTsT 
OSXADDs+QSTASK 
To TSLINKeX 
(00X) 
BUGBUG+, 

Os BUGBUGs DU 
Xe BUGBUGs DU 
Xa JIS IQB.J 
JSITABSX 


SERROR 
JSITABSX 


O,J$RELJ 


IF NOTs 

GET SIZE 
AND TYPE 
TEST FOR LONG JOR 


SKIP 


LONG 512? 
LONG 320? 


Te NOs SKIP 


IF NOTs SKIP 
YESe SO DECREMENT COUNTER 


w#anPROBLEM 
RELEASE THE PERJPERAL 


ADD ONE 
To BUMP TO NEXT RESOURCE 
LOOP 


RELEASE BUFFER 


AWAKEN csCHEDULER 


RELEASE JoB NUMBER 
CHECK FOR GOOD BOOKKEEPING 


sae2PROBL EM 
DEALLOCATE NUMBER 
RELEASE JCB 


RELEASE TRAP BLOCK 


PAGE 
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1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 


1340 
1350 


1360 
1370 
1380 
1390 
1400 


1410 
1420 
1430 
1440 


1480 
1460 


1470 
1480 
1490 


1500 


MBR D1 O9—817=71 092937 INPUT/OUTPUT SCHEDULER == 1NS MONITOR PAGE 196 


JOB #= TERMINATION 


004072 001477 700 OO TSX Os TSRELT 
004073 5965 EXIT POOF 1510 
004073 003074 7itsG GS rea "Syrr 


5986 *$«e DISK CRASH 1520 


MBR 


END 


O1 O09817=71 09.937 
N94074 
004074 
004074 
004074 o01517 7070 O90 
004075 
004075 004776 2350 00 
004076 001543 7070 oo 
004776 
004776 004777 0031 40 
004777 177177015012 
005000 120105122111 
004077 
004077 o00007 6350 11 
004100 000540 2750 07 
004101 
004104 001543 7070 a0 
004102 
004102 005005 2350 oo 
OF BINARY CARD 10800124 
004103 001543 7070 oo 
005005 
005005 005006 0024 40 
005006 007007015012 
005007 111117123052 
004104 
004104 
004104 001560 7070 a0 
0904105 000470 7100 oo 


INPUT/OUTPUT SCHEQULER == 195 MONITOR 


5988 
5989 
5990 
S991 
5992 
5993 
5994 
5995 


RAK 


te ded 


5997 
5998 
5999 
6000 
6c0l 
6002 
6008 
6004 
6005 
6006 
6007 


6008 


6009 
6010 
6oi1 
6012 
6013 
6014 
6015 
6016 


6017 


6018 
6019 
6020 
6021 
6022 
60235 


6024 
6025 
6026 
6027 
6026 


SUB=MODULE ABNORMAL TES MINATION om 


RASH 


aenetoe @Beeeetre © #8 £ 


CRMS 


BYEMS 


*Se 


USE 
HEAD 


CAGE 
CRASH 


CODE 


CRASH 


THIS ROUTINE 7S ENTERED WWENEVER ANY SUB=MODULE TERMINATES, 
THAT IS TO SAys THE NOTIFY ON ITS PROCESSS EyENT IS CAUSED, 


—- 


THE CULPRIT AND THEN DOES A SOFT CRASH, 
DO AN INSTANT RESTART AND THEN WE®RE BACK IN THE OLE BALL GAME, 


A MESSAGE TO THE OPERATOR POINTING THE FINGER AT 


THE °LISTENER® WILL 


ENTER WITH 


BSS 


C(xT) = NCB 


0 


TELL OPER THE NEws 


LOGS 
TSX 
LOGC 
LDA 
TSX 
USE 
TALLYS 


USE 
TALLYA 
ocT 
UASC] 
USE 
LOGx 
TSX 


TELL THE OP THE BAD NEWS 
LsOS$LOGS 
CRMS 
CRMS 
LeO0$Losc 
CONST 
#1,2441,0 
177177015012 
5, PERIPHERAL CRASHEDS 
PREVIOUS 
CSABBRT AND WHICH ONE IT WAS 
4eSTAL+STALe+$TALYB, DL 
A 
LsO$LOGC 
ByEMS 
BYEMS 


THAT A SUB@=MODULE CRASHED 


"PERIPHERAL CRASHEDS ° 


SAy SO LONG, FARE*THEE@WELLsAU REVOIR 


LsO$LOGC 
CONST 
#4915194120 
007007915012 
4e10S*ovER & OUT! 
PREVIOUS 


*IOS*OVER & OUT] 


SEND IT 
LeOS$LOSy 


DO A sOFT=CRASH 


TRA 
DISK 


XSTERM BYE=8YE TOOTS 


ANIT 


199 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 


310 


320 
330 
340 
350 
360 
370 
380 
390 


400 


410 
420 
430 
440 
450 
460 


470 
480 
490 
500 
510 


MBR OL 99=017~=71 690937 INPUT/OQUTPUT SCHEDULER w= OS MONITOR PAGE 200 
INTTYALIZATION 
004106 6030 USE CoDE 110 
6631 HEAD 120 
6032 * 130 
6033 * 140 
6034 * INITIALIZATION 150 
6035 * 160 
6036 * THIS POUTINE INITIALIZES THE PERIPHERAL SCHEDULER 170 
6037 * MONITOR BY PERFORMING THE FOLLOWING FUNCTIONS? 180 
6038 » 190 
6039 * FUNCTIONS 200 
6040 « INITIALIZE REGISTERS AND LOCATION ZERO 210 
6041 * SET FAULT VECTOR 220 
6042 * OPEN VARIOUS SYSTEM FILES 230 
6043 * OPEN PERIPHERALS 240 
6044 * OPEN COm FILES 250 
6045 * SPAWN SUBMODULES 260 
6046 * SET UP NOTIFIES 270 
6047 * 280 
6046 * use STORE Put THIs CODE IN THE STORAGE AREA FUDGE SMTOPO 
904106 6049 NIT BSs 0 INITIALIZATION ENTRY 300 
004106 6050 uP EQu NIT 310 
6051 * 320 
6052 * CATCH wILD TRANSFERS TO ZERO 330 
6053 * 340 
004106 900000 4500 a0 6054 STZ 0 RURN OUR BRINGES BEHIND YS 350 
004107 6055 CKPT SAVE REGISTERS 360 
004107 000474 7170 go XED XSCKPT 
004110 006350 2210 03 6056 LDX ToSPTCS.DU INITIALIZE T 370 
004111 006350 7260 97 6057 LXL JeSPTCB.DL AND J To THE SAME 380 
004112 900006 4460 11 6058 SxXL JeT$SJICBAT SAVE FoR SEXIT 390 
004113 0904400 6340 07 6059 LD! BSOVM+BSPAMsDL MASK OFF OVERFLOWAND PARITY ERRORS 400 
O04114 0004090 2350 03 6060 LDA ZZ1,DU INITIALIZE TO AVAILABLE MEMORY 410 
094115 005300 7550 a0 6061 STA SAVATL 420 
004116 005700 5549 o0 6062 sTci JsJTaB MAKE JOB NUMBER O ILLEGAL 430 
6063 * 440 
6064 * SET FAULT VECTOR 450 
6065 * 460 
004117 6066 Nit sETFy (x$FveDu) SEY YHE FAULT VECTOR 470 
004117 0900526 7000 oo TSX OsSSETFV 
END OF BINARY CARD 10800125 
004120 000000 o000 o3 ARG X$FV,DU 
004121 6067 CHECK NIT2Z,68B7eNIT1 480 
004121 9000900 7200 11 LXbL OsTSSRWieT 
004122 000077 3600 03 ANX O,88ST¥Ks. DU 
094123 004127 6000 oOo TZE NIT2 
004124 960003 1000 03 CMPX 0,838987,0uU 
004125 904117 6n00 oO TZE NITL 
094126 777777 7100 a0 TRA SERROR 
6068 *$e DISK ANIT2 490 


MBR 


END 


OL O9"17=71 


004127 100467 
004130 005013 
004151 000914 
904132 000001 
004133 004400 
004134 a00000¢ 
004135 oco0000 
004136 900977 
004137 004143 
004149 000003 
904141 0904127 
094142 777777 
004143 900000 
004144 905750 
004145 000667 
OF BINARY CARD 
004146 005027 
004147 900014 
004150 qcocol 
004151 004400 
004152 000000 
004153 900000 
004154 000077 
004155 004161 
004156 o¢0003 
004157 004145 
004160 777777 
004161 on000c 
004162 006010 


192937 


N94127 
104127 


7000 
coco 
coro 
co00 
o0co 
6000 


00 


004135 


7200 
3600 
6000 
100n 
6000 
7100 


7400 


00 


004145 
004145 


7009 


00 


19800126 


cn00 
9000 
can0 
conn 
ca00 


03 
03 
03 
03 
03 


004153 


7200 
3600 
6000 
1000 
6000 
7100 


it 
03 
00 
n3 
00 
00 


004161 


2200 
7400 


ii 
00 


INPUT/OUTPUT SCHEDULER == 


6070 
6071 


6072 
6073 
6074 
6075 
6076 
6077 
6676 


6079 


6088 


6089 
6090 
6091 


TOS MONITOR 


INITIALIZATION @#= OPEN SYSTEM FILES 


zZeeehee ee 


1t2 


NIT4eo1 


OPEN SYSTEM FILES 


OPEN »PRINT@=FILE=QuEUE*® FILE 


88S 
Grow 
TSX 
ARG 
ARG 
ARG 
ARG 
ARG 
CHECK 
LXL 
ANX 
TZE 
CMPX 
TZE 
TRA 
8S$ 
LDX 
STX 


0 

LLP Seu peter” 
0,$0PEN 
LPQeDU 
LPOTSe9u 

1» Dy 

LPOESsDuU 

OeDU 
NITISESBZoNIT2 
Os TSSRWisT 

Os 38$SSTMKs.DU 
NITS3 

02889Z.6Dt! 

NIT2 

SERROR 

0 

Os TSSRWisT 

Us CSFRLPO 


~ 
{ 


SeUUpe (ia Dye TLE SESs FU) eo (02D) 


GET FRN 
SAVE IT TABLE 


OPEN ePYUNCH@FILE*quEuE*® FILE 


BSS 
OPEN 


TSX 


ARG 
ARG 
ARG 
ARG 
ARG 
CHECK 
LXL 
ANX 
TZE 
CMPX 
TZE 
TRA 
BSS 
LDX 
STX 


0 
(CPQsDiy yo (CPOTSsDy)o(loeDy) a (CPOE Se Dy) 2 (OeDy) 
02 30PEN 


CP9,DU 
CPOTSs.DU 
1.DuU 
CpaESeDu 
0.DU 
NIT4.1sBSB8ZeNITS 
Os TSSRWioT 
Os BSSTMK.DU 
NIT4.1 
0.8$87.,DU 
NIT4 

SERROR 

0 
O,TSSRW1sT 
vat SFrRCpQ 


GET FRN 
SAVE IN TA8LE 


PAGE 


201 


110 
120 


130 
140 
150 
160 
4170 
180 
190 


200 


210 
220 
230 
240 
250 
260 
270 
280 


290 


300 
310 
320 


MBR 


END 


OL Q9"17#71 


004163 000667 
004164 905043 
004165 000014 
094166 000001 
004167 002200 
004170 cocoon 
004171 ooGgoo0 
004172 000077 
004173 004177 
OF BINARY CARD 
004174 on0003 
004175 004163 
004176 777777 
004177 ooo00e 
004200 005744 
004201 000667 
004202 005057 
004203 000014 
004204 oo000! 
004205 002200 
004206 ooo000 
094207 ooo000 
004210 000077 
004211 904215 
004212 0090003 
004213 004201 
004214 777777 
004215 ooo000 
004216 9696004 


096937 


004163 
004163 
7000 a0 
cacoe O03 
00na o3 
contd a3 
9000 03 
conn O83 
Q04171 
7200 114 
3600 03 
6000 00 
19800127 
1000 0o3 
6000 00 
71°90 00 
004177 
2200 11 
7400 00 


004201 

004201 
7nCO0 00 
9000 os 
caco a3 
£000 a3 
c000 O38 
coco O83 

004207 
7200 11 
3660 03 
6900 00 
1000 03 
6000 00 


TNPUT/OUTPUT SCHEDULER == 10S MONITOR 


6093 
6094 
6095 
6096 
6097 
6098 
6099 
6100 
6101 


6102 


6103 
6104 
6105 
6106 
6107 
6108 
6109 
6110 


61il 


6112 
61138 
6114 


INTTIALIZATION == OPEN SYSTEM FVENTS 


ze tenee et 


t75 


NIT6 


NI7 


NITS& 


OPEN 


8ss 
OPEN 
TSX 
ARG 
ARG 
ARG 
ArG 
ARG 
CHECK 
LXt 
ANX 
TZzE 


CMP X 
THE 
TRA 
BSS 
LDX 
STX 


OPEN SYaYTEM EVENTS 


*PRINT@FILE*QUEUE® EVENT 


0 

(LPESDUys (LPETSeDU)ya (LoD) so (LPEESs DU) oe (OeDuU) 
Os 30PEN 

LPEsDU 
LPETS.*Du 

lsDU 

LPEESs Di 

O,DuU 
NIT6,88BZeNIT5 
OsTSSRW1oT 
OsBSSTMKeDU 
NIT6 


0sB8$87.5DU 
NITS 
SERROR 

0 

Os TSSRWieT 
Os CSFRLPE 


GET FRN 
SAVE IN TABLE 


OPEN @PUNCH@FILE@QUEUE® EVENT 


Bss 
OPEN 
TSX 
ARG 
ARG 
ARG 
ARG 
ARG 
CHECK 
LXb 
ANX 
TZE 
CMPX 
TZE 
TRA 
BSs 
LDx 
STX 


0 
(CPESDU)s (CPETS eo DU) oe (1s DU) eo (CPEESs DU) eo (OeDU) 
Os SOPEN 

CPEs.DU 
CPETsSoDu 

12DU 

CPEES.DU 

02DyU 
NIT8s,B3B27eNIT7 
OsTSSRWieT 
OsBSSTMKeDU 
NITS 

02B88$82.DU 

NIT7 

SERROR 

0 

OstSsRwieT 
OsCSFRCPE 


GEy FRN 
SAVE IN TABLE 


PAGE 


202 


340 
350 
360 
370 
380 
390 
400 
410 
420 


430 


440 
450 
460 
470 
480 
490 
500 
510 


520 


530 
540 
550 


MBR Oy O9—47971 
004217 000667 
004220 605073 
004221 900014 

END OF BINARY CARD 
oo4222 000001 
004223 09002200 
004224 900000 
904225 cooooc 
004226 000077 
004227 004233 
00423c 000003 
004231 004217 
094232 777777 
004233 occooe 
004234 006044 


790937 


004217 
004217 
7000 00 
n0C0 03 
cno00 03 
10800128 
90c0 03 
0000 03 
0000 03 
004225 
7200 11 
3600 03 
6000 00 
1n00 o3 
6600 00 
7100 00 
094233 
2260 11 
7400 00 


TNPUT/OQUTPUT SCHEDUIER e= 


6122 


6123 
6124 
6125 


TOS MONITOR PAGE 


INTTTALIZATION |= OPEN SYSTEM EVENTS 


* 
* 
« 
* 
N 


1t9 


NITiO 


OPEN »JOBeSTREAM@SCHEDULER® EVENT 


BSS 
OPEN 
TSX 
ARG 


an 
AKY 


ARG 
ARG 
ARG 
CHECK 
LXL 
ANX 
T7E 
CMPX 
TZE 
TRA 
88S 
LDx 
STx 


0 

(JSSesDU oa (JSSTSeDU) ol(leDUds (JSSESsNU) a (OsDU) 
Os S0PEN 

JSSe2DU 

vooTseuu 


1.2DU 
JSSESeDuU 
0sDU 
NIT{OoASBZeNITI 
Oso TSSRWisT 
Os BSSTMKSDU 
NITLIO 
0,8$82.DU 
NIT9 

SERROR 

0 
OsTSSRwieT 
OsCSFRISS 


GET FRN 
SAyE IN TAALE 


203 


570 
580 
590 
600 


610 
620 


630 


640 
650 
660 


MBR NL d9—17=71 


004235 090667 
004236 905107 
004237 oco0l4 
00424¢ 900901 
094241 on2200 
004242 cnaodon 
094243 go00000 
004244 9400077 
004245 994251 
004246 900003 
004247 9004235 
END OF BINARY CARD 
094250 777777 
004251 900000 
004252 006260 
904253 004272 


390937 


004235 
194235 
7090 900 
cooo 43 
coco 03 
coo0 o3 
0000 03 
9000 o3 
Nn9g4243 
7200 11 
3600 03 
6000 00 
1000 03 
6000 40 
19800129 
7100 00 
004251 
2200 i1 
7400 00 
7100 090 


INPUT/OUTPUT SCRKEUYULER == 10S MONITOR 


6127 
6128 
6129 
6130 
6131 
6132 
6133 
6134 


6135 


6136 
6137 
6136 
6139 


INITIALIZATION |= OPEN SYSTEM SUBeMODULES 


* 
* 
* 
* 
a 
® 
N 


Trit 


NIT12 


NePEN SYSTEM SUS -mqDuLES 


OPEN »LINE PeINrErR/CARD PYNCH* MODULE 


Bss 
OPEN 
TSX 
ARG 
ARG 
ARG 
ARG 
ARG 
CHECK 
LXL 
ANX 
TZE 
CMPX 
T7E 


TRA 
BSS 
LOX 
STX 
TRA 


0 

(PPeNUys (PPTSsDUy eo (Le Diy ea (PPES oD) a (QeDU) 
Oe SOPEN 

PP. DU 

PPTS,DU 

1,D0uU 

PPES,DU 

0.DU 
NITL2o.8$BZeNIT11 
Os TSSRWieT 
Os8SSTMKe DU 
NIT12 

0e88$82,D0U 

NITL4 


SERRA 

0 

Os TSSRWieT GET FRN 

Os CSFRPP SAVE IN TABLE 


NITL5 Raketneane 


PAGE 


204 


680 
690 
700 
710 
720 
730 
740 
750 


760 


770 
7&0 
790 
800 


MBR J, O9—47"74 


904254 
094255 
004256 
094257 
004260 
004261 


004262 
004263 
004264 
004265 
04266 
004267 


004270 
904271 


000667 
N05123 
060014 
000001 
o0220C 
a00000 


o0a00c 
900077 
094270 
000008 
004254 
777777 


000000 
006320 


092937 


004254 

n94254 
7060 00 
coco 03 
co00 a3 
co0n os 
coco os 
00co as 


7400 00 


INPUT/OUTPUT SCHENULER -= tO05 MONITOR 


6141 
6142 
6143 
6144 
6145 
6146 


6147 


6148 
6149 
6150 


INITIALE ZATION @* OPEN SYSTEM SUB=MODULES 


* 
* 
* 
* 
N 


IT1i3 


NITL4 


OPEN 


eCARD READER® MODULE 


0 


(CReDUps(CRTSeDUys (lo DUys (CRESoDU) es (NeNU) 


Os SO0PEN 

CRsDu 

CTS UU 

120U 

CRES,DU 

0sDU 

NIT{4s3$8ZeNIT13 

Os TSSRWiaT 

O,88STMKs.DU 

NITi4 

OoBS$B7eDU 

NITL3 

SERROR 

0 

OsTSSRWisT GET FRN 
Os»CS$FRCR SAVE IN TABLE 


PAGE 


205 


820 
830 
840 
850 
860 
870 


880 


890 
900 
910 


MBR 


END 


END 


OL O9"17=71 


094272 901005 
094273 ooGoon 
004274 900001 
004275 00000 
OF BINARY CARD 
004276 gocooet 
004277 900077 
004300 9004304 
004301 000003 
0n4302 004272 
004303 777777 
064304 000006 
094305 006217 
004306 006345 
094307 001005 
004310 900000 
0043511 0900001 
004312 oco00c 
004313 0900000 
004314 000077 
004315 094321 
004316 000003 
004317 904307 
004320 777777 
094321 000000 
004322 006220 
094323 006346 
OF BINARY CARD 
004324 006104 
004325 006144 
004326 906204 


092937 


004272 
N94272 
70°90 OO 
gnon ag 
corte a3 
6090 O83 
004276 
190800130 
7200 11 
3690 O83 
6000 00 
indo us 
6000 oo 
7100 00 
004304 
2200 11 
7400 00 
7400 a0 


004307 
004307 
70090 a0 
f0C0 a3 
0000 O3 
0000 O83 
004315 
7200 11 
3600 03 
6000 00 
1000 03 
6000 00 
7100 900 
004321 
2200 11 
7400 09 
7400 00 
10800131 
7400 00 
7400 00 
7400 00 


INPUT/OUTPUT SCHEDU ER == 108 MONITOR 


6152 
6153 
6154 
6155 
6156 
6157 
6156 
6159 


6160 


6161 
6162 
6163 
6164 
6165 
6166 
6167 
6168 
6169 


6170 


INITIALIZATION #= OPEN COMMUNICATIONS NETWORK EVENTS 


a 
* 
* 
* 
* 
* 
N 


tri5 


NITL6 


NIT17 


NITL8& 


MAREN CAMMUNTOC ATI OMe NE ruaRkK FYENTS 


OPEN &CSFRNO® EvyENT 


BSS 
OPSCE 
TSX 
ARG 
ARG 
ARG 
CHECK 


LXL 
ANX 
THE 
CMPX 
Tze 
TRA 
BSS 
LDX 
STX 
STX 


OPEN 


BSs 
OPSCE 
TSX 
ARG 
ARG 
ARG 
CHECK 
LXL 
ANX 
TZE 
CmMPxX 
TZE 
TRA 
BSS 
LDX 
STX 
STX 


STX 
STXx 
STX 


OPEN 


0 


COeNU ys (BSTRANSsDU) 2 (00DI)) 


Os SOPSCE 
OsDU 
BSTRANS,DU 
0eDU 


NIT16se3$BZ5NIT15 


Os TSSRWieTt 
OoBSSTMK oD! 
NIT1L6 
0.88875 iU 
NITL5 
SERROR 

0 
AsTSSRWiat 
O,CSFRNG 
OsPFILO 


*>CSFRNL*® EVENT 


0 


SET FRN 
SAVE IN TABLE 
SAVE IN PASS LIST 


(OeDUys (BSTRANSoDU) 2 (02D) 


Os. SOPSCE 
0s DU 
BSTRANS,DU 
0,DU 


NIT{8s8S$8Z5NIT17 


OsTSSRWiaT 
O,B88STMK DU 
NIT1I8& 
0,BS$87.Du 
NITi7 
SERROR 

0 

Os TSSRWiaT 
OsCSFRNi 
O,PFIL) 


Os,CSFRLiI1 
OsCSFRCpPI 
Os,CSFRCRI 


*CSFRN2* EVENT 


GET FRA 
SAVE IN TABLE 
SAVE IN PASS LIST 


SAVE For LP INPUT 
SAVE FOR CP INPLIT 
SAVE FOR CR INPUT 


PAGE 


206 


930 
940 
950 
960 
970 
980 
990 
1000 


1010 


1020 
1030 
1040 
1050 
1060 
1070 
10860 
1090 
1100 


1110 


1120 
1130 
1140 
1150 


1160 
1170 
1180 
1190 
1200 


MBR OL O09917=71 0920937 INPUT/OUTPUT SCHEJULER |= 10S MONITOR PAGE 207 


INITIALIZATION |= OPEN COMMUNICATIONS NETWORK EVENTS 


6180 * 1210 
N94327 6181 NIT19 gsS 0 1220 
04327 6182 OPSCE (O2DU) » (BSTRANS#BSPASS oD) o (05 0L') 1230 
004327 oni005 7000 oo TSX Os S0PSCE 
0094330 occ0ogc oofo 0o3 ARG 0.DU 
004331 000003 o000 O83 ARG BSTRANS+BSPASSsDU 
004332 000000 0000 o3 ARG O.NU 
004333 6183 CHECK NIT20e3$BZeNITI9 1240 
094333 occoot 7200 11 uxt fT eens 2 
094334 000077 3600 03 ANX OsB88STMKs*DU 
004335 004341 6000 oO TZE NIT20 
004336 900003 14000 O73 CMPX 0,8$82,DU 
004337 904327 6000 on TzE NITL9 
094340 777777 7100 on TRA SERROR 
004341 6184 NIT2G BSS 0 1250 
004341 00000 2200 11 6185 LDX Os TSSRWioT GET FRN 1260 
094342 006221 7400 oOo 6186 STX Os» CSFRNQ SAVE IN TASLE 1270 


004343 906347 7400 oo 6187 STX O»PFIL?2 SAVE IN PASS LIST 1280 


MBR 


END 


END 


OL O9—37=71 


004344 006260 
004345 006341 
094346 000644 
0904347 006327 
094350 000021 
094351 9000000 
OF BINARY CARD 
004352 go000c 
004353 000077 
004354 104362 
004355 90900003 
094356 994346 
004357 090011 
O0N4360 6004346 
004361 777777 
004362 900000 
004363 006254 
004364 904405 
NN4365 006320 
004366 006341 
094367 000644 
004370 006327 
004371 900021 
004372 000000 
004373 000000 
094374 900077 
094375 9004403 
004376 000003 
094377 004367 
OF BINARY CARD 
094400 ancolil 
094401 004367 
004402 777777 


092937 


2200 00 
7400 00 
004346 
004346 
7000 900 
6000 03 
6000 03 
cn0e 03 
004352 
19800132 
7200 11 
3690 03 
6000 00 
10co0 03 
6000 00 
1999 03 
6000 00 
7100 900 
004362 
2200 11 
7400 00 
7100 00 


2290 00 
7400 00 
004367 
004367 
7000 00 
60090 03 
9000 O3 
0of0 O38 
904373 
7200 it 
36CO0 03 
6000 00 
1000 03 
6000 00 
1QS00133 
1000 03 
6000 00 
7100 00 


INPUT/OUTPUT SCHEDULER = 195 MONITOR 


6189 
6190 
6191 
6192 
61938 
6194 
6195 
6196 
6197 
6198 
6199 


6200 


6201 
6202 
6203 
6204 
6205 
6206 
6207 
6208 
6209 
6210 
6211 


6212 


INITIALIZATION |#= SPAWN ALL SUB=MODULES 


e¢* et #@ 4 @ % & 


NIT21 


NIT22 


NIT25 


SPAWN ALL SUBeMONYLES 


SPAWN *LPCP® MODULE 


LDX O,CSFRPP GET LP/CP FRN 
sTtx OsPSFGN STICK Iv IN PARAMETER LIST 
BSS 0 

SPAWN (PLOCS DU) so (PLENe DU) 2 (OeDU) 
TSX O,SSPAWN 

ARG PLOCsDU 

ARG PLENs Ly 

ARG O0.DU 

CHECK NIT22s25B825NIT2Z1isB$RNAONIT21 
LXL Os TSSRWieT 

ANX OsBSSTMK2DU 

TZE NIT22 

CMP Xx 0.8$82.DU 

TZE NIT2} 

CMPX Os 3$RNAZDU 

TZE NIT21 

TRA SERROR 

BSss 0 

DX Oo TSSRWielT GET PROCESS EVENT 
STX Os CBFRPRY SAVE IN TABLE 
TRA NIT29 See kethane 


SPAWN °CrR* MODULE 


LDX OsCSFrRCR GET Cr FRN 
STX OsPSEG9 STICK ITT IN PARAMETER LIST 
BSS 0 

SPAWN (PLOCeDU)a(PLENs DU) 2 (0eDU) 
TSX O,SSPAWN 

ARG PLOC.DY 

ARG PLEN.DU 

ARG 0.DuU 

CHECK NIT26,88B7eNIT25¢,8$RNAANLTQ5 
LXL Oso TSSRWieT 

ANX OsPBSSTMK oe Dt! 

TZE NIT26 

CMPX 028887, )uU 

TZE NIT25 

CMPX Os, BSRNA,DU 

TZE NIT2S 


TRA SERROR 


PAGE 


208 


1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 


1410 


1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1310 
1520 


1530 


MBR OL O09"17=7$ 694937 
004403 
094403 fog005 2209 11 
094404 066314 74090 O90 
006327 
096327 
006327 
006327 focconococoN 
096337 400000000000 
096340 onodoe oacoin 
006341 900000 oNnnD2 
006542 oo000c so0no0 
006543 ccoooc anncon 
096344 00009 socood 
006545 con0ce onc004 
006346 000000 on0n02 
END OF BINARY CARD 10800134 
006347 foonne ontoo4 
090021 
n04405 


INPUT/QUTPUT SCHEQUIER == IGS MONITOR 


5313 
6215 
6216 
6217 
6218 
6219 
6220 
6221 
6222 
6223 
6224 
6225 
6226 
6227 
6228 
6229 
6230 


6231 
6232 
6233 


INE TIALIE ZATION #= SPAWN ALL SUBeMODULES 


NIT26 


PLOC 


PSEGO 
PsEG1i 
PSEG2 
PSEGS 
PFILO 
Pritt 


PFIL2 
PLEN 


BSS 
LDX 


STXx 


use 
ess 
cuc 
DEC 
ocT 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 


ZERO 


EQU 
USE 


0 
OsTESRWNLaT 
OslSFRpR2 


SPAWN PARAMETER 
STORE 


aac 

0 

#0 
O,BSCEND 
wet, SSPE 
On.B8$yOID 
Oe3S$VOID 
Ose BSVOTD 
#ox,S8S8N0 
wens QSca 


w= eBSN0 


#@PLOC 
PREVIQUS 


GET PROCESS FVENT 
SAVE IN TJARLE 


LIsT 
PARAMETER LIST 
ROGIOICRS 


TIME LIMIT 
OPTION BITS 
SEGMENT ZERO 
SEGMENT ONE 
SEGMENT TWO 
SEGMENT THREE 


SUS@SYSTEM INPUT EVENT 
SUS*SYSTEM OUTPUT EVENT 


SUB=SYSTEM INPUT FILE EVENT 


MBR 


END 


OL O9=17=71 992937 INPUT/OUTPUT SCHEUULER == 108 MONITOR PAGE 210 
INITIALIZATION |= OPEN PERIPHERALS 
6235 * 1760 
6236 * 1770 
6237 * OPEN PEOIPHERAIS 1780 
6238 * 1790 
6239 * OPEN rOPERATOR®S CONSOLE? 1800 
6240 * 1810 
004405 6241 NIT29 BSS ) 1820 
094405 6242 OPEN (COSPINe DU) 2 (DSP TSoDUI ao (1 oD) a (Fe DU) eo (OeDi)) 1830 
094405 0900667 70Cf oo TSX Os SOPEN 
004406 005527 onto o3 ARG OSPTNS TU 
004407 o00014 solo 43 ARG OBPTsSeDU 
094410 OC0001 of0n 03 ARG 1,DuU 
094411 000011 cOtO O83 ARG 9s DU 
004412 900000 n000 o3 ARG OsDy 
004413 6243 CHECK NIT3Os.RSBZONIT2Z9sBSLOCKsNIT29 1840 
004413 000000 7200 11 LXL Os TSSRWioT 
094414 900077 3600 03 ANX OsBSsTMKoDU 
094415 004423 6000 00 T2E NITIO 
004416 900003 1n00 03 CMPX 0e8887,0U 
004417 0904405 600N oo TZE NIT29 
094420 «66900013 1000 03 CmMPxX OsBSLOCKe DU 
004421 904405 6000 oOo TZE NIT29 
004422 777777 7100 00 TRA SERROR 
004423 6244 NIT3O BSS 0 1850 
004423 ononn00 22C0 11 6245 LDX Oo TSSRWiel GET FRN 1860 
004424 005665 7400 oo 6246 STX Os RSOPFRN SAVE IN TAS8LE 1870 
6247 * 1880 
6248 * SEIZE OPERATOR®s CONSOLE TTY 1890 
6249 * 1900 
004425 6250 NIT31i 8sS 0 1910 
004425 6251 LOGS SEIZE OP CON/ LOCK IT/ SAY HELLO 1920 
004425 901517 7070 00 TSX LeOSLOGs 
6252 * 1930 
6253 * OPEN THE RESY OF THE PERIPHERALS 1940 
6254 * 1950 
004426 6255 BRANCH NOPAsSs0SINP4 SETUP UP TASK TO READ DuMMy INPUT BUFFER 1960 
094426 09001467 7n00 oO TSX Os TSGETY 
004427 900000 6220 11 EAX XsOeT 
004430 6900005 2210 12 LDX ToTSLINKoX 
OF BINARY CARD 10800135 
004431 0900000 6210 12 EAX Ta eX 
094432 002041 6200 00 EAX OsOSINPS4 
004433 000004 7400 11 STX Os TSTRAST 
004434 900004 6200 11 EAX OsOSOFFSToTtT 
004435 005162 7170 oo XED OSXADDsQASTASK 
004436 000005 2210 12 LDX To TSLINKoX 
004437 BUGXR (O2X) 
525266 BUGBUG SET BUGBUG+4, 
004437 525266 220n 3 LOX OsBuGBUGs Dy 
004440 525266 2220 03 LDX X»BUGBUG»s DU 


MBR OL O9e17—=71 390937 TNPUT/OUTPUT SCHEDULER |= 105 MONITOR skee 311 


INITTALIZATION *° OPEN PERIPHERALS 


004441 6256 RELT RELEASF TCR 1970 
094441 301477 70C0 on TSX Os TSRELT 


MBR 


END 


O01 O9"17=71 


004442 
004443 


004444 
004445 
004446 
004447 
004450 
094451 
004452 
004453 


004454 
004455 


004456 


005720 
005720 


001467 
co000n 
000005 
NO3171 
co0004 
000004 
005162 
C00000 


525267 
525267 


001477 


OF BINARY CARD 


004457 
004460 


004461 
004462 
004463 
004464 
004465 
004466 
004467 
004470 


00447} 
004472 
004473 
004474 
004475 
004476 


094477 
004500 


005760 
005760 


001467 
000000 
000005 
003171 
000004 
000004 
005162 
000000 


525270 
525270 
001477 


006020 
006020 


001467 
000000 
eco000s 


594937 


2210 03 
7260 07 
N04444 
70C0 00 
6220 11 
2219 12 
6200 00 
7400 11 
6200 it 
7170 00 
6210 12 
004454 
525267 
2200 03 
2220 03 
004456 
7000 oOo 


10$00136 
2210 03 
7260 07 
004461 
7000 00 
6220 11 
2210 12 
6200 00 
7400 11 
6200 11 
7170 00 
6210 12 
004471 
525270 
2200 03 
2220 03 
004473 
7000 00 


2210 03 
7260 07 
004476 
7000 00 
6220 }1 
2210 12 


6258 
6259 
6260 
6261 
6262 
6263 
6264 
6265 


6266 


6267 
6268 


6269 
6270 
6271 


6272 


62738 
6274 
6275 
6276 
6277 


*8e# ¢ & 8 


BUGSUG 


BUGBUG 


INPUT/OUTPUT SCHEDULER <= 


SET Up NOTIFIES 


LDX 
LXL 
BRANCH 
TSX 
EAX 
LDX 
EAX 
STX 
EAX 
XED 
EAX 
BUGXR 
SET 
LDX 
LDX 
RELT 


TSX 


LDX 
LXL 
BRANCH 
TSX 
EAX 
LDX 
EAX 
STXx 
EAX 
XED 
EAX 
BUGXR 
SET 
LDx 
LDX 
RELT 
TSX 


LDX 
LXL 
BRANCH 
TSX 
EAX 
LDX 


TaCSLpE.DU 
JeCSLPESDL 
PaASS,CENSRVX 
Os, TSSETY 

Xa Qe 

To TSLINKoX 
O,CESNSRVX 

Os» TSTRAST 

Oo QSOFFSToT 


QSXAND+OSTASK 


ToDo 

(00x) 
BUGBUG+1 
O»BUGBUGsDU 
Xe 3UGBUGe DU 


Os TSRELT 


TsCSCPE,DU 
JeoCSCPE.DL 
PASS,CESNSRVX 
Os TSGETT 
XaQoT 

Tae TSLINKsX 
OsCSNSRVX 
OsTSTRAST 
OsOSOFFSToT 


OSXADD+QS$TASK 


TeDeXx 

(05x) 
BUGBUG+s1 

0. BUGBUGs. DU 
XeBUGBUGs. DU 


Os TSRELT 


TeCS$JIss.DuU 
JeoC$ISS.DL 
PASS,CSNSRVX 
Os» TSGETT 
XaOeTt 
ToTSLINKsX 


1OS MONITOR 


INITIALIZATION #= SET UP NOTIFIES 


LINE prINTER EVENT 


RE@ISSUE NOTIFY 


RELEASE TCB AND JC8 


CARD PUNCH FILE QUEUE 


RE@ISSUE NOTIFY 


RELEASE TCB 


JoB STREAM SCHEDULER EVENT 


RE-ISSUE NOTIFY 


212 


1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 


2070 


2080 
2090 


2100 
2110 
2120 


2130 


2140 
2150 
2160 
2170 
2180 


MBR 


END 


END 


OL 09017=71 


004501 03171 
004502 oco004 
004503 f6004 
004504 905162 
OF BINARY CARD 
094505 900000 
004506 525271 
004507 525271 
004510 001477 
004511 0906060 
004512 006060 
004513 001467 
004514 acon 
094515 0000s 
0n4516 O03171 
004517 000004 
004520 000004 
004521 005162 
004522 000000 
004523 525272 
004524 525272 
004525 001477 
004526 006120 
004527 006120 
004530 001467 
004531 oa0000 
004532 000005 
OF BINARY CARD 
004533 003171 
004534 000004 
004535 900004 
004536 005162 
004537 ocoooe 
004540 525273 
004541 525273 
004542 004561 


390937 TNPUT/OUTPUT SCHEDULER == 105 MONITOR OA 


iy) 
m 


INITIALIZATION |= SET UP NOTIFIES. 


62tn aa EAX Cs CENSRVX 
7490 11 STx Os TSTRA,ST 
6200 11 EAX O,ASNFFESTsT 
7170 vO XE QSXAND+QE TASK 
19800137 
6210 12 EAX To0eX 
904506 BUGXR (00x) 
525271 BUGBUG SET BUGRUG+1 
2200 us wun Te BURNS. oY 
2220 03 LDx Xe8UGBUG.DU 
004510 6278 RELT RELEASE TCR 
7000 oO TSX O,TSRELT 
6279 * 
6280 * 
2210 08 6241 LDX TeCSLP1,.DU COMMUNICATIONS INPUT FROM LP 
7260 07 6282 LX JeC$UP1sDL 
004513 6283 BRANCH PASSsCENSRVX 
7000 00 TSX Os TSGETT 
6220 11 EAX XeOeTt 
2210 12 LDX ToTSLINKsX 
6200 00 EAX OsCSNSRVX 
7400 it STX O,TSTRAST 
6200 11 EAX OsOSNFFSToT 
7170 00 XED QSXADD+QSTASK 
6210 12 EAX Too 
004523 BUGXR (05x) 
525272 BuGAuUG sET BuGBUGs4 
2206 v3 LOX 0,8UG8UG. DU 
2220 03 LDX Xe ByGBuGe DU 
004525 6284 RELT 
7000 00 TSX Os TSRELT 
6285 * 
2210 03 6286 LDx TeCS$CP1.Dy COMMIINICATIONS INPYT FROM CP 
7260 07 6287 LXL JoC&8CP1SDL 
094530 6288 BRANCH PpASSeCENSRVX RE=ISSUE NoTIFY 
7000 00 TSX Os TSGETT 
6220 11 EAX XeOeT 
2210 12 LDX To TSLINKsX 
10800138 
6200 00 EAX OsCENSRVX 
7400 il STX CO, TSTRA,T 
6200 11 EAX OsQSOFFSTsT 
7170 00 XED OSXADD+OSTASK 
6210 12 EAX Taek 
004540 BUGXR (00x) 
525273 BUGBUG SET BUGBUG44 
2200 03 uDX Cs 5UGBUGs GU 
2220 03 LDxX XsByGBuGsDuU 
7100 00 6289 TRA NITXX RREMRAR HER 


004543 6290 RELT 


215 


2190 


2200 
2210 
2220 
2230 
2240 


2250 


2260 
2270 


2280 
2290 


2300 
2310 


MBR 


END 


O01 O9—47—74 


004543 901477 
004544 606166 
094545 cn616¢ 
004546 901467 
9N4547 gooocon 
004550 900005 
004551 003171 
004552 000004 
004553 900004 
004554 905162 
024555 900000 
004556 525274 
024557 525274 
004560 001477 


OF BINARY CARD 
004561 906230 
004562 006230 
004563 001467 
004564 900000 
004565 000005 
004566 003171 
004567 9c0004 
004570 000004 
004571 005162 
004572 coo0co 
004573 525275 
004574 525275 
094575 001477 
094576 903074 


590937 


7099 aQ 


2210 03 
7260 07 
094546 
7nCQO 00 
6220 11 
2210 12 
6200 90 
7400 114 
6200 11 
7170 vO 
6210 12 
094556 
5325274 
22°0 03 
2220 03 
004560 
7000 09 


004561 
10800139 
2219 O38 
7260 07 

0904563 
7090 00 
6220 11 
2210 12 
6200 oO 
7400 11 
6200 11 
7170 00 
6210 12 

004573 

525275 
2200 Os 
2220 03 

004575 
7000 900 

004576 
7100 00 


INPUT/OUTPUT SCHEDULER == 19S MONITOR 


INTTTALI ZATION == SET UP NOTIFTIES 


6291 * 
6292 * 
6298 
6294 
6295 


BUGBUG 


6296 


6297 
6298 
6299 
6300 
6301 
6302 
6303 
6304 NITXX 


kant 


2ees 8 #@ 8 6 


6305 
6306 
6307 


BUGRUG 


6308 
6309 


6310 * 
63i1 * 


TSX 


LDX 
LXL 
BRANCH 
TSX 
EAX 
LDX 
EAX 
$TX 
EAX 
XED 
EAX 
BUGXR 
SET 
LDx 
LDX 
RELT 
TSX 


Bss 


LDX 
LXL 
BRANCH 
TSX 
EAX 
LDX 
EAX 
STX 
EAX 
XED 
Eax 
BUGKR 
SET 
LDX 
LDX 
RELT 
TSX 
ExIt 
TRA 


OsTSRELT 


TolSCRISDU 
JeC$CRI,DL 
PASS,CENSRVX 
Os TSGETT 
Xe%etT 

Ta TSLINKsX 
OsCENSRVX 
OsTSTRAaT 

Oe QSOFF stat 
QSXKADD+QSTASK 
TsOeXx 

(Osx) 
BUGBUG+]) 
OsBUGBLIGs. DU 
Xs BUGBUGes DU 


Os TSPELY 


0 


TeCSPR1,DU 
JeC$PR1.,DL 
PASSsCENSRVX 
Os TSGETT 
Xo0e7 

Ta TSLINKSX 
O,CENSRVX 

Os TSTRA»T 
OsQSOFFSTsT 
OSXADD+O$TASK 
ToOex 

(00X) 
BUGBUGs!1 
O0»sBUGBUG.DU 
X»BUGBUGs. DU 


Os TSRELT 


SEXIT 


COMMUNICATIONS INPUT FROM CR 


RE@=ISSUE THE NOTIFY 


RBaaetrerwaee 


LeCP MODULE 


RE=ISSUE NOTIFY 


RELEASE TCR 


Raereteanane 


PAGE 


214 


2320 
2330 
2340 
2350 
2360 


2370 


2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 


2460 


2470 
2480 


2490 
2500 


2510 
2520 


MBR OL Og=17=71 


004577 996276 
094600 006270 


004601 001467 
004602 ¢G0000c 
094603 9000005 
004604 903171 
004605 900004 
004606 900004 
END OF BINARY CARD 
094607 005162 
004610 900000 


004611 525276 
004612 525276 
004613 001477 


094614 003974 


092937 


094601 
7000 00 
6220 11 
2210 12 
6200 00 
7400 11 
6200 11 
10890140 
7179 00 
6219 12 

004611 

525276 
2200 03 
2220 03 

004613 
7000 00 

004614 
7100 90 


INPUT/OUTPINT SCHEDULER = 10S MONTTOR 


INITIALIZATION |= SET UP NOTIFIES. 


B8yG8uG 


6315 
6316 


6317 *6« 


LDX 
LxXh 
BRANCH 
TSX 
EAX 
LDX 
EAX 
STX 


caw 
ern 


XED 
EAX 
BUGXR 
sET 
LDX 
LDX 
RELT 
TSX 
EXIT 
TRA 
DISK 


TeCSPR2,DU CR MODULE 
JeaSSPR2,0DL 

PASSsCBNSRVX 

Os TSGETT 

XaOnT 

To TSLINKsX 

OsCENSRVX 

OsTSTRAST 


~ ARaAPRar * 
we ewer regress: 


QSXADD+aSTASK 
Ta eX 
(00x) 
ByGBuGses 
Os.ByuGBuUGs DU 
XeByGByGsDu 
RELEASE TCB8 
Os TSRELT 
AND WERE OFF? 
SEXIT 
TREENAME 


2560 
2570 


2580 


MBR OL O90e17=71 592937 
175013 
O990L3 123131123117 
005021 120122111116 
dan014 
004400 
995027 
005027 123131123117 


END OF BINARY CARD 10800141 


005035 120125116103 
000014 
004409 
005043 
005043 123131123117 
065051 120122111116 
000014 
002200 
905057 
005057 123131123117 
END OF BINARY CARD 19800142 
005065 120125116103 
000014 
902200 
005073 
995073 122125102105 
095101 105126105116 
END OF BINARY CARD 19800143 
no0n14 


INPUT/OUTPUT SCHEDUI ER 


6319 
6320 
6321 
6322 
6323 
6324 
6325 
6326 
6327 
6328 
6329 
6330 
6331 
6332 
6338 
6334 
6335 
6336 


6337 
6338 
6339 
6340 
6341 
6342 
6343 
6344 
6345 
6346 
6347 
6348 
6349 
6350 
6351 
6352 
6353 
6354 


6355 
6356 
6357 
6358 
6359 
6360 
6361 
6362 


6363 
6364 


6365 


== 108 MONITOR 


INITIALIZATION |= TREE@NAMES & CONSTANTS 


JSSTS 


USE 
HEAD 


WJASCI 
UASCI 
EQU 
EQuU 


8SS8 
JASCI 


UASCI 
Equ 
EQU 


Bss 
UASCI 
UASCI 
EQU 
EQU 


85S 
UASC! 


UASC!I 
EQU 
EQU 


BSs 
UASCI 
UASCI 


EQu 


CONST 


TREE@NAMES & CONSTANTS 


PRINT=FILE@QUEVE 


6eSYSOUT 

6sPRINT-FILE=QUEVE 

Fal PO TREE@SIZE 
36*64 ELEMENT SI7E 


PUNCH @F ILEe QUEUE 


0 TREE@NAME 
6e5YS0uUrT 

6aPUNCH=F ILE*QUEUE 

wealPs TREE=SI7Z7E 
36864 ELEMENT SIZE 
PRINY=FILE*EVENT 

Q TREESNAME 
6,S8YSOUT 

6aPRINToFILE@EVENT 

wel PF TREE@SIZE 
36239 ELEMENT SI7E 
PUNCH@FYLE*EVENT 

0 TREE@NAME 
6eSYSOUT 

6,PUNCH@FILESE VENT 

aaoCpEe TREE@SI7E 
36*32 FLEMENT S[7E 


JOB STREAM SCHEDULER EVENT 


0 TREE@NAME 
6,RUBENS 
6sEVENT] 
weJSS TREE@SIZ7E 


PAGE 


216 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 


290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 


470 
480 
490 
500 
510 
520 
530 
540 
350 
560 


570 


MBR OL O9917=71 590937 


nn2200 


095107 
ON5107 122125162105 
95115 136114120103 

090014 

002200 


005123 
005123 955055055055 
005131 055055055055 
END OF BINARY CARD 19800144 
NO0014d 
902200 


INPUT/OUTPIIT SCHEDULER == 165 MONITOR 


6366 
6367 
6346 
6369 
6370 
6371 
6372 
6373 
6374 
6375 
6376 
6377 
6378 
6379 
6380 
6381 
6382 


6383 
6384 
6385 


INETTALIZATION @= TREE@NAMES & CONSTANTS 


JSSES 
* 
* 


* 


EQU 


BSS 
UASCI 
UASCI 
cQuU 
EQU 


8S$ 
UASCI 
UASCI 


EQU 
EGU 
DISK 


36432 FLEMENT SIZE 


LINE PRINTER/CARD PUNCH 


0 TREESNAME 
6,RUSENS 

OeXLPCPA 

#ePPp TREEWSIZE 
36*32 FLEMENT SIZE 


CARD READ MODULE 


0 TREE@NAME 

6, e%--= 

§ yg raee 

aoCR TREESSI7ZE 
S632 ELEMENT SIZE 
END 


PaGE 


217 


580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 


750 
770 


MBR 


OL O9817=71 394937 


004615 


004620 
094620 


095137 


005140 
no00320 


095300 
05300 
000140 


006350 
000037 
000030 
006350 
006350 
096377 ocoocecocnoos 
096400 
091100 


006400 


INPUT/OUTPEUT SCHEDULER == 108 MONITOR 


6387 
6388 
6569 
6390 
6391 
6392 
6393 
6394 
6395 
6396 
6397 
6396 
6399 
6400 
6401 
6402 
6403 
6404 
6405 
6406 
6407 
6408 
6409 
6410 
6411 
6412 
6413 
6414 
6415 
6416 
6417 
6418 
6419 
6420 
6421 
6422 
6423 
6424 


ASSEMBLY CONTROL CARDS 


228 * @€£ 4+ &© He 


ZCODEL 
* 


® 


ZCONSL 
* 
* 


ZOSTRL 
od 
® 


TLEN 
TLENR 


SPTCB 


ZSTORL 


2 
* 


LasTc 


HEAD 


PAGE 


HOUSEKEEPING CARDS 


HERE wE CLEAN ANY AND ALL ASSEMBLER BUGS. 

THE J0oB°’S ARE PREWALLOCATEDs THE LAST USED LOCATION OF 
CORE 1S CALCULATED AND WHAT REMAINS UP TO THE END NF THE 
BAR Ife ANY ITS LINKED ON THE FREE MEMORY LIST. 


use 
HEAD 
EIGHT 
EQU 


Use 
LIT 
EIGHT 
EQU 


USE 
EIGHT 
EQu 


USE 
EQU 
EQU 
EIGHT 
BSS 
DEC 
EIGHT 
EQU 


EQU 


CODE 
ee 2CODE 
CONST 
*-ZCONS 


OSTOR 
weZQASTR 
STORE 
TSLEN47 
TLEN/82#8 


TLENR@=1 
0 


*-ZSTOR 


CODE UNDER CODE 


FORCE LITERAL POOL HERE 


CODE UNDERCONST 


COPE UNDER @STOAR 


ROUND T$LEN YO 

MULTIPLE OF FIGHT 

START OF DYNAMIC BUFFER AREA 

FIRST TCB (START OF DYNAMIC BUFFERS 
FOR THE CRUMMy LOADER 


CODE UNDER STORE 


ZCONMEL4+ZCONSL+70STRL*+ZSTORL LAST CARD 


MBrR AL O9—=17—=71 592937 


006350 
957377 
007000 
000400 


096400 

106400 
096400 0of5346 gon4o0 
006401 005344 4oCnd0D 


END OF BINARY CARD 19800145 
004106 
END OF BINARY CARD 19800146 


004106 
END OF BINARY CARD 10800149 


6426 
6427 
6428 
6429 
6430 
6431 
6432 
6437 
6438 
6439 
6440 
6441 
6442 


6443 


6444 
6445 
6446 
6447 
6448 
6449 
6450 
6451 


6402 1S THE NEXT AVAYLABLE LOCATION’ 
THERE WERE NO WARNING FLAGS IN THE 


* 
2 
ZTOPO0 EQU 
rad EQU 
zTaP EQU 
221 EQu 
® 
NEXTF EQU 
NEXTS E6V 

ZERO 

ZERO 
x 
* 

ToD 
* 

DCARD 
$ DKEND 
$END 
x 
* 
® 
THIS END 


GMAP VERSION 
ABOVE ASSEMBL y 


TINPUT/OUTP IT SCHEDULER == I05 MONITOR PAGE 


ASSEMBLY CONTROL CARNS 


SPT¢CB8 START OF DYNAMIC BUFFER AREA 
LASTC4#MQUAN@=1 ROUND UP TO NEXT MULTIPLE 
ZZ/MOUAN@MQUAN OF CORE PAGE SIZE 


ZTOP=LASTC LENGTH oF LEFT oVER CORE 

LASTC STICK ExTR& CORE ON FREE LIST 

NEXTE 

RSLASTs7z71 INITIALIZE HEADER DATA FOR LINKEN LIST 
RSFIRSTsO 

$UP MARK END OF BINARY DECK 

205 

uP 


JMPA/062770 JMPB/062770 jymMPC/062770 


219 


500 
510 
520 
530 
540 
550 
560 
610 
620 
630 
640 
650 
660 


670 


680 
690 
700 
710 
720 
730 
740 
750 


MBR OL O9=17=71 390990 INPUT/OUTPUT SCHEDULER |= 105 MONITCR PAGE 220 


OCTAL SYMBOL REFERENCES 8Y ALTER NOe 
2000 1K 771 771 772 2822 
24 A AD 442 442 443 
16 A cP 436 436 437 5634 
15 A cR 3558 355 3532 
100060 A al) 365 365 3604 4023 
56 A DP 363 363 
3 A 1D 430 430 431 
101 A LA 369 369 3750 
12 A LF 354 354 3534 
17 A LP 437 437 438 5631 
23 A MT 441 441 442 
77 A OM 368 368 
35 A RL 450 450 451 
200040 A SP 356 356 383 3547 3748 3792 
52 A AST 361 361 
22 A CLM 440 440 441 
72 A COL 366 366 
32 A CPU 448 448 449 
177 A DEL 370 370 
200044 A DOL 359 359 387 
600004 A €0QT 352 352 3745 3746 3961 
0 A FAC 427 427 428 
27 A MIP 445 445 446 
s) A NUL 351 351 
7 A BELL 353 353 
20 A CDRD 438 438 439 
33. A CORE 449 449 450 
13 A DISK 433 433 434 
14 A DRUM 434 434 435 
177 A MASK 373 373 3560 3743 
200078 A scot 367 367 410 4159 4211 4256 4301 
A SHOP 431 431 432 
609043 A TERM 358 358 386 
600046 AAMPER 360 360 389 3958 
40 AASCLNN 415 415 
4620 AASCTB 382 382, 415 3752 
40 ABLANK 357 357 
1017 ACCT 2201 2201 2204 5881 
5343 ACCTT 2213 2201 2205 2206 2213 
3 ACODE 644 644 5689 
200054 ACOMMA 362 362 395 
2 ADATES 429 429 430 
15 AOPCON 435 435 436 
551 APEND 1360 1360 3629 
5322 APNDT 1373 1360 1363 1364 1365 1366 1373 
240057 ASLASH 364 364 398 
37 ATIMEO 451 451 
t ATIMES 428 428 429 
5300 AVAIL 775 775 2829 2964 3953 3096 6061 


4 8 AP 2306 230 231 233 4683 4685 4686 


MBR at 


N 
920”",NO ae ANN 


400000 
10 
37 
1009000 


Q9—"17=71 


SYMBOL 


5 BZ 


CA 
EX 
10 
LK 
NG 
OK 
PF 
PS 
RD 
SS 
WP 
WT 

ALL 
CAR 
DBZ 
EOF 
Eav 
EUN 
GET 
10P 
ITN 
MOD 
NEG 
OPR 
OvF 
OvM 
PAM 
PAR 
RDY 
REL 
RNA 
RPT 
TAL 
TLE 
TMI 
TNC 
TNZ 
TOV 
TPL 
TRC 
TRO 
TE 
ZER 

ABIT 

BBIT 

BHDR 


BUVUVDNIVIDWNIVNDWIAIAOIIATIIVAIVIWIWVIVIWVIIWDIVIII VOD9WVIAID VOIW I WIWVIAWDATVWVIIABIIVIIAID 


094990 


INPUT/OUTP!:IT SCHEUQULER 


PEFERENCES g3Y aLTER NO, 


266 


266 
5084 
5918 
6243 

235 

231 

291 

232 

234 

263 

247 

246 

228 

252 

244 

229 

233 

215 

273 

274 

217 

218 

327 

267 

281 

223 

214 

306 

216 

219 

222 

22i 

333 

329 

296 

198 

220 

283 

204 

207 

203 


208 


205 
206 
276 
202 
213 
199 
200 
318 


906 
5096 
S931 
6230 

232 
S134 

233 

235 


6225 


229 


230 
763 


5074 


5710 


394 


6059 
6059 


6200 


5296 


3911 
4352 


2815 
2815 


927 
5269 
6067 


233 


5823 
6229 


233 


233 
4687 


5668 


5906 


396 


6212 


5339 


4352 


952 
5328 
6079 


e251 


4684 


411 


5345 


3434 
5615 


0048 


4686 


413 


5352 


\-- 10S MONITOR 


3433 3535 3630 39 4,06 4437 
5655 368 5710 5748 57758 sAb4 
6102 6111 6122 6135 6147 6160 
5893 


3856 3863 4330 


5388 5364 5369 5383 5390 


4555 
5882 


6479 


5066 
5901 


6183 


PAGE 


5074 
59064 


6200 


221 


5077 
5912 


6212 


MBR 


OCTAL 


4000 
13 

26 

2 
400000 
77 


17 

i 
7777 
4 


209000 


109000 
20000 
0 


4000 
12000 
10000 

740000 

1700 

0 
10000 
12000 
7777 

by 

0 
925200 
§25276 


N9"17—71 


SY*BOL 


CBIT 
CEND 


DONE 
HDWE 
TACC 
IELT 
IFRN 
IMOD 
IPTR 
1PwD 
IREQ 
eGET 
eREL 
KILL 
LOCK 
NSTR 
PASS 
SIGN 
STMK 


BDELIM 


BDIGIT 
BHDRMK 
BsABRT 
BoKILL 
B.STRT 
BeXXXX 
BJOBMK 
BMODMK 
BNPASS 
BOUTMK 
BRSTRT 
BSRTMK 
BTRANS 
BUF SEG 
BuG 

BUGBUG 


992990 


INPUT/OUTPUT SCHEDULER <= 


REFEPENCES 3Y ALTER NO, 


201 
242 
332 
272 
265 
270 
264 
271 
268 
285 
269 
339 
341 
328 
284 
275 
255 
302 
3ol 


303 
282 
245 
33C 
636 
316 
320 
322 
243 
304 


305 
317 
338 
340 
343 
342 
345 
314 
254 
319 
331 
32i 
253 
769 


742 
6344 


201 
242 
332 
272 
265 
270 
264 
271 
268 
285 
269 
339 
341 
328 
284 
275 
255 
302 
301 
5296 
6067 
3038 
282 
245 
330 
636 
316 
320 
322 
243 
304 
3832 
305 
317 
338 
340 
343 
342 
315 
314 
254 
319 
S3t 
$21 
253 
769 
742 
743 
3537 
4482 


6224 


4130 
4568 


3433 


6182 
4716 
3134 
5328 
6079 

304 


6226 
5725 


305 
3856 
306 
5727 


4203 
4293 


5730 


6159 
3133 

743 
2348 
3550 
4529 


4106 


3433 
5615 
6088 
3745 


6227 


352 


3863 
365 


6169 


2349 
3609 
4550 


5066 


3515 
5855 
6102 
3746 


6228 


356 


4330 
399 


6182 


2350 
3795 
4570 


5615 


3630 
5668 
6111 
5758 


358 
4339 
400 


2380 
3836 
4579 


6243 


391i 
5710 
6122 
3430 


359 


4ni 


2522 
3869 
458 


4106 
5766 
6135 
3856 


360 


402 


2975 
3891 
4581 


1OS MONITOR 


4137 
5775 
6147 
3863 


362 


403 


2978 
3989 
4589 


4555 
5824 
6160 
3964 


364 


404 


3137 
3983 
4947 


5066 
5882 
6170 
4330 


367 


405 


3248 
4205 
4949 


5074 
5901 
6183 
4339 


3745 


406 


3296 
4295 


5180 


5077 
59045 
6200 


3746 


407 


3449 
4358 


3181 


5084 
5912 
6212 


3748 


408 


3482 
4477 


5182 


PAGE 


5096 
5918 
6243 


3758 


3856 


3483 
4479 
5783 


222 


5269 
5931 


3826 


3863 


3519 
4484 
5351 


MBR 


OCTAL 


500 


OB 


09="17=71 


SYMBOL 


wo 
< 
m 
=x 
4) 


OOM ANAON OO OO HNAOIND ANNONA OA Od HN AN ANA A ANNNNN AOaANn0D 9AgNANAA AN 
Z@ 
Cc 
2 


92990 


INPUT/NUTPIIT SCHEDU; ER == 168 MONITOR 


REFERENCES BY ALTER NO, 


6019 


5364 
5345 
5369 
568 
5440 
550 
5352 
5523 
5358 
5339 
549 
5383 
5390 
5475 
578 
544 
574 
546 
545 
551 
572 
5479 
$420 
5405 
5391 
5375 
5376 
$377 
5384 
5455 
5459 
547 
5295 
5326 
5329 
5550 
570 
5499 
542 
543 


5352 
5978 
6017 


5298 


53322 
5270 


5502 
5364 
5345 
5369 
568 
5413 
550 
5352 
5503 
5358 
5339 
549 
5383 
5390 
5415 
578 
544 
574 
546 
545 
551 
572 
5476 
5409 
5355 
5391 
5268 
5376 
4136 
5384 
5414 
5456 
547 
5295 
5326 
5328 
5500 
570 
5462 
542 
543 


5357 
6255 
6019 


5500 


5325 
5321 


5526 
6286 
5346 
6293 
5327 
5440 
5339 
6275 
5523 
6284 
5340 
5339 
5384 
5391 
5475 
5636 


577 


6014 

574 
5479 
5420 
5364 
6150 
5375 
5435 
5377 
6138 
5455 
5459 

548 
5323 
5328 
5329 
5550 

S71 
5482 


5354 
6265 


5524 


5501 


5554 
6287 
6269 
6294 


5345 
6276 


6262 
5632 
5345 
6305 
6312 


5638 
5608 


5069 


5369 
6208 
6163 
6173 
§823 
6196 


5340 
5499 


5363 
6271 


$525 


5562 


6270 


5352 


5744 
5352 
6306 
6313 


5722 


5405 


6186 


5346 


5364 
6277 


5529 


5358 


6263 
53548 


5937 


53484 


5368 5369 5382 5383 5389 
6283 6288 6295 6307 6344 


S530 5531 


5364 5369 5383 5390 


6264 
5364 $369 5383 5390 


539; 5614 5627 5765 5943 


5390 


5781 


5788 


5A37 


223 


5946 


Ot 


O9"17—=71 
SYMBOL 


C TEMS 
CAUSE 
CAUST 
CCmprsB 
CCompx 
CFRCP1 
CFRCPE 
CFRCPO 
CFRCRI 
CFRJSS 
CFRLPL 
CFRLPE 
CFRLPO 
CFRPRI 
CFRPR2 
CHSEG 
CHSGT 
CKMK 
CKSM 
CLOSE 
CLOST 
CMAX 
CMDTSB 
CMESsi1 
CMESSX 
CNSRV1 
CNSRVX 
CPE 
CPEES 
CPERI4 
CPETS 
CPeQ 
CPOES 
CPGTSs 
CPST 
CQFLOC 
CQUEUE 
CR 
CRASH 
CRDYMS 
CREADY 
CRES 
CRLINK 
CRMS 
CRST 
CRSTRT 
CRTS 
CSTATE 
CTEmMi0 
CTEmMil 


090990) 


INPUT/OUTPUT SCHEDULER o# 


REFERENCES 3Y ALTER NO. 


569 
2096 
etid 
5412 
5424 
5364 
$345 
5346 
5369 
5352 
5358 
5339 
5340 
5383 
5390 
1710 
1721 

744 

634 
1812 
1822 
5876 
5668 
5270 
5267 
5297 
5319 
6353 
6357 
5560 
6356 
6335 
6339 
6338 
4627 

571 

577 
6389 
6003 
5496 
5492 
6384 

548 
6610 
4628 
5514 
6383 

569 

561 

562 


560 
2096 
2096 
5412 
5410 
5364 
9345 
5346 
5369 
5352 
5358 
5339 
5340 
5383 
5390 
1710 
1710 

744 

634 
1612 
1812 
5865 
5868 
5269 
4205 
5296 
3892 
6110 
6110 
5560 
6110 
6087 
6087 
6087 
4627 

571 

577 
6146 
5383 
5493 
5419 
6146 

348 
6008 
4628 
5417 
6146 

$69 

561 

562 


4136 


2nag 


5420 
5412 
6176 
6114 
6091 
6177 
6125 
6175 
6105 
6082 
6203 
6215 
3133 
1713 


4554 
1815 
$376 
5876 
5270 
4295 
5297 
5296 
6353 
6357 
5564 
6356 
6335 
6339 
6336 
4683 

572 

578 
6380 
5390 
5496 
5492 
6384 
5298 
6010 
4684 
5514 
6383 
5327 


5268 
2:00 


5416 


1714 


5917 
1822 


4570 


5319 
6356 


6338 


5364 
5080 
$743 
6383 


6003 


5832 


5369 


5551 


5823 
2101 


5428 


1721 


5267 
5429 


5629 


21n> 2103 


S4at 5515 
5269 5271 
5609 5768 
5679 5723 


2104 


5532 


5837 


16S MONITOR 


21192 


5565 


6265 


6271 


6277 


6283 


6288 


6295 


6307 


$314 


MBR 
OCTAL 


14 
is 
12 
it 
10 
27 
26 
25 
24 
23 


3075 
- 3194 
3074 


a1 


A9—"17=71 
SYMBOL 


CTEMI2 
CTEM1i3 
CTEmM14 
CTEM15 
CTEM16 
CTEMP1 
CTEmMP2 
CTEMP3 
CTEMP4 
CTEMPS 
CTEMP6 
CTEMP7 
CTEMP8 
DACC 
DBG 


DESTRO 
DESTT 
DES2 
DISMK 
DISP 
DTN 


DTS2 
ERROR 


EXIT! 
ExIT2 
EXIT 


GEBORT 
GECALL 
GECHEK 
GEENDC 
GEFADD 
GEFCON 
GEFILS 
GEFINI 
GEFRCE 
GEFSYE 


29ed99N 


INPUT/OUTP IT SCHEDULER <= 


REFERENCES sY ALTER NO.’ 


563 
564 


565 
566 
567 
552 
553 
554 
Jon 
556 
557 
558 
559 
763 

40 


1860 
1872 
762 
649 
640 
759 


761 
744 


5158 
5184 
5155 


563 
564 
565 
566 
567 
552 
553 
554 
355 
556 
557 
558 
559 
763 

40 
1867 
3137 
4295 
4949 
6277 
1860 
1560 
762 
649 
640 
759 
764 
7 ai 
2830 
4119 
4862 
5169 
5775 
5938 
6212 
5158 
5184 
1261 
2001 
$331 


S69 
568 


894 
43 
19it 
3218 
4358 
5156 
6283 
5905 
1863 
893 
54687 
5686 
761 
891 
2354 
2902 
4137 
4863 
5170 
5424 
5968 
6243 
5194 


1345 
2049 
5795 


850 
1955 
3296 
4477 
5180 
6288 


1864 


5891 
890 


2355 
2905 
4450 
44895 
5175 
5866 
598, 


1370 
2109 
5842 


1259 
1999 
3449 
4479 
3461 
6295 


1865 


2443 
2909 
4456 
4909 
ay a 
5868 
6067 


1425 
2159 
5985 


1313 
2047 
3482 
4484 
9162 
6307 


1872 


2449 
3054 
4464 
4995 
5478 
5869 
6079 


1489 
2210 
6309 


1368 
2107 
3483 
44892 
5183 
6314 


2450 
3134 
4475 
4906 
5179 
587, 
6088 


1527 
2357 
6316 


1423 
2157 
3519 
4529 
5784 


2585 
3188 
4524 
4907 
5269 
5872 
6402 


1575 
2398 


10S MONITOR 


1479 
2208 
3537 
4550 
5788 


2601 
3189 
4528 
4994 
5296 
5873 
6411 


1620 
2406 


1525 
2348 
$550 
4570 
5437 


2612 
3215 
4545 
5066 
5328 
5875 
6122 


1670 
3101 


1573 
2349 
3609 
4579 
5946 


2623 
3293 
4555 
5074 
5418 
5882 
6135 


1718 
4374 


1418 
2350 
3795 
4580 
59784 


2634 
3433 
4837 
5077 
5615 
5904 
6447 


1775 
4584 


1668 
2389 
3836 
458, 
6055 


2646 
3315 
4849 
5084 
5655 
5906 
6160 


1349 
4787 


1716 
2522 
3869 
4582 
6255 


2772 
3630 
4854 
5096 
5668 
5912 
6470 


1869 
5987 


PAGE 


1773 
2975 
3891 
4689 
6265 


225 


1817 
2978 
4205 
4947 
6274 


2798 
4106 
486, 
3163 
5766 
593; 
6200 


1957 
5276 


ot 


O9-17=71 
SYMBOL 


GEIUSE 
GEINFO 
GEINOS 
GELAPS 
GELBAR 
GELOOP 
GEMORE 
GEMREL 
GENEWS 
GEPRIO 
GERELC 
GERELS 
GERETS 
GEROAD 
GEROLL 
GEROUT 
GERSTR 
GESAVE 
GESETS 
GESNAP 
GESNUM 
GESPEC 
GESYOT 
GETIME 
GEUSER 
GEWAKE 
INITO 

INIT{ 

INIT2 

INIT3 

INITS4 

INITS 

INI T6 

INIT7 

INITS 

INIT9 

INIT 

INI TX 

INTO.0 
INTOS1 
INTIO 

INT11 

INT4S ol 
INT4.2 
INTX] 

eAPEND 
eCATDR 
eCATLG 
eCATLK 
eCAUSE 


394999 


INPUT/NUTPUT SCHEDUI ER == 105 MONITOR 


REFERENCES BY ALTER NO} 


5613 
5654 
5659 
5666 
5672 
5708 
5714 
5751 
5753 
5759 
5607 
57738 
5616 
5642 
5764 
5767 
5676 
5681 
5776 

1438 

164 

160 

172 

177 


5613 
5646 
5655 
5666 
5668 
5708 
5710 
5747 
5750 
5745 
5339 
5668 
5615 
5642 
5764 
5766 
5676 
5675 
5775 

143 

164 

160 

172 

177 


5615 
5654 
5659 
5668 
5672 
5710 
5714 
5751 
5753 
5754 
5345 
5773 
5616 
5650 
5766 
5767 
5710 
5681 
5776 
1367 


2106 


5768 
5655 


56809 


5757 
5607 
5775 


5759 


MBR 


OCTAL 


Ol 


99"17=71 
SYMBOL 


eCHSEG 
e CLOSE 
eCLSEG 
eCRSG 
eDELET 
eDESTR 
e—MM 
eEXSEG 
e LOCK 
eMSTA 
eNOTIF 
eQPEN 
e OPENS 
eOPENW 
eOPSCE 
eoOPSEG 
ePAUSE 
ePRIV 
eRDACL 
eRDBRN 
eRDDIR 
eRDLK 
oe ROME 
eREAD 
eRQDT 
eRGERT 
eRGOST 
eRQWD 
eRRF 
eSCr 
eSETFV 
eSETSO 
e SPAWN 
eSPTR 
eSQUEZ 
e TERM 
eUNCAY 
eUNLCK 
eUPDAT 
eWAM] 
eWBRAN 
eWRACL 
eo WRF 
eWSINF 
eNTME 


aoaaaa 
xAOrG 


592990 


INPUT/OUTPUT SCHEDULER <= 


FEFFFENCES 3Y ALTER NOs 


156 
159 
155 
183 
178 
161 


157 
174 
181 
176 
158 
162 
168 
180 
154 
153 
138 
166 
169 
167 
170 
182 
142 
149 
15¢ 
148 
186 
144 
146 
139 
140 
151 
147 
141 
152 
179 
1753 
163 
185 
173 
165 
145 
171 
184 


156 
159 
155 
183 
178 
161 


157 
174 
181 
176 
158 
162 
168 
180 
154 
153 
138 
166 
169 
167 
170 
182 
142 
149 
150 
148 
186 
144 
146 
139 
140 
151 
147 
141 
152 
179 
175 
163 
185 
173 
165 
145 
171 
184 
3267 
3266 


5109 


2207 
1312 

881 
1617 
1422 

913 
1258 


1667 
1572 


955 


1998 
1910 


934 


3296 
$295 


5114 


1772 


1524 


1477 


5115 


946 


5194 


Tus MONITOR 


MBR 


OCTAL 


tJ 


to - 
AUWdUGUO NNR 2 AW 


~~ 


of 


19917 =71 


SYMBOL 


fs SP SE SS SS Se ee Oe Se ee Soe ae 
= 
oO 
L9 9] 


JACODE 
JJNUMB 
JMAXJB 
JQFLOC 
JSS 
JSSES 
JSSTS 
JSTATI 
JSTATT 


990990 


REFERENCES BY 


528 
524 
514 
521 
529 
518 
526 
519 
516 

3265 

5133 
523 
512 

3291 
525 
515 
734 


517 
5108 
5129 

513 
6362 
6366 
6365 

520 

522 

735 


6424 
1950 
1960 
6344 
6348 
6347 
6327 
6330 
6329 
4629 
5962 

776 

770 

777 


527 
524 
514 
521 
529 
518 
526 
519 
516 
3265 
5112 
523 
512 
3291 
525 
515 
734 
5635 
5723 
5923 
6294 
517 
4879 
5111 
$13 
6121 
6121 
6121 
520 
522 
735 
3538 
5177 
6251 
6424 
1950 
1950 
6101 
6101 
6101 
6078 
6078 
6078 
4629 
5960 
776 
770 
777 


INPUT/OQUTPYT SCHEUU, ER == 


ALTER 


528 
525 
515 
522 
3266 
519 
527 
5620 
517 
5618 
5114 
524 
513 
5782 
526 
516 
3292 
5637 
5731 
5930 
6306 
518 
5108 
5129 
514 
6362 
6366 
6365 
521 
523 
2354 
3551 
5484 


6429 
3432 
1953 
6344 
6348 
6347 
6327 
6330 
6329 
4685 
§962 
2969 

776 
2899 


NO, 


529 
566, 
5716 
4880 
3294 

520 
4844 


5688 


5115 
4883 

527 
5983 
5018 
5019 
4844 
5641 
5732 
5936 
6313 
5635 


5134 
56350 
6365 


5641 
5833 
2381 
3562 
5299 


6431 
5065 
1960 
6347 


6329 


5358 


3056 
2858 


2966 


5667 
5823 
5979 


5623 
4887 


5890 


5133 
4886 
5628 


5718 
5685 
4880 
5654 
5753 
5951 


5690 


5677 


5823 


2447 
3610 
5561 


6437 
5614 


2863 
3oSt 


5673 
59114 


5936 
5637 


5980 
S731 
5684 


5749 
5693 
4883 
5661 
5774 
5958 


5881 


5900 


2457 
3638 
56459 


2864 


5722 
5947 


595! 


5982 
5822 
5667 


5752 
5959 
4886 
5667 
5777 
5959 


59390 


246; 
3754 
5732 


2967 


5732 


062 
S774 
S881 
4887 
5673 


5823 
5974 


2523 
3757 
5777 


3084 


TIS MON]TTOR 


5777 


5900 
5958 


5018 
5677 
5833 
5979 


28352 
3796 
5888 


3086 


5889 


5930 


5019 
5685 
5884 
6057 


2979 
3837 
5969 


3130 


§900 


5174 
5684 
58a9 
6058 


2998 
3870 
5974 


3131 


5902 


5619 
§690 
$890 
6264 


3010 
4359 
6007 


6429 


5923 


5620 
5693 
5900 
6270 


3138 
4483 
60048 


6439 


5930 


5623 
5716 
5902 
6276 


3441 
4583 
6916 


5974 


5628 
5718 
5911 
6282 


34a4 
4950 
6017 


224 


5630 
5719 
5917 
6287 


3520 
5116 
6023 


MBR 


OCTAL 


5303 
4000 
6400 
6400 
4233 
4235 
4251 
4254 
4270 
4272 
4304 
4307 
4321 
4327 
4117 
4341 
4346 
4362 
4367 
4493 
4405 
4127 
4423 
4425 
4143 
4145 
4161 
4163 
4177 
4201 
4215 
4217 


OL 


O9—=j7—71{ 


SYMBOL 


MTOP 
MTST 
NEXTB 
NEXTF 
NIT10 
NIT11 
NIT12 
NIT13 
NIT14 
NITL5 
NIT16 
NITL7 
NITI8 
NITL9 
NITI 
NIT20 
NIT2! 
Ni T22 
NIT25 
NIT26 
NIT29 
NIT2 
NIT3I0O 
NIT34 
NITS 
NIT4 
NITéed 
NITS 
NIT6 
NIT7 
NIT8 
NIT9 
NIT 
NITXX 
NOTFr 
NOTIF 
0 J 
0 L 


a900g 0000 00 


£92990 


778 
463C 
6438 
6437 
6123 
6433 
6136 
6145 
61423 
6158 
6161 
6168 
6171 
6181 
6066 
6184 
6198 
6201 
6210 
6213 
6241 
6077 
6244 
6250 
6080 
6086 
6089 
6100 
6103 
6109 
6112 
6120 
6049 
6304 
2052 
2041 


4089 
3647 
3648 
3620 


778 
4630 
2679 
2674 
6122 
6133 
6135 
6145 
6147 
6139 
6160 
6168 
6170 
6141 
6066 
61883 
61984 
6200 
6210 
6212 
6204 
6067 
6243 
6250 
6079 
6086 
6088 
e100 
6102 
6109 
6111 
6120 
6049 
6289 
2041 
2041 
4247 
3430 
3549 
3903 
4185 


3891 
3891 
3852 
4092 
49065 
3437 
3648 
3513 


INPUT/OUTPUT SCKEUULER ©= 108 MONITOR 


2857 
4686 
6438 
6437 
6123 
6135 
6136 
6147 
o146 
6158 
6161 
6170 
6171 
6183 
6067 
6184 
6200 
6201 
6212 
6213 
6241 
6077 
6244 


6080 
6088 
6089 
6102 
6103 
6111 
6112 
6122 
6050 
6304 
2044 
5327 
4248 
3439 
36014 
3994 
4209 


4205 
3970 
3860 
4112 
4089 
3647 


3563 


REFERENCES SY ALTER NO, 


2859 


6438 


6160 


6243 
6079 


2045 


3469 
3605 
3963 
4228 


4295 
3974 
4326 
4151 
4160 


3620 


2862 


2052 


3475 
3608 
3968 
4250 


3975 
4334 
4487 


3904 


2900 


3481 
3799 
3998 
4255 
4091 


4230 


4025 


2965 


3511 
3794 
3999 
4273 


4411 
4275 


3050 


3512 
3794 


4000 
4300 


4139 


4349 


3095 


3513 
3824 


4020 
4325 


4186 


4356 


3129 


3518 
3829 
4024 
4327 


4205 


3132 


3531 
3835 
4025 
4329 


4229 


31433 


3533 
3850 


4942 
4338 


4274 


3535 
3853 
4090 
4357 


4295 


3536 
3855 
4145 
4371 


4344 


PAGE 


3546 
3862 
4154 
4372 


4346 


229 


3548 
3868 
4458 


4347 


MBR 
OCTAL 


1611 
4740 
2372 
5527 

14 
2253 
4705 
4713 
2124 
2142 
2167 


ol 


O9—17—7)1 
SYMBOL 


LSP 
MOK 
OPX 
PTN 
PTS 
REL 
CERR 
FERR 
GET1 
GET2 
GET3 
GET4 
GETS 
IBuUF 
ICkR 
{CmpD 
ILEN 
INP 
INP2 
INPS3 
INP4 
ITAL 
KILL 
LCHR 
LOCF 
LOCT 
LOG 
LOG2 
LOGC 
LOGS 
LOGX 
OPMS 
PER] 
RELI 
REL2 
RFLG 
STRT 
OBLNKS 
OCMDER 
OCMDLN 
OCMDLX 
OCMDTB 
OENTER 
OERCMD 
OFF 
OFORER 
OIBFSZ 
OICHRI 
NICHR2 
OICHRS 


9aq00 0O0VN OC cCooco0C0—co00Oo0c0 ODO cTGeo0 oc 00 O00 0000 00 00 


990995 


INPUT/QUTPUT SCHEUULER == 


REFEFENCES BY ALTER NO] 


3545 
4378 
437C 
4165 
4169 
4227 
4029 
4046 
4495 
4410 
4134 
4138 
4141 
3935 
3739 
3849 
3938 
3904 
3910 
3915 
3923 
3931 
4184 
3559 
3570 
5600 
3629 
3634 
3469 
3429 
3510 
4447 
4324 
4244 
4254 
3763 
4272 
3874 
4019 
4073 


3945 
4371 
4963 
4102 
4105 
4069 
4020 
4N42 
4105 
4106 
4134 
4106 
4098 
3910 
3739 
3849 
3931 
3904 
3910 
S9it 
3923 
3742 
4067 
3475 
3570 
3572 
3629 
3626 
3469 
3429 
3510 
41445 
4090 
4244 
4236 
3740 
4071 
3851 
3973 


4378 
4370 
4105 
4169 
4227 
4029 
4046 
4106 
4110 
4137 
4137 
4101 
5921 
3749 
3968 
3938 
4001 
S9it 
3915 
6255 
3922 
4184 
3533 


3581 
3630 
3630 
4000 
3903 
3998 
4147 
4185 


4240 
3756 
4272 
3874 
4019 
4073 
4073 
4061 
5352 
3969 


4041 
3930 
3755 
3758 
3759 


4165 
6242 
4257 


4140 
4138 
4141 
39314 
3791 


3939 
3918 
S931 
4212 
3535 
3600 
3654 
4020 
3999 
4372 
4228 
4254 
3763 
4302 


4043 


4072 
3984 


4340 
3939 


4469 


3935 
3855 


3548 


4042 
5524 
5531 


4273 


3826 


4021 


4348 


6242 


3938 
3862 


3559 


4145 
6007 
6023 


4324 


3534 


4329 


3605 


4154 
6253 


3865 


4024 


437} 


3926 


1OS MONITOR 


5525 


3956 


5529 


3966 


6008 


4337 


6016 


6017 


PAGE 


230 


MBR 
OCTAL 


1754 
1766 
1730 
1720 
5463 
2011 
2250 
5525 
1600 
5420 
5401 
5410 
5400 
4674 
4675 
5402 
1633 
1630 
1626 
1545 
1552 
152i 
1533 
1563 
1573 


667 
5332 
2336 
2346 
2353 
1005 
5342 
5000 
2526 
6345 
6346 
6347 

ai 


o1 


O9=17<7 1 
SYMBOL 


OICMD, 
OIcMD2 
OIDELM 
OJNBLK 
OINCHR 
OINPUT 
OKILL 4 
OLCOMD 
OLCRLF 
OLGBUF 
OLGCTL 
OLGREG 
OLGTAL 
OLGTLO 
OLGTL1 
OLNCHR 
OLOCT 4 
OLOCTL 
OLOCTYU 
OLOGC 
OLOGC2 
OLOGS] 
OLOGS2 
OLOGYX 
OLOGx2 
OLSCAN 
OLSCN] 
OLSCN3 
OLSCNX 
OLTCHR 
OMORMS 
ON 


OPEN 
OPENT 
OPERI1 
OPERI2 
OPERI3 
OPSCE 
OPSET 
OPST 
OSTRT2 
PFILO 
PFILY 
PFIL2 
PLEN 


2920990 


INPUT/OQUTPUT SCHEDULER -2 


REFERENCES 3Y aLTER NO, 


3855 
38465 
3823 
3789 
3932 
3902 
4210 
3983 
3530 
3657 
3652 
3655 
3651 
3644 
3645 
3652 
3602 
3588 
3579 
3471 
3480 
3432 
3434 
3514 
3516 
3955 
3960 
3967 
3997 
3764 
4004 

38 


1763 
1778 
4329 
4337 
4345 
2150 
2162 
4631 
4296 
6229 
6230 
6231 
6232 


3855 
3857 
3823 
3789 
3906 
S891 
4198 
3959 
3512 
3438 
3470 
3621 
3436 
3622 
3435 
3628 
3602 
3588 
3579 
3471 
3474 
3432 
3433 
3514 
3515 
3927 


3864 
3865 
41584 
3829 
3910 
$902 
4210 
3975 
5330 
3629 
3472 
3637 
3561 
3635 
3645 
3629 
3607 


3590 
3476 
3480 
3433 
3434 
3515 
3516 
3955 
3965 


4209 
3853 
3932 


3983 
5530 
3644 
3652 
3655 
3623 
3644 


3653 


6232 


4255 
3963 


3645 


3636 


4213 


3825 


850 
1955 
3296 
4477 
5181 
6295 
6073 
1768 


6482 
2155 


43090 
4397 


3657 


3651 


2162 


4338 


4303 


3957 


1313 
2047 
3482 
4484 
5183 
6314 
6101 
1779 


1368 
2107 
3483 
4482 
5781 


Ne 
ao 


> OH 
~e 


TOS MONITOR 


1423 
2157 
3549 
4529 
5788 


6121 


1479 
2208 
3537 
4559 
5837 


6134 


1525 
2348 
3550 
4570 
5946 


6146 


1573 
2349 
3609 
4579 
§974 


6242 


1614 
2350 
3795 
4580 


6055 


1668 
2389 
3836 
458; 


6255 


PAGE 


1716 
2522 
3869 
4582 
6965 


231 


1773 
2975 
3894 
4947 
6271 


MBR 


OCTAL 


6327 
5107 
2200 

14 
6341 
6342 
6343 
6344 


at 


O9"17=71 


SYMBOL 


ABBR 
BUSY 
CORE 
ENQ1L 
ENOF 
INP 1 
INP2 
INP3 
INVI 
LAST 


Oovoodoovodod00 00 D0 ODD OD 


(=) 


LINK 
OPpOon 
TASK 


oo 


o 


XADD 


XDEQ 
XENG 
XINV 


oon dD. 


QAVAIL 
QBFS2z 
QELSZ 
NENOFO 


190999 


TINPUT/OUTPHT SCHEDULER o@ 


REFFPENCES 8Y ALTER NO} 


6220 
6371 
6375 
6374 
6225 
6226 
6227 
6228 


2586 
2440 
2338 
2493 

678 

673 

677 

671 
2612 
2352 
2376 
26238 
2634 
2646 


2521 
666 


682 
2585 
2601 


667 


669 
668 


670 
738 


674 
652 
653 
2385 


6199 
6134 
6134 
6134 
6197 
6226 
6227 
6228 


2352 
2350 
2346 
2350 
2522 
2350 
2350 
2586 
2440 
2338 
2493 
678 
673 
677 
671 
2612 
2345 
2376 
2623 
2634 
2646 
2499 
666 
2612 
682 
2585 
1173 
5167 
6314 
667 
5978 
669 
668 
670 
733 
2405 
2504 
674 
652 
653 
2378 


6211 
6371 
€375 
6374 
6209 


2386 
2585 
2379 
2380 


2509 


$431 
2585 
2585 
2585 


674 
678 
673 
2767 
2352 


4782 
4780 
4784 
2505 

667 
2623 
2397 
2586 
1175 
5172 


668 
6255 
670 
669 
671 
23539 
2444 
2512 
§75 
653 


2385 


6229 
6374 


6225 


2585 
2601 


2388 
2512 


3517 
2601 
2601 
2601 


2341 
4100 
2344 
2807 


5339 
5758 
5756 
2521 
1173 
2634 
2453 
4100 
2455 
5781 


2356 
6265 
2807 
2767 


2349 
2442 
2515 
2359 
5071 


62352 


2601 
2612 


2389 


2515 


2612 
2612 
2612 


2343 


2346 
2971 


5345 


1175 
2646 
2509 


2601 
5788 


2455 
6271 
3099 
3049 


2341 
2444 
2517 
2340 
5660 


2612 
2623 


2395 


2522 


2623 
2623 
2623 


2377 
3049 


2389 
4631 
2511 


2975 
5837 


2975 
6277 
3517 
3431 


2343 
2445 
4830 
2441 
5888 


2623 
2634 


2397 


2634 
2634 
2634 


2379 
3099 


2405 
4879 
2513 


3891 
5946 


3894 
6283 


2346 
2446 
433, 


5927 


2634 
2646 


2451 


2646 
2646 
2646 


2442 


2446 


4932 
2514 


4205 
5978 


4205 
6288 


2346 
2448 


4833 


1GS MONITOR 


2646 


2453 


2444 


2456 
4935 
4872 


4295 
6255 


4295 
6295 


2356 
2452 
4879 


2454 


2452 


2459 
$160 
492) 


4570 
6265 


45706 
6307 


2377 
2454 
49392 


2497 


2971 


2498 
5164 
4934 


4927 
627} 


4927 
6314 


2379 
2456 
4935 


2498 


2504 
$167 
4941 


5159 
6277 


5760 


2388 
2458 
5184 


2503 


2515 
Si7i 


5160 
6283 


5784 


23589 
2459 
5743 


2504 


2517 


5162 
6288 


5788 


2395 
2497 
5756 


PAGE 


2513 


2585 


5164 
6295 


5837 


2396 
2498 
5758 


232 


2617 


2601 


5166 
6307 


5946 


24904 
2503 
5760 


ol 


O9=—17"71 
SYMBOL 
JENDE | 
JENQE 2 
OFIRST 
QOFFST 
QSPARI 
QSPAR2 
R J 
R L 


R 


x4 0 


R 
R 


@ 
™ 


ACC 
ELT 
FRN 
LEN 


SCR 

SET 
ABBR 
ALLC 
Busy 
FLAG 
GETC 
GETP 
LAST 
MEM1 
MEM2 
MEMS 
MEMX 
MORE 
MREG 
MREQ 


DDDDDADADADAADD VDAADDAABDADVWAAWAD AAW” 


690990 


INPUT/NUTPUT SCHEDULER 


REFEFENCES 3Y aLTER NO, 


4747 
4748 
4749 
4750 
4751 
4752 
4653 
4652 
47098 

695 
4654 
4650 
5064 
4751 
4797 
4710 
4716 
4709 
2765 
4444 
2678 
3966 
3976 
3084 
3098 
2856 
3016 
3128 


2394 
2390 

645 
2612 

684 
4869 
6283 

675 

676 
2974 
2860 
4879 
4477 
2973 
2794 
2939 
3094 
4947 
2793 
4344 
2780 
3078 
4683 
4644 
4685 
4686 
4687 
4752 
4132 
4103 
4114 

695 
4350 
4349 
5964 
4747 
4999 
4247 
4120 
49096 
2765 
4444 
2678 
3066 
3068 
3081 
3059 
2788 
2896 
2860 


2403 

466 
2623 

682 
49214 
6288 

676 

677 
4471 
2565 
4948 
4580 
2975 
2401 
2954 
3095 
5019 
2506 
4845 
2786 
3082 
4747 
4748 
4749 
4750 
4751 
4753 
4653 
4652 
4546 
2795 
4455 
4457 
5066 
4748 
4127 
44714 
4192 
4121 
3185 
5013 
2939 
3071 
3069 
3084 
3060 
2856 
2904 
3097 


2388 
2634 
2353 
4934 
6295 


4843 
2953 
5013 
4780 
4570 
2808 
2963 
3096 
5020 
2818 
4865 
2789 
4447 


4755 


4653 
4550 
2800 
4654 
4650 
5946 
4749 
4152 
4526 
4239 
4191 
3266 


3077 
3076 
3072 


2963 
3128 


2395 
2646 
2387 
4941 
6307 


2957 
5071 
4782 


2804 
2964 
4472 
5068 
2926 
4866 
2799 
4448 


4654 
4708 
2907 
4655 
4651 


4750 


4200 
4529 


4245 
4234 
S071 


6439 


3085 


2977 


2396 
4830 
2451 
5168 
6314 


3097 
5081 
4784 


2847 
2965 
4473 
5079 
2929 
4869 
2802 
4449 


4709 
2995 
4852 
4659 


4751 
4290 
4710 
4280 
4238 
5660 


3098 


5016 


2= 10S MONITOR 


2404 
4833 
2509 
5743 


3128 
4326 


2828 
2966 
4477 


3976 
4879 
2513 
4454 


4755 
3005 
5559 
5554 


4354 
47141 
4458 
4245 
5388 


3917 


2445 
5159 
2511 
5781 


3136 
493i 
2829 
2967 
4522 
3080 


4887 


2822 
4477 


3007 


4356 


4472 
4279 


3018 


2448 
5162 
2513 
5788 


4445 


4947 


2857 
2969 
4564 


3083 
4888 


2925 
4530 


3009 


4565 


4575 
4459 


2454 
3166 
2514 
5437 


4478 


2658 
2975 
45796 


3064 
4909 


2931 
4564 


3076 


4707 


4716 
4473 


2458 
3172 
2975 
5946 


4547 


2459 
3050 
4576 


3086 


4911 


2932 
45860 


3083 


4798 


4717 
4523 


2497 


3891 
§978 


4578 


2903 
3051 
4580 


3087 
4912 


2955 
4846 


3088 


47141 


4747 
4535 


2503 


4205 
6255 


4784 


29190 
3052 
4848 


4477 
4922 


2956 
4947 


3090 


5527 


4748 
4547 


2512 


4295 
6265 


4783 


2915 
3953 
4880 


45484 


4934 
3004 


5558 


4749 
4377 


2545 


4570 
6271 


4785 


2917 
3055 
4921 


4549 


4935 
3065 


5560 


4750 
4709 


2601 


4839 
5277 


4825 


2930 
3077 
4923 


4580 
4947 


3070 


47534 
4710 


5620 
1252 
2447 
100000 
2777 
3005 
3022 
3033 
3037 
3047 
3051 
3053 
2565 
5376 
5350 

5 
200000 
1 


5550 
1 
5560 
5550 
3 
5620 
10 
50 
536 
5321 
5344 
1154 
4165 
1212 
1254 


ot 


Q9"17=71 
SY™BOL 


OMAX 
OPER 
PERT 
RELC 
RELP 
RSVE 
SCRIi 
sCr2 
SCR3 
SCR4 
SCR5 
SCRE 
SCR7 
SCR8 
SKED 
TEMP 
TRAP 
RAVAIL 
RCLOSE 
RCPMAX 
RCPTAB 
RCRMAX 
RCRTAB 
RDEVHR 
RDEVLN 
RDEVTB 
RDHLEN 
RDHRLN 
READ 
READT 
RFIRST 
RGETC1 
RGETCS 
RGETC4 
RGETC5 
RGETC6 
RGETC7 
RGETCS 
RGETP] 
RGETP2 
RINSRT 
RLINKB 
RLINKF 
RLJOBS 
RLPMAX 
RLPTAB 
RLPTB1 
RMEMCK 
RMe320 
RMeDd12 


DDADAADAADA ADDWAAVIAAVDAAWADDA 


09e99K 


INPUT/OUTPUT SCHEDULER 


REFEFENCES BY ALTER NO, 


465§& 
4657 
4748 
2895 
45164 
4718 
5967 
5973 
5675 
5078 
§082 
5085 
5091 
5094 
4779 
3018 
3015 
4656 
47437 
4747 
4683 
4748 
4684 
4682 
4711 
4746 
4659 
4689 
1305 
1348 
2674 
2768 
2778 
2804 
2827 
2781 
2789 
2819 
4459 
4469 
3017 

696 

694 
5039 
4749 
4685 
5928 
3044 
5637 
5036 


41346 
4118 
4745 
2865 
4250 
4120 
5066 
5073 
5074 
5077 
5070 
§084 
5074 
5094 
4779 
2898 
2973 
4117 
4097 
4683 
4607 
4684 
4608 
4344 
4353 
4746 
4344 
4689 
1305 
1305 
2674 
2768 
2778 
2797 
2827 
2781 
2784 
2819 
4459 
4460 
2917 

696 

694 
4995 
4685 
4609 
50a1 
2975 
5030 
5029 


4544 
4541 
4752 
2895 
4516 
4237 
5067 
5074 
5075 
5078 
5082 
5085 
5091 
5096 
5781 
2901 
2974 
4474 
4120 
4747 
4683 
4748 
4684 
4682 
4356 


4346 


3910 
1308 
2780 


2866 
2804 


2787 
2785 
2823 
4463 
4469 
2925 
2793 

695 
5024 
4749 
4685 
50268 
3048 
5037 
5036 


4655 
4657 


3217 
5969 
4245 


5077 
5096 
5084 


5978 
2903 
3015 
4531 
4235 


5345 
4689 
4461 
4659 
5073 


1309 
2910 


2789 


2956 
2802 

696 
5039 


5339 


5752 


§749 


4656 
4656 


3295 


4458 


5093 


2906 
3016 
4542 
4458 


4711 


5667 
1310 
3065 


2996 
2805 
2794 
5967 


53956 


5963 
5962 


4992 


5061 


4536 


2908 


4543 
4546 


4753 


1514 
6440 


3017 
2806 
2801 
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5339 5345 


5732 5777 5974 


4546 4718 


3006 3008 3018 


4656 4657 4976 
4717 4718 4747 4748 4749 4750 


5562 


1348 


2926 2928 2929 2931 3004 3078 
2804 2915 2939 2932 2997 30902 


4751 


3082 
3003 


3092 


PAGE 


3093 
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OCTAL 


o1 
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SYMBOL 


PMORE | 
RMREQL 
RMREQ? 
RMTMAX 
RMTTAB 
ROPFRN 
ROPMAX 
ROPTAS 
RPERTL 
RQMAY 
RQST 
RQSTT 
RRELC1 
RRELC2 
RRELC3 
RRELC4 
RRELCYX 
RRELP1 
RRELP2 
RRELP3 
RRF 
RRFT 
RSCPAL 
RSCPCK 
RSCRAL 
RSCRCK 
RSe320 
R$8.2512 
RSKDRO 
RSKDR1 
RSKDR2O 
RSKDRJ 
RSKDR4 
RSKDRS 
RSKDR6E 
RSKDR7 
RSKDR8 
RSKDRO 
RSKDRX 
RSKEDR 
RSLPAL 
RSLPCK 
RSMTAL 
RSMTCK 
RSPARE 
RSTATE 
RTABCP 
RTABCR 
RTABLE 
RTABLP 


592990 


INPUT/OUTPUT SCHEDULER == TOS MONITOR 


REFEFENCES BY ALTER NO, 


2861 
3133 
3135 
4750 
4686 
4755 
4751 
4687 
4753 

772 
1613 
1623 
2924 
2938 
2952 
2994 
2976 
4554 
4556 
4571 
1415 
1428 
5019 
4973 
5o0il 
4974 
5035 
5934 
4834 
4845 
4864 
4868 
4878 
4890 
4898 
4908 
4949 
4940 
4946 
4824 
§017 
4989 
5012 
4975 
4658 
4651 
4607 
4608 
4605 
4609 


2461 
3133 
3134 
4686 
4610 
3432 
4687 
4611 
4753 

772 
1613 
1613 
2924 
2916 
2934 
2953 
2968 
4554 
4555 
4537 
1415 
1415 
4901 
4857 
4902 
4858 
5035 
5034 
4834 
4845 
4864 
4868 
4847 
4890 
4898 
4908 
4892 
4933 
4832 
4781 
4903 
4859 
4904 
4860 
4658 
4125 
4607 
4608 
4449 
4609 


$134 
$135 
4750 
4686 
3514 
4751 
4687 


2773 


1616 
2940 
2938 
2952 
2957 
2970 
4555 
4556 
4571 
5900 
1418 
5010 
4973 
5011 
4974 
5751 
5748 
4874 
4867 
4977 
4979 
4878 
4915 
4914 
5014 
4919 
4940 
4871 
4783 
5017 
4989 
5012 
4975 
4659 
4198 
4617 
4618 
4605 
4619 


3629 


1623 


2994 
2972 


1419 


4994 


4978 
4996 


4936 
4785 


5022 


4288 


4617 


3910 


2976 


1420 


4997 


4946 
4824 


5023 


4562 


4618 


4755 


1421 


5025 


4651 


4619 


6246 


1428 


4652 


4629 


4621 


4848 


5553 


PAGE 
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ol 


O9"17=7 14 
SYMBOL 


RTABMT 
RTABOP 
RTMAY 
RTYPCP 
RTYPCR 
RTYPLP 
RTYPMT 
RTYPOP 
RUN 
RUN 
RXDVHR 
SCR 
SCRT 
SETFT 
SETFYV 
SETuP 


SKROol 
SPAWN 
SPTCB 
SPTR 
SPTRT 
SPWNT 
T 


AA AHHH At AA 4 


4-4 
= 
rh 
uo 


T SRW2 
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INPUT/OUTPUT SCHEJULER =< 


REFEPENCES WY ALTER NO, 


4610 
4611 

748 
4617 
4618 
4649 
4620 
4621 
5805 
5818 
4688 
1519 
1530 
1264 
1254 
1158 


4838 
1661 
6418 
1567 
1578 
1673 


476 
478 
475 
465 
470 


466 
3184 
474 
3213 


463 


464 


4610 
4631 

748 
4617 
4618 
4619 
4620 
4621 
5824 
5736 
4347 
1519 
1519 
1254 
1254 
1158 
1952 
4838 
1661 
6056 
1567 
1567 
16614 
3190 
3185 


3186 


476 
478 
475 
465 
470 
4579 
6295 
466 
2975 
6271 
474 
5978 
3100 
6284 
463 
5974 
5775 
6104 
6200 
464 


4620 
4621 


4627 
4628 
4629 
4630 
4634 
5825 
5818 
4688 
5076 
1522 
1257 
6066 
1256 
1996 
4942 
6199 
6057 
5095 
1570 
1664 


3217 
3187 


550 
481 
476 
544 
546 

5177 

6307 
545 

3184 

6277 
547 

6255 

3213 

6290 
542 

5077 

5824 

6111 

6202 
543 


5345 


5339 


3218 


3190 
570 
549 


1159 
5180 
6314 
1164 
3891 
6283 
2975 
6265 
4373 
6296 
1162 
5084 
5826 
6113 
6212 
5406 


5827 


1530 


1362 
2098 


6428 


1578 
1666 


4248 
3015 
5622 


2352 
5737 


4205 
6288 
3186 
6271 
4786 
6308 
3134 
5092 
5882 
6122 
6214 
5555 


1417 
2152 


1673 


4527 
3016 
5678 


2386 
5741 


4295 
6295 
3891 
6277 
5086 
6315 
3433 
5096 
5901 
6124 
6243 
5717 


1472 
2203 


4343 
3185 
5720 


2975 
5788 


4570 
6307 
4205 
6283 
5275 


3515 
5269 
5996 
6135 
6245 
5862 


yS2t 
5324 


5474 


3216 
5742 


3891 
5837 


5320 
6314 
4295 
6288 
5330 


3630 
5270 
5912 
6137 


TOS MON TTOR 


1569 


5619 
6415 
5784 


4205 
5946 


5617 


4570 
6295 
5799 


3944 
5296 
5918 
6147 


1615 


6058 


42958 
5978 


5781 


3322 
6307 
5794 


3946 
5328 
S934 
6149 


1663 


4445 
6255 


5768 


5326 
6314 
5341 


4106 
5615 
6067 
6160 


1712 


4478 
6265 


5837 
5621 
5984 
4113 


5655 
6079 


6162 


1765 


4479 
6271 
5946 
5781 
62546 
41437 
5668 


6081 
6170 


1814 


4517 
6277 
5978 
5788 
6266 
4139 


5710 
6988 


6472 


PAGE 


1862 


4570 
6283 
6255 
5837 
6272 
4555 
5715 


6090 
6483 
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1908 


4578 
6288 
6265 
53946 
6278 
5966 
5766 


6102 
61485 
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17 
1 


Rt 
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SYMBOL 


T TEMS 
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INPUT/OUTPUT SCHEUYWLER 


REFEFENCES 3Y ALTER NO, 


492 
729 


5709 
747 
7 46 
745 

5880 

5883 

5861 

6451 

6415 

6416 
645 
635 

1172 

5887 

5922 

5929 

5932 

5950 

5952 

5969 

5973 

5916 

59n2 

5699 

5910 
477 
493 
494 
495 


4g2 

729 
2796 
3128 
3518 
$824 
4112 
4229 
4451 
4555 
4888 
5072 
5171 
5477 
5643 
5742 
5836 
5952 
6122 
6214 
6295 
5695 

747 

746 

745 
5880 
5870 
5831 
6451 
6415 
6416 

645 

635 
1163 
5887 
§918 
5929 
5931 
5939 
5952 
5957 
5954 
5895 
5901 
5893 
5894 

477 

493 

494 

495 


493 
1159 
2799 
3134 
3519 
3A35 
4113 
4230 
4470 
45614 
4893 
5073 
5174 
5494 
5648 
5743 
5837 
5974 
6124 
6243 
6305 
5700 
3920 
3625 
3920 
5882 
5874 
58614 


6416 
6418 
5691 
5674 
1172 


5922 
5931 
5932 
5950 
5972 
5965 
5973 
5906 
5902 
5899 
5906 

551 

494 

495 

496 


560 
11602 
251i 
3136 
3531 
3836 
4115 
4248 
4476 
4563 
4897 
5074 
5177 
5501 
5655 
5744 
58692 
5978 
6135 
6245 
6307 


4153 
4153 


5882 


5903 
5905 


5966 


5912 
5906 
5901 
5910 


561 
562 
563 


3128 
1164 
2817 
3437 
3536 
3850 
4126 
4249 
4478 
4564 
4898 
5076 
518¢ 
5502 
5668 
5765 
5882 
6014 
6437 
6255 
6312 


5526 
5528 


5883 


5969 


5916 


5912 
2777 


2769 


$136 
2552 
2828 
3190 
$537 
3868 
4131 
4274 
4479 
4569 
4999 
$077 
5268 
5525 
5678 
5766 
5891 
6056 
6147 
6263 
6314 


6015 


6015 


5918 


2796 


2775 
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3137 
2353 
283) 
3244 
3546 
3869 
4133 
4275 
4489 
4579 
4912 
5079 
$269 
5525 
5682 
5775 
5901 
6958 
6149 
6265 


2799 


2779 


2386 
2975 
3430 
3549 
3891 
4136 
4289 
4481 
4576 
4913 
5081 
5270 
5551 
5692 
5784 
5904 
6067 
6160 
6269 


2828 


2789 


2387 
3052 
3433 
3550 


39144 


4137 
4294 
4489 
4578 
4920 
5083 
5296 
5555 
5696 
5783 
5905 
6079 
6462 
6274 


2811 


2397 
3055 
54359 
3601 
3916 
4139 
4295 
4517 
4879 
4922 
5084 
S298 
5608 
5709 
5764 
5906 
6084 
6170 
6275 


2817 


2766 
3057 
3440 
3608 
4091 
41514 
4325 
A521 
4808 
4931 
5092 
5321 
$614 
5710 
5788 
5912 
6088 
6172 
6277 


2769 
3058 
3469 
3609 
4992 
4186 
4357 
4522 
4826 
4948 
$095 
5322 
5615 
§715 
5793 
§918 
6090 
6183 
6281 


2775 
3089 
3481 
3630 
4104 
4187 
4358 
4527 
4835 
4949 
5096 
5326 
5649 
5717 
5824 
S931 
6102 
6485 
6283 


2777 
3087 
3482 
3790 
4105 
4199 
4445 
4530 
4838 
5965 
5162 
5324 
5620 
5720 
5826 
5944 
6104 
6200 
6286 
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13 
12 
it 
10 
27 
26 
25 
24 
23 


22 


ot 
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SYMBOL 


TTEMI3 
TTEM44 
TTEMI5 
TTEM16 
TTEMP 1 


TTEMPS 
TTEmMPS 
TTEmMp4 
TTEmMPS 
TTEMP6 


TTEMP7 
TTEMPS 
TYPE 
TYPMK 
UNUCK 
NLKT 
UNUSED 
UP 
UPDATE 
UPDTT 
WAIT 
WRF 
WRET 


KK KOK KOK Ooo OKO OKO OK 
nn 
< 


790990 


FEFERENCES BY 


AQE 
497 
498 
499 
4A1 


798 
791 
834 
812 
820 
804 
887 
912 
TS 
e335 
794 
796 
614 


496 
497 
498 
499 
481 
4489 
5457 
482 
5502 
483 
4949 
484 
$836 
485 
4249 
486 
4325 
487 
488 
637 
648 
1994 
1994 
432 
792 
1906 
1906 
5161 
1470 
1470 


798 
791 
834 
812 
520 
504 
887 
904 
326 
333 
794 
796 
B14 


INPUT/OUTPIT SCHEDULER 


ALTER NO, 
497 564 
498 565 
499 564 
567 2766 
482 552 
4481 4521 
5477 5494 
483 553 
5526 5682 
484 554 
5972 5073 
485 555 
486 556 
4274 46275 
487 557 
4357 4358 
488 558 
492 559 
640 5683 
5020 5684 
3514 50863 
1997 2004 
433 439 
6050 6443 
5654 
1909 1916 
5191 
5930 
1473 1474 
6066 
875 878 
907 
91? 928 
35 953 
380 


2831 
3052 
4522 
$525 
3055 
5709 
3058 
561 
3087 


3824 
4893 
S531 
4897 
3436 
4835 
5728 
3694 
5765 


440 
6451 


1475 


414 
45349 
5643 
3057 
5945 
3040 
5696 
3089 


3835 
4898 
3536 
4943 
3439 
4838 
5746 


$774 


443 


1476 
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4195 
4563 
5648 
4131 


5946 
4145 
5709 
3994 
3336 
3537 


3449 
4929 


444 


4463 


4136 
4570 
5709 
4204 
5971 
4549 
4136 
4092 
3549 


3484 


446 


4199 
4576 
3904 
4294 
4554 
4569 
4111 
3550 


3482 


447 


4289 
5065 
5905 
4482 
4563 
4570 
4112 
3601 


3514 


448 


4446 
5973 
5944 
4570 
4579 
4845 
4451 
3608 


3518 


4447 
5074 
9946 
5068 
4825 
4R66 
4186 
3609 


3519 


4451 
5083 


5079 
4826 
4588 
4487 
3850 


3790 


4470 
5095 


5268 
4931 
4909 
4229 
3A6B 


3794 


4476 
5268 


5501 
4948 
4912 
4230 
3869 
3795 


MBR of 
OCTAL 
160 
36 
5304 
474 
52 


170 
16 


5310 


370 
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SYMBOL 


REG 
XEC 
CIC 
CKPT 


<x «KK XK xX 


DATE 
DBGO 
LOCK 
REGS 
SBAR 
STRT 
TERM 
TIME 


«x «KK OK OK OK OK OK OOK 


XxCKrREG 
XCOMND 
XCONCT 
XDBGON 
XFAULT 


XOFLOW 
XPARTY 
XPATCH 
XTIMER 
XTRAP1I 
XTRAPZ 
XTRAPS 
Y 


Zz 


ZCODE 
ZCODEL 
ZCONS 
ZCONSL 
ZQSTR 
ZOSTRL 
ZSTOR 
ZSTORL 
ZTOPO 


090990 


INPUT/OUTPNT SCHEGUL ER 


FEFFRENCES AY ALTER NOe 


852 

£822 
1128 
1109 


838 
655 
806 
832 
841 
B16 
954 
839 
730 


1130 
802 
808 
853 
874 


618 
810 
846 
800 
902 
924 
949 
731 


73? 


108 
6400 
112 
6406 
116 
6411 
120 
6421 
6426 


352 
822 
1110 
1109 
1955 
838 
852 
806 
832 
841 
816 
908 
839 
730 
3005 
4205 
4852 
5623 
5694 
5943 
6295 
1112 
802 
808 
853 
793 
823 
818 
810 
846 
800 
889 
944 
935 
731 
5636 
732 
3003 
4152 
4541 
5648 
108 
6400 
112 
6406 
116 
6411 
120 
6421 
777 


1113 


1124 
1259 
1999 
883 
A55 


877 
939 


929 


2453 
3078 
4288 
488; 
5627 
5723 
5945 
6307 
1123 


855 
795 
874 


902 

924 

949 
2511 
5644 
2783 
3007 
4191 
4542 
5683 
6400 
6424 
6406 
6424 
6411 
6424 
6421 
6424 
6428 


1117 


1128 
1313 
2047 


1119 


949 
954 


2509 
3082 
4295 
4976 
5629 
5725 
5946 
6314 
1150 


1119 
797 


903 

925 

950 
2513 
5649 
2786 
3009 
4200 
4543 
5684 


lige 


1368 
2107 


1121 


954 


2514 
3093 
4349 
4992 
5632 
5728 
5959 


799 


905 


2804 
5746 
2793 
3667 
4234 
4544 
5685 


1423 
2157 


6027 


2802 
3894 
4350 
5021 
5636 
5746 
3969 


8oi 


915 


2821 
5783 
2794 
3070 
4238 
4565 
5686 
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1479 
2268 


2805 
3972 
4523 
5969 
54538 
5784 
5978 


936 


2932 
5793 
2795 
3976 
4246 
4848 
5687 


1525 
5156 


2806 
3974 
4526 
5080 
5673 
5788 
5979 


805 


2955 


2800 
3083 
4247 
4855 
5688 


1573 
6055 


2aig 
3976 
4529 
5112 
5674 
5826 
598 


RO7 


3866 


2801 
3088 
4279 
5184 
5689 


1618 


2820 
4103 
4535 
51156 
567E 
5837 
99890 


8Q9 


4846 


2803 
30906 
4290 
5527 
5690 


1668 


2907 
4116 
4547 
51714 
5677 
5923 
6255 


811 


4850 


2928 
3092 
4354 
5558 


1716 


2915 
4117 
6548 
5172 
5678 
5904 
6265 


813 


4891 


2929 
4996 
4449 
§560 


1773 


2924 
44134 
4559 
5484 
5679 
5926 
6271 


815 


4910 


2930 
4099 
4455 
5637 


1817 


2951 
41425 
4562 
$325 
5483 
5928 
6277 


817 


4923 


2954 
4114 
4457 
5643 


PAGE 


1867 


2975 
4432 
4870 
Sé21 
5686 
5936 
6283 


A19 


4934 


2995 
4121 
4474 
5645 


239 


1914 


821 


5481 


2997 
4127 
4534 
5647 


MBR OL u9e17—7)h 390990 INPUT/OQUTPIIT SCHEQULER |= 105 MONITOR PAGE 240 


OCTAL SYMBOL REFERFENCES BY ALTER NOe 
7000 ZTOP 6430 778 6430 6431 
400 7Z1 643} 775 60960 6451 6433 6439 
7377 ZZ 6429 6429 6430 
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APPENDIX III 


Listing of peripheral driver prototype - 
Line Printer and Card Punch module are 
implemented. 


O9"17=71 


A 


2 


37 


Lie /9Y 


ERreOr Listing wy TyO FRO Pe TaAPe 


ASSEMOLY CYNTRUL CARDS 
ASSEMBLY DECK SETUP 
bINvLER DECK SETUP 


LUGCATLUN COUNTERS 


LEPINITIUNS OF EXECUTIVE SYSTEM Cuvslanis 


HIT AND STATUS DEFINITIONS 
TRAP BLUCK DESCRIPTIUN 

JOB CUNTROL BLUCK LESCRIPTlUN 
NULIFY BLOCK DESCRIPTIUN 
WUELE MANAGEMENT DEFINITIONS 
CURE MANAGEMENT JEFINITIONS 


SLUBAL UEFINITIONS 


(GLUBAL CONSTANTS 
LOW CURE ALLOCATION == FAULT veECTUR 


LUN CURE ALLOCATIUN ee DEBUG STORAGE 


UIAGNUSTICS 
EXTI MACRO 
BUGGING MACROS 
LRECKPUINT MACRO 
TRAP SETUP MAGRU 


SYSTEM CALL MACKU UESCRIPTIUNS 


SETUP FAULT VECTUR MaCkU 


REAL MACRU 


APENL MACRY 


SET PUINTER MaCRu | 


REQUEST STaTUS MACKU 


Mish 
PaCeE 
PAGE 
PAGE 
PAGE 
PAGE 
PAE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 

PAGE 


PAGE 


PAGE 


PACE 


PAGE 


PAGE 


PAGE 
PAGE 
PAGE 
PAGE 
PAGE 
PAGE 


PAGE 
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39 
40 
ai 
42 
43 
44 
a6 
47 
48 
50 


52 


74 


75 


Leas DY FRKLR LiSilne 


Ani T/C FROM Pe TKPE 


CUratibGe SEGMENT MACRU 


wLUSt 
LUCK 

UNLOLU 
NUTIF 
CAUSE 
CHEEK 
@VEUE 
wUEUE 
wUERUE 
wUEUe 
wUEUE 
wUBUE 


wUEUVE 


maLiey 


MAURY 


KR MACRO 


Y MACKE 


MACRY 

MAURY 

MAWAGEMENT 
MANAGEMENT 
MANAGEMENT 
MANAGEMENT 
MANAGEMENT 
MANAGEMENT 


MANAGEMENT 


GUEUES == QETASK 


GU 


“GENERAL dNIRGUULT UN 
ENW 

pew 

BRANCH MAURO 
DISKSTRKA’S DeStun 

Pp (DUWN) 

v (UP) 


EVE 


wUEVES 2° ySCURE QUEUE 


CURE MANAGEMENT =o 


ore 
CORE 
CURE 
CURE 
CURE 
COKE 
TRAP 
TRAP 


TRAP 


MANAGEMENT 


MANAGEMENT 


MANAGEMENT 
MANAGEMENT 
MANAGEMENT 
MANAGEMENT 


MANAGEMENT 


MANAGEMENT. 


MANASEMENT 


GENERAL INTRODUCTION 


MaCROS 
ALLUCATION 
KEGUEST MURE 
DE@WALLUCAIIUN 
MEMURY RELEASE 
MEMURY REWUESIS 
DESCRIPTIUN 
bETT 


RELT 


PASE 


MBR 
PAGE 
PAGE 
PAGE 


PAGE 


PAGE 
PAGE 
PAGE 
PAGE 


PAGE 


PAGE 9 


PAGE 


PAGE 


PAGE 


PAGE | 


PAGE 


PAGE 


PAGE — 


_ PAGE 


PAGE | 


PAGE 


PAGE 


PAGE _ 


PAGE 


92 O9—)7-7)1 
76 
7? 
78 

ee 
80 
82 
_ 66 
87 
89 
ot, 
92 


94 


106 


ss 
111 
ile 


115 


Lies oY 


énekuk CASTIn&G any T/C FROM Pe TAPE PAwWE 


JUp GuUINTRUL BLUCK MANAGMENT @@ PESOKRIPT LUN 

YUo CUNTROL BLUCK MANAGEMENT e= Geld 

JUp UGNTROL BLUCK MANAGEMENT |= KeLJ 
FERLTPREXAL MANAGEMENT == DESURIPT LUN 
FERLPHERAL MANAGEMENT == GEIP 

PEKIPRERAL MANAGEMENT @= RELP 

KESUURCE ALLUCATION w= PERIPMEKAL TYPE TABLE 
RESUURLE ALLUCATIUN ef PERIPHERAL HEALER TABLE 
RESUURLE ALLOCATIUN me PERIPRERAL vivicn TAgbe 
JUp LADBLE 

EX]I 


COMMUNICATZONS m= DESCRIPTION 


_ GUMMYUNICATJONS |= SEND MESSAvE 


CUMMUNICATIONS @= CIRAP SERVICE 


CUMMUNICATIONS == KE#ISSUE NUTIFY 


_CUMMUNTCATIONS == NUTIFY CONIRUL BLYUCKS 


COMMUNICATIONS == COMMANDS 


CUMMUNICATIONS #* CUMMANUL GET 


_COMMUNICATIONS w= COMMAND KILL 
COMMUNICATIONS |e CUMMANU RELEASE 
COMMUNICATIONS w= CUMMAND RESTART 


_GUMMUNLTEATIONS ef PERIPHERAL INFURMATIUN (PERL) 


JUG INITIALIZATIUN ROUTINE 


JU PRUCESSING |= DIJKSTRA LOPLEMENTAT AUN 


READ TASK we FILL 


KEAU TASK me BANNERS 


MWR 92 QymL7a/J\ 159.799 Bail LiShinw awu E/E 


FROG Pe [TAPE 


PACE 117 RCAL TASK ee WA] 

PAGE 116 aRLTE TASK we WRITE 

PAGE 122 WRiTe (ASK we S$Qu JUTPUT MUvE 

PACE 425 7 WRITE TASK we $2y FURMAT CUNVERSI] UNO 

PAGE 126 WRATE TASK wm $2) UVUTPUT PARAMETER RUVIINES 
PAGE 126 WRETe TASK we 542 YVUTPUT MULE 

PAGE 129 WRITE [ASK we EMPTY 

PAGE 132 wRite TASK we MAIN 

PAGE 135 INTPLALA ZATION 
PAGE 138 S. Mite - | ASSEMBLY CONTROL CarpS 


PAGE 139 THERE wERE NO WARWINY FLAGS In TRE AbUVE ASSEMBLY 


FARE 


MBR OL 0917-71 102764 LINE PRINTER/ CARD PUNCH MODULE PAGE 


ASSEMBLY CONTROL CARDS 


1 TILS ASSEMBLY CONTROL CARDS 
2 TTL LINE PRINTER/ CARD PUNCH MODULE 
3 HEAD 
4% 
5 s 
6 HOUSEKEEPING CARDS 
7 
8s 
9 Pcc ON PRINT CONTROL CARDS 
10 PMC ON EXPAND MACROS ; 
ii DETAIL ON EXPAND OCTADECeBCI, ASCII, DUPLETC, 
12 DETAIL OFF 
13 Pcc OFF 
000000 19 ORG 0 SET ORIGIN 
20 HEAD AND UNHEADED 
2i LBL LPCP,LPcP LoINE PeRINTER/ CeARD PeUNCH MODIHLE 
: 22 * Se eae - 
23 * 
: 24.8 
25 # SQUASH ASSEMBLER BUG 
26 * 
001000 400013 27 MME OPD 0112/0010 26/202/206/26/202/2202/38 
. OT Ae ae ee 26 «| oles ee een 
29 « 
30 * 
3i * DEBUGGING AIDS 
32% | ; 
33 * IF THE DEBUG swITCH Is SET ONs THEN THE DEBUG MACROS 
Se ee WELL BE EXPANDED. OTHERWISE NOT, 
35 * 
000000 36 OFF Equ 0 OFF SWITCH 
aq00001 37 ON EQU 1 ON SWITCH 
_36 * 
no0000t 39 DeG sET ON INITIALLY ON 
— : Me ees 40 ® Mess wees 
44 * 
5 43 *# 


44 TYL OPSYN” TTLS FOR SYSPROG PPRNT 
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ASSEMBLY DECK SETUP 


46 HEAD 
47 « 
48 *# 
49 * ASsEMBLy DECK sETuUP 
50 * 
51 * 
52 * GMAP ASSEMBLY DECK SETUP «© THE DECK gETUP FOR ASSEMBLING THE 
53 * THIS PROGRAM (HEREAFTER LPCP) IS AS FOLLOWS. ALL CONTROL 
54 4 CARDS BEGIN WITH A °$*, THE FOLLOWING DECK wILL PRODUCE 
55 * A NEW Ke TAPE, A Pe TAPE FOR THE LISTING AND I8 ALSO USED 
56 «.. TO PRODUCE A SYMBOL TABLE FOR DoT. THE SECOND ACTIVITY. 
57 * SYSPRNG PPRNT, CREATES THE SYMBOL TABLE AND STORES THE 
58% RESULTS IN THE FILE "RUBENS/LPCPeSYMeTAB, TO DO AN ASSEMALY 
59 * SIMPLY SUBMIT THE FOLLOWING PROGRAM TO TECOSS 
60 « SOURCE RUBENS/<NAMEmOF mDECK>SRUNSEXIT 
6i * ALTER CARDS SHOULD BE SAVED PREVIOUSLY IN FILE *“RUBENS/AL TERS? 
62 %.- 
63 * 
64 *$ - gNUMB MBR 
65 *§ IDENT RUBENS, MICHAEL 
66 *$ | GMAP COMDK » DECK 
67 *8 TAPE Ga egXi Don TAPEHAssL PCPA 
68 *$ |. TAPE = %15X2R 
69 *§ TAPE K@oX3Dee0eLPCPB 
70 *$. TAPE Pe eX4Seo na eLPCPPRINT 
71 *8 ASCII Ae, BCDT,RUBENS/ALTERS 
72. *$8 SYSPROG PPRNT 
73 *§% TAPE INeX4Dee0eLPCPPRINT 
Coe ee ee eS UPRMPL | AL es SsReRUBENS/LPCPHSYMo TAB OA 
75 *§ COMMENT PLEASE PRINT P® *LPCPPRINT® FOR MBR. THANX, 
76 *$ ENDJOB 
77 *$E0D 


MBR 01 


09°17=71 
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79 
60 
81 
82 
83 
84 
85 
86 
87 
88 


89. 


90 
91 
92 


BINDER DECK SETUP 


®*®eeeseseneaese & 


S$ByILD 


93 § 


94 


HEAD 
BINDER DECK SETUP 


THE BINDER DECK sETuP == THE DECK sETuP FOR LOADING THE 
ASSEMBLED PROGRAM INTO THE R & DC SYSTEM IS aS FOLLOWS, NOTE 
THAT THE DECK IS LOADED VIA °MULTIBINDER® AND NOT THE USUAL 
*BINDER®’, THIS IS NECESSARY IF BOTH MULTI@SEGMENTS AND SE 


COUNTERS ARE TO BE USED, 


DCARD 3o$ 
SPAWNSySsRYRENS,MULTIBINDER 
FNAME ®/XLPCPA 


OBJECT 


MBR 
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000000 
000000 


003060 
003060 


003260 
003260 


003320 
003320 


000000 
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96 

97 

98 

99 
100 
101 
id2 
103 
104 
105 
106 
107 
106 
109 
110 
11 
112 
113 
114 


LOCATION COUNTERS 


ses e#n8# 0223 8 2 


HEAD 


LOCATION COUNTERS 


THE FOLLOWING PREDEFINES THE ORDER IN WHICH THE LOCATION 
COUNTERS WILL OCCUR» INDEPENDENT OF THE ORDER IN WHICH 


THEY ARE USED WITHIN THE PROGRAM, 


Use CODE MAIN PROGRAM SEGMENT 

BSS 0 

UusE CONST STORAGE FOR CONSTANTS» TABLES 
Bss 0 

usE QsTOr FOR ALL queues 

Bss 0 

use STORE FOR ALL DYNAMIC STORAGE 

BSS 0 


use CODE CODE LOCATION COUNTER INITIALLY 
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000900 
00000! 
000002 
000003 
000004 
000005 
000006 
000007 
000010 
0000!! 
rave ooo... 000012 
000013 
900014 
900015 
000016 
000017 


igh Sainte cas debe BM eae ey ot nies eG OO Ome as 


000021 
000022 
000023 
000024 
000025 
fe So B pecSene Steel terete etc QOOOZ6 
000027 
000050 
000031 


0000852 | 


000035 


900034 _ 


000035 
. .. 000036 
000037 
000040 
000041 


we cee ee. 000042 


000043 


000044 
000045 
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124 
125 
126 
127 


128. 


129 
130 
131 
132 
133 


134. 


135 
136 
137 
138 
139 
140 
141 
142 
143 


144. 


145 


146. 


147 
146 
149 
150 
151 


. 152. 


153 
154 
155 
156 
157 


eek 56. 


159 
160 
161 
162 
163 


165 


166. 


167 
. 168 
169 
170 
171 
172 
178 


164 


PaGE 


DEFINITIONS OF EXECUTIVE SYSTEM CONSTANTS 


2 828 8 #8 Se S&B 


w 
ePerivyv 
eSETFY 
«SETSO 
e SQUEZ 
eREAD 
eo APEND 
aRRE 
aWRE 
2SCR. 
eSPTR 


eRODT 
aRQERT 
eSPAWN 
e TERM 
ePAUSE 


eCLSEG 
aCHSEG 
eEXSEG 
eOPEN 

eCLOSE 


eDESTR 
e OPENS 
eUPDAT 
eCATDOR 
eWRACL 


eRDDIR 
eOPENW 
eRDBRN 
@RDLK. 
eWSINE 
ee CATLK 
eWBRAN 
eLOCK 

e UNLOCK 


eROST 


eOPSEG 


eCATLG. 


@RDACL | 


HEA 


D 


EXECUTIVE CONSTANTS 


THE DEFINITIONS OF SYSTEM PARAMETERS SUCH AS MME NUMBERS 
ARE INDICATED BY SYMBOLS WHICH START WITH A DECIMAL POINT, 
THEY ARE NOT HEADED SO A TYPICAL REFERENCE I8 LDX X0eS8.0PENSDU, 


Egu 
EQU 
EQu 
EQU 
EQu 
Eou 
EQy 
EQU 


. £Qu 


EOU 


QU). Wc 22, 


EOU 
EQuU 
EQU 
EQU 
EQU 


£QU _ 


EQU 
£QU 
EQU 
EQU 
EQU 
EQu 
EQU 
EQU 
EQU 
Eou 
EQU 


EQuU 
£aQuU 
EQuU 


-EQU 


EQU 
QU 
EQU 
EQU 
EQU 


EQU . 


OON OU RGN Oo 


_ DEFINITION OF MME NUMBERS 


MICRO@CODED PrIvILEGED PRIMITIVE 
SET UP FAULT VECTOR 

SET UP SQUEEZE MODE 
ENTER SQUEEZE MODE 

READ 

APPEND 

READ RANDOM FILE 

WRITE RANDOM FILE 
SCRATCH 

SET POINTER 

REQUEST STATUS 

REQUEST DATE AND TIME 
REQUEST ELAPSED RUN TIME 
SPAWN 

TERMINATE 

PAUSE 

OPEN SEGMENT 

CLOSE SEGMENT 

CHANGE SEGMENT LENGTH 
EXCHANGE TWO SEGMENTS 
OPEN 

CLOSE 

CATALOGUE 

DESTROY 

OPEN SCRATCH 

UPDATE 

CATALOGUE DIRECTORY 
WRITE ACCESS CONTROL LIST 
READ ACCESS CONTROL LIST 
READ DIRECTORY 

OPEN WORKING DIRECTORY 
READ BRANCH 

READ LINK 

WRITE SYSTEM INFORMATION 
CATALOGUE LINK 

WRITE BRANCH 

LocK 

UNLOCK 


MBR 


O1 


09=17-71 


19-764 


000046 
000047 
000050 
000051 
000052 
000055 
000056 
000057 
000060 
000061 
0000638 


LINE PRINTERY CARD PUNCH MODULE 


PAGE 


DEFINITIONS OF EXECUTIVE SYSTEM CONSTANTS 


174 eNOTIF EQU 38 
175 eCAUSE EQU 39 
176 eDELET EoU 40 
177 eyNCAy Eu 41 
178 sOPSCE OU. 42 
179 eMSTA EQU 45 
180 eRDME €QU 46 
181 eCRSG EQU 47 
182 eWTME EQU 48 
183 eWAMI EQU 49 
184 eRQWD £QU 51 


NOTIFY 
CAUSE 

DELETE EVENT 

UNCAUSE EVENT 

OPEN SCRATCH EVENT 

SYSTEM STATUS MEASUREMENTS 
MEASURE READ ME 

CREATE SEGMENT 

WRITE ME 

WHO AM I 

REQUEST WORKING DIRECTORY 


MBR 


01 
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Ce ee 000200 | 


100764 


002000 
001000 
900400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
ooo000l 


400000 
200000 
100000 
040000 


Piss. berets OOOO On. te: 


010000 
004000 
002000 
_ 001000 
000400 


000020 
000010. 


000004 
_ 000002 
000001 
000037 
000004 


. 000002. 


LINE PRINTER/ CARD PUNCH MODULE 


BIT AND STATUS DEFINITIONS 


233 * 


186 HEAD 
187 * 
1686 * 
189 * 
190 « 
191 * 
192 * 
193 * 
194 * 
195 RpT BOOL 
196 ABIT BOooL 
197 BBIT BOOL 
196 CAIT BOOL 
199 TZE BOOL 
200 TNZ goo. 
201 TM] BOOL 
202 TPL . BOOL 
203 TRC BOOL 
204 TNC BOOL 
205 Tov BOOL 
206 * 
207 * 
4) |. Gh See eee 
209 * 
210 ZEr BOOL 
211 NEG BOOL 
212 CAR BOOL 
2135 OVF BOOL 
214 FOV. BOOL . 
215 EUN BOOL 
216 OvmM BO00L 
217 TAL BOOL 
218 PAR  BOOL 
219 PAM BOOL 
220 MOD BOOL _ 
221 * 
222 * 
223 * 

224 * - 
225 rD BOOL 
. 226 WT. EQU. | 
227 AP EQU 
228 EX £@V 
229 LK EQU 
230 ALL. FOU 
231 NO BOOL 
.232 CA... EQU 


B 


DEFINITIONS FOR 


002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
oo0od! 


.. DEFINITIONS FOR 


400000 
200000 
100000 
040000 


020000 


010000 
004000 
002000 


001000 


000400 


..990200. _- 


PAGE 7 


Birt DEFINITIONS 


REPEAT INSTRUCTIONS 


COUNT FIELD FOR RPT INSTRUCTIONS 
INCREMENT FIRST INDEX REGISTER 
INCREMENT SECOND INDEX REGISTER 
LOAD C(xo) FROM REPEAT INSTRUCTIAN 
ZERO 

NON ZERO 

NEGATIVE 

PosITIVvEe 

CARRY 

NO CARRY 

OVERFLOW 


INDICATOR REGISTER 


ZERO INDICATOR Bit 
NEGATIVE 

CARRY 

OVERFLOW 

EXPONENT OVERFLOW 
EXPONENT UNDERFLOW 
OVERFLOW MASK == ON PRFVENTS OVERFLOW FAULTS 
TALLY RUNOUT 
PARITY ERROR 
PARITY ERROR MASK 
MASTER MODE 


DEFINITION FOR ACCESS BITS 


20 


-RD/2 


WT/2 

AP/2 

Ex/2 
RD+WT+APeEXoLK 
4 


. NOZ2 


READ ACCESS 
WRITE 
APPEND 
EXECUTE 
LOCK 

ALL 

NOTIFY 
CAUSE 
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000000 
000001 
000002 
0000038 
000004 
000005 
000006 
000007 
000011 
000012 
000018 
000016 
000026 
000035 


000005 
000007 
g000i11 
000013 
_ 000016 


. 000004 


000077 
400000 
400000 
200000 
100000 
040000 
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235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 


251... 


252 
255 
254 
255 
256 
257. 
258 
259 
260 
261 
262 


263_1P 


264 


265 | 


266 


267. 


268 
269 
270 
271 
272 
273 
274 
275. 
276 
277 
278 
279 
280 


BIT AND STATUS DEFINITIONS 


~~? 
a 
x= 
co J 


* 


#e# toe es 2'8 
ae 
t 
} 


261.9. 


BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 


-BOOL . 


BOOL 
goo. 


BOOL 


BOQL 
BOOL 


_ BOOL 


BOOL 


BOL... 


_ BOOL 
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DEFINITIONS FOR EXEC STATUS RETURNS 


00 
01 
02 
03 
04 
5 

6 

07 
11 
12 
13 
16 
26 
35 


LOGICAL sTATUS CODE FOr 1/0 PrIMITiIves 


OK 

INVALID FRN 

INVALID ACCESS SPECIFIED 

EXECUTIVE TOO BUSY 

INVALID OPERATION FOR THIS DEVICE 

COPY POINTER IS OUT OF BOUNDS 

AMOUNT REQUESTED GREATER THAN FILE LENGTH 
ELEMENT SIZE 18 NOT A MULTIPLE OF UNIT SIZE 
INVALID MODE 

HARDWARE ERROR == OPERATION NOT COMPLETE 
DEVICE UNAVAILABLE (HARDWARE) 

ENDWOF*FILE ENCOUNTERED 

NO FILE STORAGE AVAILABLE 

TIMER RUN OUT ON OPERATOR®S CONSOLE 


LOGICAL stAUS CODE FOR FILE AND EVENT PRIMITIVES 


5 
7 


Al 


13 


AS. 


INVALID NAME 
UNRECOVERABLE ERROR 
TIME LIMIT EXCEEDED 
ITEM LOCKED 

INVALID PASSWORD 


LOGICAL sTATUS CODES FOR CONTROL PRIMITIVES 


1/0 ACTIvITy IN PROGRES$ 


MISCELLANEOUS BITS 


77 


.400000 


400000 
TERMs2 
DELIMs2 
DIGIT/2 


STATUS BIT MASK 
SIGN BIT 
TERMINATOR BIT 
DELIMEINATOR 
DIGIT 

OPERATOR 
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B BIT AND STATUS DEFINITIONS 
283 * 
284 * 
285 * DEFINITIONS FOR J$FLAG 
286 * 
287 *# JSFLAGS (LOWER) 
288 * 
400000 289 KILL BOOL BSSIGN KILL THIg JOB 
200000 290 RHDR EQU KILL 2 FAKE A READ OF A HEADER SUFFER 
100000 291 WHDR EQU RHDR/2 WRITE A HEADER BUFFER 
040000 292 ENDR EQU WHDR/2 END OF FILE REACHED ON READING 
020000 293 ENDW EQU ENDR/2 END OF FILE REACHED ON WRITING 
010000 294 HALT EQu ENDW/2 HALT READING TO DO SPTR (RESTART) 
295 *# 
000400 296 LP BOOL 400 LINE PRINTER 
000200 297 CP BOOL 200 CARD PUNCH 
298 *# 
COO Wired: eee He a JSFLAGS (UPPER) 
300 » 
001700 304. MODMK  B800L 1700 MEDIA MASK FOR rCw (BITS 26 = 29) 
740000 302 JOBMK BOOL 740000 JOB NUMBER MASK (TOP 4 BITS) 
000017 303 B8JBMK  BOOL 17 4 BIT MASK 
020000 304 HDRMK BOOL 020000 HEADER MASK (ON » OUTPUY BANNER) 
Stee | Att O000O, _- -305 BHDR...goOL . 4 . HEADER BIT MASK 
010000 306 OUTMK BOOL 019000 OUTPUT TYPE MASK (OFF = 5123 ON @ 320) 
000001 _ $07 BormK BOOL 1 OUTPUT BIT MASK 
007777 308 SRTMK BOOL 007777 START ADDRESS IN ELEMENTS OF JSBFez 
007777 309 BSTMK BOOL 7777 BIT MASK 
310 * 
Luce : Doma tenlt: De 3 ) e,. eeeneereaees - . 
312 * BITS RETURNED TO MONITOR 
313 2. pag 
002000 314 GEy BOOL 002000 PERIPHERAL GOTTEN (NOT SENT) 
_ 004900 | 315 ABORT BOOL 004000 PERIPHERAL ABORTED 
006000 316 REL BOOL 006000 PERIPHERAL RELEASED 
ce ee 2. 0190000  _— S17 XXXX BOOL _Q10000 NOT USED Lx 
012000 316 RSTRT BOOL 012000 PERIPHERAL RESTARTED 
014000 319 DONE BOOL 014000 JOB FINISHED SUCCESSFULLY 
016000 320 RDY BOOL 016000 READY PERIPHERAL 
321i. * 
322 * 
Bh gestae. he) dhustndiaandenyaatepte Gaile a cat ERM Bipot eee CARD PUNCH MODES 
324 * 
000000 325 Ceo  BOOL 0 STATUS 
000001 326 CPi BOOL i ATTENTION 
000002 327 CPp2 8004 2 WRITE CARD BINARY 
000003 328 CP3 BOOL 3 WRITE CARD HOLLERITH 
Svein sh 000004 _..329.CP4 BOOL 4 WRITE CARD HOLLERITH EDITED 


MBR 
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ooo0000 
000001 
000002 
000008 
000004 
000005 
000006 
000007 
000010 
000011 
000012 
000018 


000014. 


000015 
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331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 


BIT AND STATUS DEFINITIONS 


* 
® 

* 

* 
PO 
LP1i 
LP2 
LPS 
LP4 
LPS 
LP6 
LP7 
LPio 
LPit 
LP12 
LP13 
LP14 
LP15 


- BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 

BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 

_. BOOL 
BOOL 


LINE PRINTER MODES 


PAGE 


0 STATUS 

| ATTENTION 

2 WRITE EDITED CONTINOUS» NO SLEW 
3 ENITEDs NO SLEW 

4 EDITED. SLEW 1 LINE 

5 EDITED. SLEW 2 LINES 

6 EDITEDs SLEW TOP OF FORM 

7 NON EDITED» NO SLEW 

10 NON EDITED» SLEW 1 LINE 

11 NON EDITED» SLEW 2 LINES 

12 NON EDITEDs SLEW TOP OF FORM 
13 SLEW 1 LINE 

14 SLEW 2 LINES 


15 SLEW TOP OF 


FORM 


10 


MBR O1 
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900000 
000001 
000002 
000008 


000004 


. 900005 
000006 
_ 900006 
000007 
000030 


000027 


000025 
000024 
000023 
000022 
000021 
...000020 


900017 
000016 


900015. 


000014 
—  ._ 000018 
000012 
000011 
000010 


ween 900026. 
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350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
366 
369 
370 
371 


S72. 


373 
374 
375 
376 
377 


378. 


379 
380 
381i 
382 
383 
.. 384 
385 
386 
387 
388 
389 


390. 


391 
392 
3938 
394 
395 


TRAP BLOCK DESCRIPTION 


HEAD 


T 


PAGE 


TCB 


THESE SyMBOLS ARE USED IN REFERENCING SPECIFIED wORDS 


IN THE TRAP BLOCK 


Equ 
EQU 
EQU 
EQU 


- €OU 


EQU 
EQuU 


Equ. .. 


EQU 


. EQU 


Egu 


EQU _ 


EQU 
EQU 
EQU 
EQU 
EQU 


EQU.. 


Une o 


5 
6 


NCB. 


7 
24 


LEN@=1 


_ TEMP1 24 


TEMP2=4 
TEMP3~1 
TEMPA=j 


. TEMPS 1 


TEMP6014 
TEMP7@4 


(TBLOCK), 


FIRST STATUS RETURN WORD FROM EXEC 
SECOND STATUS RETURN WORD 

SAVED IC/IR WHEN EXEC SPRINGS TRaP 
CONTROL IS TRANSFERRED HERE WHEN EXEC 
SPRINGS THE TRAP. IT CONTAINS AN XED 
OF A CHAIN WHICH LINKS THE TRAP TO THE 
MASTER TASK QUEUE. 

(UPPER) RESTART ADDRESS FOR TASKS ON 
ON A QUEUE (SUCH AS THE OSTASK) 
(LOWER) MAY BE USED TO SAVE RETURN 
FROM A REENTRANT ROUTINE 

(UPPER) LINK TO PREVIOUS TcB 

(UPPER) POINTER TO NCB 

(LOWER) POINTER TO JCB 

SPARE 

LENGTH OF TCB (NICE IF MULTIPLE oF 8) 


TEMPORARY STORAGE Ar END OF SLOCK 
MORE TEMPORARY STORAGE 


NO ONE EXCEPT RSGETC SHOULD USE TEMP9 = TEM16 


Equ 
EQU 


cov. 


EQU 
EQU 
EQU 
EOU 
EQU 


TEMp8=} 
TEM9=j 

TEMiO=1 
TEMI1~1 
TEMI2—1 
TEMi 31 
TEML4<} 
TEMI5=1 


if 
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T JOB CONTROL 810CK DESCRYPTION 

397 HEAD J 
398 * 
399 * 
400 * JCB 
401 * 
402 * 
403 * 
404 * THESE SYMBOLS ARE USED IN REFERENCING SPECIFIED wOrRDs 
405 *. IN THE JOB CONTROL BLOCK (HERAFTER CALL JCB), 
406 * 
407 *#. PLEASE NOTE THAT THE NUMBER OF JCB*s Ig (AND MUST BE) EQuAL 
406 * TO THE NUMBER OF DEVICES AT MAX. THEREFORE IN ORDER TO 
409 * MAKE MORE EFFICIENT USAGE OF THE DYNAMIC BUFFER AREA 
410 * THE JcB"’S ARE ALL PRE@ALLOCATED. THIS IS DONE FOR THE FoLe 
411 * REASONS’ 
412 * (1) SINCE A JCB IS ALLOCATEN AT JOB INITIALIZATYON AND 18S | 
413. 2#.. NOY RELEASED UNTIL JOB COMPLETION» wE DON’T wANT MEMCORY 
4144 * TIED DOWN THAT LONG, 
415 * (2) ALSO WE DON*®T WANT TO CREATE LARGE HOLES IN MEMORY (E.G. 
416 * A JCB GRABBING A RELEASED $320 WORD BLOCK 
ree * (3) THERE ARE ONLY AS MANY JCB8°S AS DEVICE (CURRENTLY 3) 
418 * 

Sao roa 419. #.. .. THE FOLLOWING MACROS CAN BE USED TO MANAGE JCB?’s3 
420 * 
421 * GETJ GEts A JCB ( C(xJ) © JCB-ADDRESs) 
422 * RELJ RELEASES A JCB ¢ Cc(XJ) & DESTROYED) 


MBR coh | 
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J 


777777 


000000. 


000001 
900002 
0000038 


000004 
000005 
000006 
000007 


000010 
000011 


000012 
000013 
000014 
000015 


000015 
000016 


000017 
000020 


000002 
000024 
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424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
436 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 


452... 


453 
454 
455 
456 

457 


JOB co 


a 
® 
i] 


ALLC 


FLAGS. 


FLAG 
IFRN 
OFRN 
CARD 
BUF SZ 
RSTRT 
RCw 


XDATA 
EMPTY 


FULL 
RPTR 
WPTR 


-RTASK 


WTASK_ 


RES 


RTRY 
RESET 


NTROL BLOCK DESCRIPTION 


EqQu = 

€oQu 0 

EQU i 

EQu 2 

EQU 3 

EQU 4 

faye 5 

EQU 6 

EQy 7 

EQU 8 

EQU 9 

EQU 10 

EQU Mi 

FOU 12 

EQU “43 

EQU RTASK 
EQU WTASK41 
£Qu RES+1 
EQU RTRYs1 
Equ 2 

EQU RESET+14N@ALLC 


PAGE is 


ALLOCATED FLAG wORD (0 @ FREE) 

FLAG BITS 

TSSRW2 WHEN CAUSED 

(UPPER) INPUT FRN 

(UPPER) OUTPUT FRN 

(LOWER) PERIPHERAL UNIT NUMBER 

FIRST PUNCH CARD (0 = MESSAGE TO OPER) 
(LOWER) WORKING BUFFER SIZE 

(LOWER) RESTART ELEMENT ADDRESS 

(yPPER) PTR TO NExT RCw 

(LOWER) MUST BE ZERO 

(UPPER) PTR TO END OF INPUT DATA 

(UPPER) RESTART AppReESS FOR ENO 

(LOWER) SEMAPHORE == NUMBER OF BIFFERS TO FILL 
(UPPER) RESTART ADDRESS FOR END 

(LOWER) SEMAPHORE == NUMBER OF SIJFFERS TO EMPTY 
(UPPER) PTR TO NEXT INPUT QUPFER INDIRECT 
(LOWER) MUST BE ZERO 

(UPPER) PTR TO NEXT QUTPUYT BUFFER INDIRECT 
(LOWER) MUST BE ZERO 

(UPPER) POINTER TO READ TASK 

(LOWER) POINTER TO WRITE TASK 

TYPE OF RESOURCE REQUIRED 

RETRY COUNTER 

(UPPER) PTR TO END OF BUFFER QUEUE 

(LOWER) PTR TO START OF SUFFER QIIEVE 

RESET MUST BE JUST BEFORE BUFFER QUEUE, 


NUMBER OF WORKING BYFFERS 
JCB LENGTH 
NOT NECESSARY TO BE EVEN 


MBR 
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10.764 
J 


000000 
000001 
000002 
000003 
000004 


000005. 


000005 
000006 
000006 
000007 
000027 
000026 
000025 
000024 
000023 
000022 
000021 
000020 
000017 
000016 
000015 
000014 
0000135 
vee. . 900012 
000011! 
000010 
000030 
000031 
000032 
000033 
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NOTIFY BLOCK DESCRIPTION 


463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473_« 
474 Srwi 
475. SRw2 
476 RET 

477 XED 

478 TRA 


#2328 8¢+8 828 ©» 8 


479 LINK ... 


480 RLINK 
481 NCB 

482 Jca 

483 SpARE 
484 TEMP 
485 TEMP2 
486 TEMPS 
487 TEMP4 
488 TEMPS 
489 TEMP6 
490 TEMP7 
491 TEMPS 
492 TEMS 

493 TEM10 
494 TEMi1 
495 TEmMi2 
496 TEmM13 
497. TEM14 
498 TEM15 
499 TEM16 
500 ERN 


501 STATE 


502 Mess 
503 RES 


HEAD 


C 


PAGE 


NCB 


THESE SYMBOLS ARE USED IN REFERENCING SPECIFIED WORDS 
IN THE NOTIFY BLOCK (ALIAS NCB), 


Equ 
EQU 
EQU 
EQU 
EQuU 
EQU 
EQU 
EQu 
EQU 
EQu 
EQU 
LOU 

EQU 

EQuU 

EQU 

EQU 

EQU 


—EQU_ _. 


EQu 
EQuU 
EQuU 
EQY 
EQU 


. EQU 


EQU 
EQU 
EQU 
EqQu 
EQU 


__ £QU 


A NCB Ig A TCB WITH EXTRAS 


T$SRwi 
TSSRw2 
TSRET 
TSXED 
TSTRA 
TSLINK 
LINK 
TSNCB 
TSJcB 
TSSPARE 
TSTEMPi 
TSTEMP2 
TSTEMPS 
TSTEMP4 
TSTEMPS 
TSTEMP6 
TSTEMP7 
TSTEMPS 
TSTEM9 
TSTEM1IO 
TSTEM11 
TSTEM12 
TSTEM13 
TSTEM14 
TSTEM15 


TSTEM16 


TSLEN 
ERNe1 
STATE+! 
MESS¢1 


(LOWER) RESTART AFTER NOTIFY 


(UPPER) EVENT FRN 

STATE 

36 BITS MESSAGE (OPTIONAL) 

TYPE OF RESOURCE REQUIRED (LP/ CP) 
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Cc 


505 
506 
507 
508 
509 
510 
Sid 
512 
513 
$14 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
= 527. 
526 
529 
530 
S31 


NOTIFY BLOCK DESCRIPTION 


zeenre eee 
o 
ie 


wt 
-— 


PaGE 15 


THIS MACRO Is USED TO GENERATE THE NECESSARY NOTIFY CONTROL 
BLOCKS FOR THE COMMUNICATIONS NETWORK, 


MACRO 
USE 
EIGHT 
BSS 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 


. ZERO 


ZERO 
DEC 
DuP 
pec 
ZERO 
ZERO 
VFD 
ZERO 
use 
ENDM 


LABEL »RESTART@ADDsERNo STATE MESSAGE sRESOURC=TYPE, PER=BITS 


STORE 


0 

Os BSTRO 
0,9 

020 

0,0 

#ae0 
Ook? 
*eC$NCB,*-CS$JCRB 
0 

1216 

0 

#30 

#400 
S6/K5 
46,#7 
PREVIous 
NCB 


LABEL 

SRW1i3 SIMULATE A TIMER RUNOUT 
SRW2 

Ret 

XED 

TRA 

LINK/ RESTART 

*NCB/ JCB POINT TO THEMSELVES 


TEMP1 THRU TEM16 


ERN 

STATE 

MESSAGE 

RESOURCE TYPE / PERIPHERAL BIT 


MBR O02 09917713 100764 


C 


000000 
o000001 
000002 
000004 
000006 
000010 


eee ee .. 000011 
o000l1e2 
o00013 
000014 
000015 
000016 


“i - : 2 _ 000004 
000003 


QUEUE MANAGEMENT DEFINITIONS 


533 
534 
535 
536 
§37. 
538 
539 
540 
541 8 


ee 8s 8 8 8 ft 


542 First 


543 LAST 
544 XADD 
545 XENQ 
546 XDEQ 
547 BUSY 
546 

549. MAX. 
550 AVAIL 


551 SPAR1. 


552 SPAR2 
553 ABBR 
554 LEN 


555 8 


556 * 
557 OFFsT 
558 LINK 


HEAD 


LINE PRINTER, CARD PUNCH MODULE 


Q 


PAGE 


ocB 


THESE SYMBOLS ARE USED IN REFERENCING SPECIFIED wORDS 


IN 


Equ 
EQU 
EQU 
EQU 
EQU 
EQU 


£QU 


EQuU 
EQuU 
EOU 


-€aQu 


EQu 


EqQu 
EQU 


0 
FIRST#1 
LAST+1 
XADDe2 
XENQ42 
XDEQs2 


BUSYel 
MAXe1 

AVAILe1 
SPARIi +1 
SPAR2+41 


ABBRel 


4 
OFF ST#1 


A QBLOCK GENERATED BY THE QUEUE MACRO, 


POINTER TO FIRST BLOCK OF QuéEUE 
POINTER TO LAST RLOCK OF QUEUE 
INSTRUCTION PAIR FOR ADDINGA BLOCK 
INSTRUCTION PAIR FOR ENQUEVUEING 
INSTRUCTION PAIR FOR DEQUEUEING 
RESPONSIBLE BLOCK IF QUEUE IS BUSY 
ZERO OTHERWISE 

MAXIMUM NUMBER OF ITEMS ASSOCIATED WITH Q 
NUMBER OF ITEMS CURRENTLY AVAILABLE 
SPAR1 

SPAR2 

ASCII ABBREVIATION OF QUEUE 

LENGTH OF QUEUE (WISE TO KEEP EVEN) 


OFFSET FOR QUEUE POINTER 
FORWARD LINK POINTER 
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Q 


000000 
000900 
000001 


LINE PRINTER/ CARD PUNCH MODULF 


PAGE 
CORE MANAGEMENT DEFINITIONS 
560 HEAD R 
561i * 
562 * 
563 * ccs 
564 « 
565 * 
566 * THESE sYMBOLS ARE USED IN REFERENCING SPECIFIED wWOrDs IN 
567 * A BLOCK ON THE FREE MEMORY LIST, 
566 * 
569 LINKF Egy 0 POINTER TO suCCESsOR (UPPER) 
$70 LEN... EQU —. LINKF TOTAL LENGTH (IN WORDS) OF BLOCK (LOWER) 
571 LINKB EQU LINKF +, POINTER TO PREDECCESSOR 
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R 


10.764 


oo000L 


- 000002 


000003 
000004 
000005 


000006 


000007 


777777 
525200 
525200 
001000 
000777 


000040 


777700 
000100 
000005 
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GLOBAL DEFINITIONS 


PAGE 


573 HEAD 
574 * 
575 # 
576 * GLOBALS 
577 *. 
578 * HEAD SYMBOL USAGE 
579 « 
580 HEAD GLOBAL AND EXEC CONSTANTS 
581 HEAD B GENERAL PURPOSE BITS 
582 HEAD Cc COMMUNICATIONS ROUTINES 
583 HEAD J JCB SYMBOLS AND ROUTINES 
§84 HEAD Q QUEUE SYMBOLS AND ROUTINES 
565 HEAD R RESOURCE ALLOCATION 
586 HEAD $ STATISTICS COUNTERS 
587 HEAD T TRAP SYMBOLS AND ROUTINES 
588 HEAD xX DIAGNOSTIC ROUTINES 
§89 HEAD 
590 » 
591 * 
592 * INDEX REGISTER DEFINITIONS 
593 * 
594 * THE SYMBOLIC INDEX REGISTERS USED IN THIS PROGRAM ARE 
595.2... ONE CHARACTER SYMBOLS. DEFINED UNDER EACH HEAD SYMBOL 
596 * IN USE IN THE PROGRAM. INDEX REGISTER 0 IS SPECIAL. 
597 *. _.SINCE IT 1S USED FOR REPEAT INSTRUCTIONS» SO IT IS NOT 
598 * SYMBOLIC. 
599 * 
600 HEAD OsCo Je QaRo TeX 
O83) OR ae ae 
602 T Equ 1 TRAP BLOCK POINTER 
603. xX | QU 2 TEMP 
604 Y EQU 3 TEMP 
605 Zz EQU 4 TEMP 
606 Q EQU 5 QUEVES AND GENERAL USE 
607 J... EQN  . 6 JOB NUMBER Fe 
606 L EQU 7 LINK REGISTER FOR SUBROUTINE CALLS 
609 * 
610 * 
611 * OTHER GLOBAL SYMBOLS 
612 * 
613....__. .__WEAD .... = . . 
614 ERROR EQU 41 USED YO GENERATE MEMORY FAULTS 
615 BUG = B00L 525200 BUGGING QUANTITY 
616 BUGBUG SET BUG 
617 MQUAN €QU 512 QUANTUM INCREMENT FOR MEMORY REQUEST 
618 CKMK BOOL 777 STATUS MASK (9 BITS) 
619 TALYB. BOOL 40 | : TALLYB BIT 
620 TALMK gOOL 777700 MASK FOR TALLY COUNT FIELD 
621 TAL . BOOL 100 TALLY DISPLACEMENT 
EQU 5 RETRY ERROR ONLY 5 TIMES 


622 RTMAX 
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MBR o1 


_...., 909060 122125102105... 


003066 


003320 
003321 
003322 
905525 


09=17=7} 


10764 


000000 
000001 
000002 


001000 
003000 


003060 


114120103120 
000014 
044000 
000037 
000000 


900000 
002000 


wee 0046002 


903320 
000010 cnan00 
001000 oo0000 
005740 9000 00 


004000 c000 oo 


000000 
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GLOBAL CONSTANTS 


624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638. 
639 
640 
641 
642 
643 
644 
645 
846. 
647 


HEAD 
® 
® 
* 
* 
* 
® 
J 
FrRno Equ 
FRNI EQU 
FRN2 £QU 
a 
* 
* 
CPsr BOOL 
LPS BOOL 
We ins ede waite dasmnect 
2 
* 
® 
* ee 
usE 
DIN... UVASCI 
UASCI 
DTSsz..- EQU 
DES2 EQU 
Dacc.. BOOL 
USE 
WEE TN os Sih J 
® 
® 


« 
BuFSEG Egu 


1K EQU 
RQMAX EQU_ 
* 
use 
AVAIL ZERO 
MEMRQ ZERO 
MTOPQ ARG 
MTOP ARG 
USE 


PAGE 
GLOBALS 
COMMUNICATIONS FRN?S 
) INPUT EVENT FRN 
i OUTPUT EVENT FRN 
nae INPUT PASS EVENT FRN 
COMMUNICATIONS STATES 
1000 CP STATE CrAu) 
3000 LP STATE CC(AU) 
DUMPFILE PARAMETERS 
CONST 
62RUBENS 
6eLPCPDUMP 
_*#eDTN TREEWSIZE 
36*512 ELEMENT SIZE (ONE PAGE OF CORE) 
BSALL 
PREVIOUS 
MEMORY MANAGEMENT PARAMETERS 
0 SEGMENT wHERE DYNAMIC BUFFER Is LOCAYED 
1024 ONE K DECIMAL 
2e1iKel MAX MEMORY REQUEST/SHOT. 
STORE 
ZZ120 MEMORY AVAILABLE 
MQUANsO MEMORY REQUIREMENT, NEED ONE UNIT ALWAYS 
ZTOPO END OF PROGRAM 
_ TOP TOP OF MEMORY 


PREVIOUS 
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LOW CORE ALLOCATION == FAULT VECTOR 


000000 667 USE CoDE 
668 HEAD x 
669 * 
670 * 
671 * FAULT VECTOR 
672 * 
673 * CONSINER ALL FAULTS FATAL 
674 * 
000000 675 ORG 0 IN CASE OF PRECEEDING ERRORS» FORCF 7ERO 
000000 002750 7100 00 676 Fy TRA SANIT ANITIALIZATIONS 0 » SHUTDOWN 
-... 000004 000370 7170 oo 677 XED FAULT 
000002 000000 contD00 678 MEM ZERO 1 = MEMORY 
0900003 000370 7170 00 679 XED FAULT 
END OF BINARY CARD LPeCP0003 
000004 000000 o00000 680 MME ZERO 2 = MASTER MODE ENTRY 
000005 000370 7170 00 681 XED FAULT 
. 000006 000000 oo0000 682 FT. ZERO . 3 = FAULT TAG 
000007 000370 7170 00 683 XED FAULT 
000010 000000 000000 684 TIMER ZERO 4 » TIMER RUNOUT 
000011 000370 7170 00 685 xED FAULT 
000012 000000 on0000 686 COMND ZERO 5S » COMMAND 
000013 000370 7170 00 687 XED FAULT 
_.........900014 900000 onc000 666 DRL ZERO 6 = DERAIL 
000015 000370 7170 00 689 XED FAULT 
000036 000000 o00000 690 LoCk ZERO 7 # LOCKUP 
000017 000370 7170 00 691 xED FAULT 
_ 900020 000000 o00000 692 CONCT ZERO 8 w= CONNECT 
000021 000370 7170 oo 693 XxeD FAULT 
__..900022 000000 cooon0. .. $94 PARTY ZERO 9 » PARITY 
000023 000370 7170 00 695 XED FAULT 
000024 000000 cn0000 696 OP ZERO 10 = ILLEGAL OP Cope 
000025 000370 7170 00 697 xED FAULT 
000026 9000000 o00000 698 ONC ZERO 11 = OPERATION NOT COMPLETE 
000027 000370 7170 00 699 XED FAULT 
_ .. .... 000030000000 on0000. 700 STRY... ZERO |. 12 = STARTUP 
000031 000370 7170 050 701 XED FAULT 
END OF BINARY CARD LPCP0004 2 
000032 000000 occoon00 702 OFLOW ZERO 13. * OvERFLOW 
000033 000370 7170 oo 703 XED  =—s FAULT 
000034 000000 so00000 704 Div ZERO 14 © DIVIDE CHECK 
900038 000370 7170 00. . 705... xED FAULT 
000036 000000 coo000 706 XeC ZERO 15 = EXECUTE 


000037 900370 7170 oo 707, — — X€D FAULT 


MBR OL O9"17=71 10.764 
x 
000040 
000040 
900050 000000 ontnn0 


0000S! 


000054 
‘ 090055 


000160 


000000 antnoo 


000052 
0000538 
001101070701 


000000 0000 00 


000056 
000056 


000160 
000170 o000 00 
000020 
.... 900170 
000170 


709 
710 
7il 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 


725. 


726 
727 
728 
729 
730 
731 
732 
733 
735 
736 
737 
738 
739 


LINE PRINTER/ CARD PUNCH MODULE 


LOW CORE ALLOCATION == DEBUG STORAGE 


DEBUG STORAGE 


STORAGE FOR REGISTERS AND IC ON CRASH 


EIGHT 
BSS 8 
ZERQ 
ZERO 


DATE AND TIME OF CRASH 


BSs 1 

bss 4 

DATE 

ARG oO. 
PATCH AREA 
EVEN 

Bss 64 


EIGHT 

ARG DBGA 
EQU 16 
EIGHT 

BSS 8*eDBAGON 


STORAGE FOR CRASH REGISTERS 
1c BEFORE FAULT 
1c AT FAULT 


DATE OF CRASH 
TIME OF CGRASH 
ASSEMBLY DATE 
BAR SETTING WHEN CRASHED 


LEAVE LOTS OF ROOM 


STORAGE FOR DEBUGGING QUEUE 


QUASH sTuPID ASSEMBLER BUG. 
POINTER TO NEXT ENTRY 
NUMBER OF ENTRIES 


RESERVE SPACE 


PAGE 
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MBR 


END 
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000370 
000371 
000372 
000373 


X 


100764 


000370 


000370 
000370 


000051 5540 
000372 7100 
000040 7530 
000051 2200 


00 
00 
00 
00 


OP_BINARY CARD LPCPO005 


000374 
000375 
000376 
000377 
000400 


000401 
000402 


_ 000403. 


000404 
000405 
000406 
000407 | 
000410 
000411 


900412 
000413 


~ 000417 
000420 


000421. 


000024 
003060 


777776 2350 
000050 7550 
000013 2200 


000000 0010 
000052 7570 


10 
00 
03 
00 
00 


000401 


2200 
2210 
2240 
000014 2250 
000001 2260 
044000 2270 
000037 2360 
000000 ool0 


000414 


000017 


000000 
000411 


2200 


0010 
7100 


_. 900414. 


03 
03 
03 
03 
03 
03 
07 
00 


03 


00 
00 


000414 2220 00 


000425 6010 
000414 7200 


00 


00 
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PAGE 


DIAGNOSTICS 


THIS SECTION Ig ENTERED FROM THE FAULT VECTOR IN THE 


THEN REGISTERS ARE 


THE ENTIRE PROGRAM IS WRITTEN OUT INTO 


ENTRY POINT 

SAVE IC AND IR 
BREAK XED 

SAVE REGISTERS 
FIND ICo1 AT FAULT 


GET SAVED IC 
FOR SPECIAL LOCATION 
REQUEST DATE AND TIME 


SAVE DATE AND TIME 


OPEN THE DUMP FILE 
MME NUMBER 

TRAP 

TREE@NAME 
TREE@SIZE 

BEHALF 
ELEMENTeSIZE 
ACCESSES 

TRY OPENING 


PAUSE INDEFINITELY 

WAIT FOR TRAP 

KEEP WAITING 

TRAP ON DUMPFILE OPEN 

GET FRN 

DID WE REALLY GET IT OPEN? 


DIAGNOSTICS 
741 USE CODE 
742 HEAD xX 
743 * 
744 * 
745 * 
746 * 
747 * 
748 * EVENT OF A PROGRAMMING ERROR. 
749 * PRESERVED, 
750 * THE FILE RUBENS/LPCPDUMP, 
751 * 
782 * CONSIDER ALL FAULTS FATAL, 
753 * 
754 * ENTER FROM THE FAULT VECTOR BY 
755 * XED x$FAULT 
756 * 
757 . EVEN 
758 FAULT BSS 0 
759 Src. Ic 
760 TRA wel 
761 SREG REGS 
762 1. DX OsIC 
763 LDA #220 
764 STA Ci 
765 LDX OoS.RGDTSDU 
766 MME 
767 STAQ DATE 
768 *... [are 
769 * OpEN DUMP FILE 
770 * 
771 Fri Bss _9o 
772 LDX 00S, O0PENe.DU 
773 LDX LeTRAPISDU 
774 DX _4eS8DITNs DU 
775 LDX 5.8D7S7,DU 
776 _ DX 6e1,dU 
777 LDX 7e$DES7,DU 
778 LDG SDACC.DL 
779 MME 
By A- 1." AE, Sm 
781 * PAUSE TILL OPENED 
782 * 
783 LDx Os $.PAYSEsDy 
784 MME. 
785 TRA ee2 
_ 786 TRAPL BSS 3 a 
787 LDX 2e TRAP! 
768 _INZ OF T2. 
O, TRAP 


789 


LXL 


NO» SEE WHY NOT 
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MBR 


END 


END 


O01 09=17871 


X 
000422 onon03 
000423 006401 
OF BINARY CARD 
000424 100470 
000425 000010 
090426 000435 
000427 000414 
000430 oonn00 
000431 ocon000 
000432 900917 
000433 of0000 
000434 900432 
000449 900435 
000441 00445 
000442 ogo003 
000443 000425 
000444 000470 
000445 000007 
000446 900461 
000447 900414 
000450 go0000 
000451 oo0000 
000452 9000055. 
000453 000055 
OF BINARY CARD 
000454 000377 
000455 000000 
000456 000017 
000457 9000000 
000460 000456 
000464 900461. 
000465 000470 
000466 000003 
000467 900445 


10.764 LINE PRINTER/ CARD PUNCH MODULE 
DIAGNOSTICS 
1000 03 790 CMPX 0e8$82.DU 
é60C0 00 791 TZE Fri 
LPCP0006 
7100 OO 792 TRA TERM 
793 * 
794 «# SCRATCH DUMP FILE 
795 * 
000425 796 Fr2 Bss 0 
2200 O03 797 LDX 0e$.SCR.DU 
2210 03 798 LDX 1s TRAP2,DU 
2220 00 799 . -.. LDX 2eTRAPI 
2230 03 800 LDX 3e0e2DU 
0010 00 801 MME 
802 * 
603 * PAUSE TILL SCRATCHED 
804 * 
2200 03 605... LDx Ds$.PAUSEoDy 
0010 00 806 MME 
7100 00 807 TRA er) 
000435 808 TRAP2 BSS 3 
7200 00 809 LXL Oe» TRAP2 
6000 00 810 TZE FT3 
1000 a3. 681i CMPX O2eBSBZ.DU 
6000 00 812 TZE FT2 
7100 900 813 TRA TERM 
&i4 * 
815 * START CORE TO FILE DuMP 
816 * 
_.. 000445 617 Frs.. BSss _. 0. 
2200 O83 818 LDx Os SewRF,DU 
2210 03 819 LDX te TRAP3,DU 
2220 00 820 LDX 2a TRAP] 
2230 o3 821 LDX 3eO0eDU 
2240 03 822 LDXx 4,0eDU 
5500. 00 ... 823 SBAR SBAR 
2250 00 824 LDX 5,SBAR 
LPCPO007 
3650 03 625 ANXS ®0377.0U 
o00i0 oo 826 MME 
827 * 
826 * PAUSE TILL DUMP Is DONE 
829 *« 
2200 03 830 LDX Oa SePAYSEsDy 
0010 00 831 MME 
7100 00 832 TRA kag 
000461 833 TRAPS BSS 3 
7200 00 . 834 Lyxbl Oe TRAPS 
6000 00 835 TZE TERM 
1000 03 836 CMPX 0e8$B8Z.DU 
6000 oO 837 TZE FT3 


PAGE 


WAS THE EXEC TOO BUSY? 
YES» SO RETRY 


NOPEs wELL THAT?S IT 


MME NUMBER 
TRAP ADDRESS 
FRN OF FILE 
SCRATCH IT 


ALWAYS PAUSE 
WAIT 
FOREVER 


CHECK EXEC STATUS RETURN 

OKs CONTINUE 

NOs WELL WAS THE EXEC TOO BUSY? 
YES» JUST RETRY 

NOPE» just BLEW,T 


WRITE RANDON FILE 

TRAP ADDRESS 

FRN OF DUMPFILE 

TOs FILE LOCATION 
FROMe CORE LOCATION 
GET CORE*SIZE 

LOAD NUMBER OF ELEMENTS 


MASK TO NUMBER OF ELEMENTS 
INITIATE THE COPY 


ALWAYS PAUSE 

WAIT 

FOREVER 

CopY TO Dump FILE 

GET STATUS 

NoW IT 18 TIME TO TERMINATE 
WAS THE EXEC TOO BUSY 

YES» SO JUST RETRY 
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X 


000470 
000470 000016 2200 03 


000471 000000 onto oo 
000472 000470 7100 00 


LINE PRINTER, CARD PUNCK MODULE 


DIAGNOSTICS 
838 TERM BSS 
839 LDX 
840 MME 
841 TRA 


0 
Os $,TERMsDU 


e023 


TIME TO SAY SO LONG 
TERMINATE 

BYE*BYE 

TAKE NO CHANCES 


PAGE 
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X EXIT MACRO 

000473 843 USE CoDE 
844 HEAD 
845 * 
846 ® 
847 * EXIT 
846 * 
849 * EXly TERMINATES A THREAD OF CONTROL BY RETURNING TO THE 
850 * TASK DISTRIBUTOR, 
851 * ; 
852 Exit MACRO NO ARGUMENTS 
853 TRA SEXIT 


854 ENDM EXIT 
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BUGGING MACROS 


000473 856 USE CODE 

857 HE AY 
8586 * 
859 * 
860 *. BUGGING MACROS PLANT ADDRESSES IN INVALID DATA AREAS §0 THAT 
861 * ANY UNAUTHORIZED USE OF SUCH DATA WILL RESULT IN A MEMORY FAULT 
862 * OR EXECUTIVE CALL REJECT, 
863 * 
864 * 
665 * BuG 
866 »* 
867 * BUG FILLS BOTH UPPER AND LOWER HALVES OF A STORAGE WORD WITH 
868 * THE BUG PATTERN S$BUGBUG. 
869 * 
870 BUG MACRO STORAGE@ADDRESS 
871 IFE $DBGsSON24 
872 BuGBUG SET BUGBUG4)4 
873 LDX O0,BUGBUG.DU 
874 STX Oswi 
875 SxXL Oswl 
876 ENDM BUS 
877 * 
878..% 
879 * BuGuU 
880 * 
861 * BUGU FILLS THE UPPER HALF OF A STORAGE wORD WITH THE BUG 
882 * PATTERN S$BUGBUG 
883 * 

Cae ae eds 2 884 BuGu.. MACRO . STORAGE*ADDRESS 
885 IFE $DBG.SONeS 
886 BUGBUG SET BUGBUG41 
887 LDX Os, BUGBUGs*DU 
888 . STX Os#l 
889 ENDM BUGU 

eee eee 890 *. hes 

891 * 
892 * BuUGL 
893 * 
894 * BUGL FILL THE LOWER HALF OF A STORAGE WORD WITH THE 8UG 
895 * PATTERN SBUGBUG,. 

Bee A Aa 896 * 
897 BUGL MACRO STORAGE@ADDRESS 
698 IFE SDBGeSONeS 
899 BUGBUG SET BUGBUG+41 
900 LDX 0Os8UGBUG.DU 
901 SXL Oowt 


Zila apiny te inter ad 902.0... ENDM. .. BUGL 


MBR 


01 


O9~"17=71 


100764 


LINE PRINTER, CARD PUNCH MODULE PAGE 
BUGGING MACROS 
904 * 
905 * 
906 * BuGXrR 
907 * 
ae * BUGXR. LOADS THE SPECIFIED INDEX REGISTER(S) WITH THE 
909 * 
910 BuGxR MACRO INDEX-REGISTER(S) 
911 IFE SDBGsSONS4 
912 BUGBUG SET BUGBUG+41 
9138 IDRP #1 
914. LDX #1sBUGBUGs.DU 
915 IDRP 
916 ENOM BUGXR 
917 * 
918 * 
919 * BuUGA 
920 * 
921 * BUGA LOADS THE CONTENTS OF THE THE A REGISTER WITH THE BUG 
922 * PATTERN SBUGBUG, 
923 * 
924 ByGa MACRO <NO ARGUMENTS> 
925 IFE $DBG.SONeS 
926 BUGBUG SET BUGRUG41 
927 LDA BUGBUG.DU 
928 ORA BUGBUG.DL 
929 ENDM BUGA 
930 * 
931 * 
932 * | BuGa 
933 * 
934 * BUGg LOADS THE CONTENTS OF THE g REGISTER WITH THE BUG 
935 * PATTERN SBUGBUG. 
936 * 
937 BuGg MACRO <NO ARGUMENTS> 
938... §s- «ss 5 XIFE _ SDBGLS0NL3 
939 BUGBUG SET BUGRUG+41 
940 LD BUGBUG.DU 
941 ORO BUGBUG.DL 
942 ENDM BUGQ 
943 * 
944 8 
945 * DECRM MACRO 
946 * 
947 * DECREMENT A COUNTER 
946 * 
949 DECRM mACRQ COUNTERADDRESS 
950... LOO. 12 DEL 
951 AsQ w1 
952 ENDM DECR™M 
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END 


OL N9"17=71 


000474 
000475 
000476 
000477 


000500 
000501 


005324 
000476 
0OSSS0 
000160 


000160 
000010 


000502 000370 
OF BINARY CARD 


000503 


000503 000505 
000504 900170 


100764 


000473 


000474 

000474 
5540 00 
7100 00 
7530 00 
7530 51 


2290 00 
0200 03 


1000 03 


LPCP000, 
6020 00 
2200 03 


LINE P 


954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 


980 
981 


962 _- 


983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 


1900... 


1001 
1002 


RINTERY CARD PUNCH MODULE PAGE 


CHECKPOINT MACRO 


USE CODE 
HEAD xX 


CHECKPOINTS 


THIg MARCRO CAUSES THE REGISTERS TO BE STORED IN B=wORD 
BLOCKS IN A CIRCULAR QUEUE FOR DEBUGGING USE, INFORMATION 
IS STORED IN THE FOLLOWING FORMATS 


C(O) = CxO) (uppER) 
C(xl) (LOwER) 

C(1) mw C(X2) (UPPER) 
C(X3) (LOWER) 

C(2) = C(X4) (UPPER) 
. COX5) (LOWER) 

C(3S) = C(X6) (UPPER) 
C(xX7) (LOWER) 


ost ££ + £¢£ Se Be eteeeeee ese eee ee ee & HH 


C(4) = CCA) 
C(5) = C(Q) 
C(6) = Ct(E) (087 BITS) 
_..C(7) = CTR) (0-23 BITS) 
CKPT 
KpT MACRO  <NO ARGUMENTS> 
FE  . SDBG,SONel 
XxED XSCKPT 
ENDM CKPT 
* 
2 
‘ CKPT -= SUBROUTINE 
* 
EvEN 
CKPT BSS 0 ENTRY POINT 
src. CKIc SAVE IC 
TRA rs! BREAK XED 
SREG CKREG SAVE REGISTERS FOR &A RELOAD 
SREG . REGo! SAVE IN 8#WORD BLOCK 
ti 
* UPDATE POINTER FOR CIRCULAR QUEUE 
cd 
LDX OeREG GEY CURRENT ADDRESS 
ADLX 00 8eDU BUMP TO NEXT ENTRY 


—.-CMPX. . _0eDBGQs8*DBGONs»DU OVER THE END? 


TNC #42 NO» THIS IS VaLID 
LDx Os DBGG.DuU YES» RESET YO BEGINNING 
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X 


090505 000160 74cn 00 
000506 003330 0730 o0 
000507 003324 6300 oo 


003324 
003324 
003330 
003330 
000510 


LINE PRINTER/ CARD PUNCH MODULE 


CHECKPOINT MACRO 


1003 

1004 

1005 

1006 « 
1007 * 
1008 

1009 CKIC 
1010 

1011 CKREG 
1012 


STX 
LREG 
RET 


UusE 
Bss 
EIGHT 
Bss 
USE 


PREVIOUS 


PAGE 


SAVE FOR NEXT TIME 
RESTORE REGISTERS 
RESTORE 1C 


TEMP STORAGE FOR IC/IR 


TEMP STORAGE FOR REGISTERS 
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000510 


000511 — 


000512 
o0051s 
000514 
000515 
000516 


000520 
000521 
000522 
000523 
000524 
000525 


X 


000004 
000512 
000000 
000000 
000520 
000002 
000000 


000000 
000522 
003261 
000524 
003261 
777777 


10764 


000510 


000510 
000510 


7400 
7000 
4310 
7570 
2370 
7570 
7100 


000520 


11 
00 
03 
14 
00 
il 
10 


oncndo 


7170 
5540 
7170 
5540 
6300 


00 
54 
00 
00 
04 


LINE PRINTER/ CARD PUNCH MODULE PAGE 


1614 
1015 
1016 
1017 
1016 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 


1048 | 


1049 
1050 
1051 
1052 
1058 
1054 
1055 
1056 


TRAP SETUP MACRO 


2s @ 8 


an 
fa] 
~ 
Cc 
v 


ets £# #@ S22 8&4 Se & HF 


SETUP 


e+ 


TRAP 


_STAQ ~~ TSSRW1.T 


USE CODE 
HEAD 

SETUP MACRO 
MACRO NO ARGUMENTS 
XED SSETUP 


ENDM SETUP 


SETUP \*= SUBROUTINE TO SET UP A TRAP 


CALL wITH 
CcxXT) 2 TBLOCK=ADDRESS 
C(xJ) = JBLOCK ADDRESS 
C(X0) # TRANSFER ADDRESS FOR JSTRA 
ENTER BY 
XED T$sSETUP 
DESTROYS ClAys Cl(Q)e C(XO) 
USES NO TEMPORARIES 


EVEN 

BSS 0 

STX O,TSTRAST SEY TSTRA = RESTART ADDRESS 
TSX On *o} BREAK XED 

FLD 0.DU ZERO OUT A AND O 


ZERO STATUS WORDS 
LDAQ TRAP @} GET ZERO. XED WORDS 
STAG TSXED=1.T SAVE ZERO» XED 

TRA 020 RETURN 


TRAP #- XED SEQUENCE TO PUT BLOCK ON OSTASK 


EVEN 

ZERO CaN BE USED FOR CLEARING RET WORNS 

XED eel THIS IS EXECUTED FROM THE TBLOCK 

sTci GSLAST+OS$STASKsDI "UPDATE PREVIOUS LAST POINTER 
_XED #+1 CONTINUE WITHOUT AFFECTING Ic 

sTci QSLAST+QS$TASK UPDATE POINTER TO LAST 

RET =1seIC RETURN TO POINT OF INTERRYPTION 
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000526 


LINE PRINTER/ CARD PUNCH MODULE PAGE 


1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
_ 1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 


SYSTEM CALL MACRO DESCRIPTIONS 


eit @ ee ee tees eee ee BOERS RRR HEHEHE Ohl CUCU UU hl lake tt 


USE COneE 
HEAD 


ALL SYSTEM CALLS ARE DONE THRU PRE#=DEFINED MACROS, THOSE 
MACROS ARE LISTED IN THE FOLLOWING PAGES, EACH OF THESE 
MACROS IS CODED TO SPECIFIC CONVENTIONS? 
ENTER 8Y 
TSX O»$<MACRO@NAME> 
ENTERED WITH 
C(xT) # TBLOCK=ADDRESS 
CixJ) = JBLOCK=ADDRESS 
CALLS 
SETUP 
ISSUES MME AND THEN “EXITS? 
RETURNS TO FIRST LOCATION AFTER MACRO 
RETURNS WITH 
C(xt) = TBLOCK-ADDRESS 
C(XJ) 2 JBLOCK-ADDRESS 
C(XL) # RESTARTADDRESS 


- IN ACTUALITY. THE FOLLOWING HAPPENS8 THE MACRO DOES 


DO THE *TSXO°, HOWEVER.» FOLLOWING THAT INSTRUCTION IS 

THE SET OF ARGUMENTS FOR THE MME, THE SUBROUTINE ENTERED 
WHICH ALWAYS HAS THE SAME NAME aS THE MACRO KNOWS THE 

NUMBER OF ARGUMENTS IT IS PASSED, THEREFORE IT SIMPLY Cale 
CULATES THE RESTART ADDRESS. IT THEN CALLS *SETUP® WHICH 
RESETS THE TRAP BLOCK (C(XT) = X1) WITH THE FIRST THREE worpSs 
BEING ZEROED aNp THE LINK WORD FOR THE EXEC SET TO THE 

XED INSTRUCTION 1O PLACE yHE BLOCK ON THE QSTASK QuEVE. HENCE 
WHEN TRAPPED, THE BLOCK WILL BE LINKED ON THE QO§TASK QUEVE 
AND THE INTERRUPT WILL BE TRANSPARENT TO THE CURRENTLY RUNe 
NING TASK UNLESS THE CURRENT TASK IS *PAUSE®, THE PARAMETERS 


ARE THEN FETCHED (SEE PROGRAMMER*’S REFERENCE MANUAL IF You 


DON’T FULLY UNDERSTAND Ipc’ MOpIFICATIONSS CAUSE IF YOU pON?T 
YOU WILL BE LOgy) AND THE MME EXECUTED. “EXIT® Is CALLEN 

THUS PLACING THE CURRENTLY RUNNING TASK IN A BLOCKED STATE 
WHILE STARTING THE NEXT READY=TO@RUN TASK, THIS IS HOW we 
MULTI @PROGRAM, WHEN THE EXEC TRAPS THIS OPERATION, AS 


WE WAVE. SAID, THE XED INSTRUCTION PLACES THE TASK SACK 


ON THE QSTASK QUEUE. 


3! 
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09—17"71 


END OF BINARY CARD 


000526 
000527 


000530 __ 


000531 
000532 


000533 


000534 


000535 


003349 


003540 
ooooco! 


000510 


003340 
00000! 


000474 


. 900000 


001547 


000000 


104764 


000526 


LPCPO0009 
7400 00 
0200 03 
. 000530 
7170 00 
2220 57 
2200 03 
N00533 
7170 00 
0010 00 
000535 
7100 00 


003340 
0000 20 
000536 


LINE PRINTER/ CARD PUNCH MODULE 


1101 
1102 
1103 
1104 
1105 
1106 
1167 
1108 
1109 
1110 
111i 
1112 
1118 
1114 
1115 
1116 
1117 
1116 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
i129 
1130 
1131 


1132 
1138 


PaGE 


SETUP FAULT VECTOR MACR8O 


* © # 


SETFV 


*ne2 @@eeeee eee te #¢ et te & HH OF 


SETFY 


1134 


1135 
1136 
1137 


1138 
1139 


1140 
1144 
1142 
1143 


SETFT 


USE CODE 
HEAD 
SETFV 
MACRO CORELOC 
TSX Os SSETFYV 
ARG Ki ADDRESS oF SLAVE FAULT VECTOR 
ENOM SETFV 


SETFY «= SUBROUTINE 


THIS SUBROUTINE Ig CALLED BY THE SETFV MACRO, 
COMMAND TO LOCATE THE SLAVE FAULT VECTOR. 


IT Issues THE 


CALL WITH 
C(XT) = TBLOCK=ADDRESS 
C(XJ) = JBLOCK ADDRESS 
ENTER BY 
TSX OsSSETFV 
_. ARG CORE LOCATION TO FAULT VECTOR 


RETURNS TO FIRST LOC AFTER MACRO EXPANSION 


RETURNS WITH 
Cixt) = TBLOCK=-ADDRESS 
CcxXJ) = JBLOCK ADDRESS 
C(XL) = RESTART ADDRESS 
USES LOCAL TEMPORARY ONLY 


STX OsSETFT POINTER YO ARGUMENT LIST 
ADLX OoteDU RESTART ADDRESS 

SETUP 

XED SSETUP 

LDX 2eSETFT,IDC LOAD ADDRESS OF FAULTY VECTOR 
LDX Os eSETFVe.DU LOAD MME NUMBER 

CKPT CHECKPOINT 

XED XSCKPT 

MME SETUP FAULT VECTOR 

EXIT 

TRA SEXIT 

use STORE 

ARG Os POINTER TO ARGUMENT LIST 
USE PREVIOUS 
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READ MACRO 
000536 1145 USE CODE 
1146 HEAD 
1147 * 
1148 * 
1149 ® READ 
1150 * 
1151 READ MACRO FRNsCORELOCsNs MODE 
1152 TSX Os $READ 
1153 ARG #1 FRN ADDRESS 
1154 ARG #2 ADDRESS OF CORE LOC 
1155 ARG 43 NUMBER OF ELEMENTS 
1156 ARG #4 MODE 
1157 ENDM READ 
1158 * 
1159 * 
1160 * REAN == SUBROUTINE 
1161 * 
1162 * THIS sUBROUTINE Ig CALLED BY THE READ MACRO. IT IgsuEs THE 
1163 * COMMAND TO READ THE NEXT N ELEMENTS OF FRN IN A PARTICULAR MODE. 
1164 * 
1165 * CALL wITH 
1166 * C(XT) # TBLOCK=ADDRESS 
1167 « Sr te «3 - CXS) = JBLOCK=ADDRESS 
1168 »* ENTER BY 
1169 * TSX Os SREAD 
1170 * ARG ADDRESS OF FRN 
1171 * ARG ADDRESS OF CORELOC 
1172 * ARG N 
1173 * : ARG MODE 
1174 »* RETURNS TO FIRST LOC AFTER MACRO EXPANSION 
1175 * RETURNS WITH 
1176 »* C(XT) = TBLOCK=ADDRESS 
1177 * CixJ) = JBLOCK=ADDRESS 
1178 * C(XL) w= RESTART@-ADDRESS 
1179 » .WSES LOCAL TEMPORARY ONLY 
1180 « 
1181 * 
000536 9003341 7400 oOo 1182 READ STX OsREADY POINTER 70 ARGUMENT List 
000537 900004 o200 o3 1183 ADLX O24,NU RESTART ADDRESS 
000540 1164 SETUP 
0900540 0o00510 7170 oo ... XED. $SETuUP 
000541 9003341 2220 57 1185 LDX 2eREADT.AIDC LOAD FRN 
000542 003341 2240 57 1186 LDX 4eREADTs IDC LOAD Core Loc 
000543 903341 2250 57 1187 LDx SsREADys IDC LOAD N 
000544 903341 2260 57 1188 LDX 6,READTZIDC LOAD MODE 
000545 000004 220 o3 1149 LDX Oe eREADSDU LOAD MME NUMBER 
000546 1190 CKPT CHECKPOINT 
000546 000474 7170 00 XED XSCKPT 
000547 900000 oolo 00 1191 MME READ 


900550 1192 EXIT 


MBR O01 O9917471 102764 


000550 001547 7100 o0 


0933541 

END OF BINARY CARD LPCPOO10 
005341 ocoooo osco 20 

000551 


LINE PRINTER CARO PUNCH MODULE 


READ MACRO 
TRA 
1193 * 
1194 use 


1195 READT ARG 
1196 USE 


SEXIT 
STORE 


Oet 


PREVIOUS 


POINTER TO ARGUMENT LIST 


PAGE 
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APEND MACRO 


000551 1198 USE CODE 
1199 HEAD 
1200 * 
1201 * 
1202 * APEND 
1203 * 
1204 APEND MACRO FRNsCOCRELOCsNs MODE 
1205 TSX Os, SAPEND 
1206 ARG #1 FRN ADDRESS 
1207 ARG #2 ADDRESS oF CORE Loc 
1208 ARG 43 NUMBER OF ELEMENTS 
1209 ARG #4 MODE 
1210 ENDM APEND 
121i * 
1212 * 
1213 * APEND -= SUBROUTINE 
1214 * 
1215 * THIS SUBROUTINE Is CALLED BY THE ApEND MACRO. IT ISSUES 
1216 * THE COMMAND TO APEND N ELEMENTS TO THE FRN SPECIFIED 
1217 * VIA THE SPECIFIED MODE. 
12186 * 
1219 * CALL wITH 
1220 * Cc(XT) = TBLOCK=ADDRESS 
1221 * CixJ) s JBLOCK=ADDRESS 
1222 * ENTER BY 
1223 * TSX OsSAPEND 
1224 « ARG. FRN ADDRSS 
1225 * ARG ADDRESS OF CORE LOC 
1226 * ARG NUMBER OF ELEMENTS 
1227 * ARG MODE 
1228 * RETURNS TO FIRST LOC AFTER MACRO EXPANSION 
1229 * RETURNS WITH 
1230 * C(XT) = TBLOCK=ADDRESS 
123i * C(xXy) 2 JBLOCK ADDRESS 
1232 * f C(XL) = RESTART ApDRESS 
1233 * usSEs LOCAL TEMPORARY ONLY 
1234 *« 
1235 * 
090551 903342 7400 oo 1236 APEND sfx OeAPNDT POINTER TO ARGUMENT List 
000552 000004 920n o3 1237 ADLX Os4,DU RESTART ADDRESS 
000553 1238 SETUP 
090553 000510 7170 oo . xED SSETUP 
000554 9003342 2220 57 1239 LDX 2eAPNDT,ZIDC LOAD FRN 
000555 903342 2249 57 1240 LDX 4, A4PNDT,Z IDC LOAD CORE Loc 
000556 0903342 2250 57 1241 LDX Se APNDYT,1DC LOAD NUMBER CF ELEMENTS 
000557 903342 2260 57 1242 LDX 6, APNDT,IDC LOAD MODE 
090560 000005 2200 03 1243 LDXx Oo eAPENDSDU LOAD MME NUMBER 
000561 1244 CKPT CHECKPOINT 
000561 000474 7170 oo XED XSCKPT 


090562 000000 onin no 1245 MME APEND 


MBR 


QL 09817=71 10764 


000563 
000563 001547 7100 069 

003342 
003342 000900 0000 20 

000564 


LINE PRINTERY CARQ PUNCH MODULE 


APEN) MACRO 


1246 


1247 * 
1248 

1249 APNDT 
1250 


EXIT 

TRA $SEXIT 
use STORE 
ARG Oy* 


USE PREVIOUS 


POINTER TO ARGUMENT LIST 
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MBR 


END 


QO1 09017471 


000564 003343 
000565 900902 
090566 000510 
090567 9903343 
990570 003343 
000571 ooo01! 
OF BINARY CARD 
000572 000474 
000573 000000 
0n0574 901547 
0035343 oooccc 


10.764 


000564 


7400 00 
0200 O83 
000566 
7179 00 
2220 57 
2230 57 
2200 083 
000572 
LPCPOO11 
7170 00 
0010 00 
000574 
7100 00 


003343 
0000 20 
900575 


LINE PRINTER/ CARD PUNCH MODULE 


1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
12638 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1262 
1283 
1284 
1285 
1286 


1287 
1286 
1289 
1290 


1291 
1292 


12938 
1294 
1295 
1296 


PAGE 


SET POINTER MACRO 


ore #8 & 


PTR 


mereeeteeneeeeteeseneneneee ese #@ eee 2 £ 


PTR 


SPTRT 


USE CODE 
HEAD 
SET POINTER 
TSX Os BSPTR 
ARG Le FRN ADDRESS 
ARG #2 NUMBER OF ELEMENTS To MOVE POINTER 
ENDM SPTR 


SET POINTER == SUBROUTINE 


THIS SUBROUTINE Ig CALLED BY THE SPTR MACROe IT ISSUES 
THE COMMAND TO ADD (OR SUBTRACT) N ELEMENTS TO THE CUR] 
RENT SETTING OF THE READ POINTER, 


CALL wITH 
CcxXT) = TBLOCK=ADDRESS 
C(XJ) = JBLOCK-ADDRESS 
ENTER 8Y 
TSX OsSSPTR 
ARG FRN 
ARG NUMBER OF ELEMENTS 
TO FIRST LOC AFTER MACRO EXPANSION 
WITH 
C(xXs) = JCB 
C(xt) = CB 
USES LOCAL TEMPORARY ONLY 


RETURKS 
RETURNS 


sTxX OssPtrt POINTER TO ARGUMENT LIst 
ADLX Os2eDU RESTART ADDRESS 

SETUP 

XED $SETUP 

LDX 2aSPTRTS IDC LOAD FRN 

LDX SeSPTRTZIDC LOAD N 

LDX Oa eSPTRSNU LOAD MME NUMBER 

CKPT CHECKPOINT 

XED XSCKPT 

MME SET POINTER 

EXIT 

TRA SEXIT 

use STORE 

ARG Os* POINTER TO ARGUMENT LIST 
USE PREVIOUS 
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000575 003344 
000576 000001 
090577 000510 
000600 003344 
000601 000012 
000602 000474 
000603 co000c 
000604 003547 
005344 g00000 


1764 


000575 


7400 00 
0200 O38 
000577 
7170 00 
2220 57 
2200 O83 
090602 
7170 00 
0010 00 
000604 
7100 00 


003344 
0000 20 
000605 


1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1306 
1309 
1310 
i3ti 
isi2 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1se2i 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 


1331 
1332 
A333 


1334 
1335 


1336 
1337 
1338 


LINE PRINTER/S CARD PUNCH MODULE PAGE 
REQUEST STATUS MACRO 
USE CODE 
HEAD 
* 
* 
* REQUEST STATUS 
® 
RQSsT MACRO FRN 
TSX Os$ROST 
ARG #1 FRN ADDRESS 
ENDM RQST 
* 
S 
*. REQUEST STATUS == SUBROUTINE 
® 
* THIg SUBROUTINE Ig CALLED BY THE rost MACROe IT ISSUES 
* THE COMMAND TO REQUEST STATUS ON THE FRN SPECIFIED. 
* 
* CALL wITH 
* CcxT) = TCB 
* C(xy) = JCB 
* ENTER BY 
* TSX OoS$ROST 
* ARG FRN 
. RETURNS TO FIRST LOC AFTER MACRO EXPANSION 
* RETURNS WITH 
* C(xT) = TCB 
* CixJ) = JCB 
* USES LOCAL TEMPORARY ONLY 
* 
® 
RQST sTx OsROSTT POINTER TO ARGUMENT LIST 
ADLX Oote DV RESTART ADDRESS 
SETUP 
XxED SSETUP 
. .LDX 2eRQSTTAIDC LOAD FRN 
LDX Os» eROSTSDU LOAD MME NUMBER 
CKPT CHECKPOINT 
x&D XSCKPT 
MME REQUEST STATUS 
EXIT 
TRA SEXIT 
* 
use STORE 
RASTT ARG Os* POINTER TO ARGUMENT LIST 
USE PREVIOUS 


1339 
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000605 003345 
000606 onn002 
000607 900510 
000610 003345 
000611 903345 

END OF BINARY CARD 
000612 900022 
000613 000474 
000614 000000 
000615 001547 
003545 oo0000 


192764 


no09605 


7400 00 
o200 O83 
000607 
7170 00 
2220 57 
2230 57 
LPCP0012 
2200 03 
000613 
7170 00 
6010 00 
000615 
7100 00 


003345 
0000 20 
000616 


LINE PRINTER/ CARD PIINCH MODULE 


1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
13538 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
13635 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 


1376 
1377 


1378 
1379 


1380 
1381 


1382 
1383 
1384 
1385 


CHANGE SEGMENT MACRO 


HSEG 


on ee eeeeeennee ee etee eae ene & 


HSEG 


CHSGT 


USE 
HEAD 


MACRO 
TSX 
ARG 
ARG 
ENDM 


THIS SUBROUTINE Ig CALLED BY THE CHSEG MACRO, 


CODE 


PAGE 


CHSEG 


SEGMENT@NUMBER * LENGTH 


Os SCHSEG 
ai 

#2 

CHSEG 


NUMBER=OF@SEGMENT 
NEW*LENGTH 


CHSEG == SUBROUTINE 


It Issues 


THE COMMAND TO CHANGE THE LENGTH OF THE NAMED SEGMENT TO 
THE NEW LENGTH SPECIFIED, 


CALL wITH 
Cext) = TBLOCK*#ADDRESS 
CixXJ) # JBLOCK ANDRESS 


ENTER BY 


RETURNS 
RETURNS 


sTXx 
ADLX 
SETUP 
XED 
DX 
LDX 


LDX 
CKPT 
XED 
MME 
EXIT 
TRA 


use 
ARG 
USE 


TSX Os$CHSEG 


ARG SEGMENT=NUMBER 


ARG LENGTH 


TO FIRST LOC AFTER MACRO EXPANSION 


WITH 


C(XT) = TBLOCK=ADDRESS 
C(XJ) = JBLOCK ADDRESS 
USES , OCAL TEMPORARY ONLY 


OsCHsGT 
Os2eDu 


$SETUP 

2eCHSCT.IDC 
SeCHSGTLIDC 
On eCHSEGs DU 


XSCKPT 


SEXIT 


STORE 
Os* 


PREVIOUS 


POINTER TO ARGUMENT LIstT 
RESTART ADDRESS 


LOAD SEGMENT NUMBER 
LOAD SEGMENT LENGTH 


LOAD MME NUMBER 
CHECKPOINT 


CHANGE SEGMENT 


POINTER TO ARGUMENT LIST 
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MBR O01 O9"17=71 


090616 
000617 


000620 


000621 


000622 


000623 
000624 


000625 


093346 


003346 
000001 


000510 
003346 
000025 


000474 
000000 


001547 


oo0000r 


194764 


000616 


7400 00 
0200 O38 
000620 
7170 00 
2220 57 
2200 03 
000623 
7170 00 
0010 00 
000625 
7190 00 


003346 
a000 20 
000626 


LINE PRINTERY CARD PUNCH MODULE PAGE 


1367 
1368 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
14038 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1416 
1419 


1420 
1421 
1422 


1423 
1424 


1425 
1426 
1427 
1428 


CLOSE MACRO 


LOSE 


ose2828 8#@# 8B Oe e eee ee ee Ee EB 


LOSE 


CLOST 


USE CONE 
HEAD 
CLOSE 
MACRO FRN 
TSX OsS$CLOSE 
ARG #1 FILE REFERENCE ADDRESS 


ENDM CLOS 


CLOSE == SUBROUTINE 


THIS SUBROUTINE IS CALLED BY THE CLOS MACRO. IT ISSUES THE 
MME TN CLOSE A FILE. 


CALL wITH 
C(XT) # TBLOCK@ADDRESS 
C(xJ) = JBLOCK ADDRESS 
ENTER BY 
TSX ODe8CLOS 
ARG FILE*REFERENCE@*ADDRESS 
RETURNS TO FIRST LOC AFTER MACRO EXPANSION 
RETURNS WITH 
C(XT) #2 TBLOCK=ADDRESS 
C(XJ) 2 JBLOCK ADDRESS 
C(XL) # RESTART ADDRESS 
ySES LOCAL TEMPORARY ONLy 


STX OsCLOst POINTER 7O ARGUMENT LIST 
ADLX OsleDdU RESTART ADDRESS 

SETUP 

XED $SETUP 

LDX 2eCLOSTsIDC LOAD FILE REFERENCE 

LDX Os eCLGSEsDU LOAD MME NUMBER 

CKPT CHECKPOINT 

XED X$CKPYT 

MME CLOS 

EXIT 

TRA SEXIT 

use STORE 

ARG Os* POINTER TO ARGUMENT LIST 


USE PREVIOUS 


40 


MBR 


END 


OL O09"17—=71 


0090626 903347 
000627 ogonn0l 
000630 ooo5io 
000631 0093347 
OF BINARY CARD 
000632 o90044 
000633 000474 
000634 o00000 
000635 001547 
005347 000000 


10.764 


000626 


7409 00 

0200 03 
000630 

7170 00 


2220 $7 


LPCP0013 
2200 03 
000633 
7170 00 
o010 oo 
000635 
7100 00 


003347 
0000 20 
000636 


LINE PRINTER/Y CARD PUNCH MODULE 


1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 


14586 


1459 
1460 
1461 
1462 


LOCK MACRO 


TT" 2+ #2 * 


OCK 


ene eeee eee eee eee © ££ e te 8 


OcK 


1463 .. 


1464 
1465 


1466 
1467 


1468 
1469 
1470 
1471 


LOCKT 


USE 
HEAD 


MACRO 
TSX 
ARG 


ENDM 


THIS SUBROUTINE Ig CALLED BY THE LOCK MACRO. 
MME TO LOCK A FILE. 


ENTER BY 


RETURNS 


RETURNS 


STX 
ADLX 
SETUP 
XED 


_ LDX 


LDX 
CKPT 


_ XED 


MME 
EXIT 
TRA 


use 
ARG 


USE 


CODE 


FRN 

Os $LOCK 
#1 

LOCK 


PAGE 


LocK 


FILE*REFERENCE ADDRESS 


LOCK == syuBROUTINE 


CALL WITH 


Iy Issu€s HE 


CcXT) » TBLOCK=-ADDRESS 
C(xXJ) # JBLOCK ADDRESS 


TSX Oe $LOCK 


ARG FILE“REFERENCE@ADDRESS 
TO FIRST LOC AFTER MACRO EXPANSION 


WITH 


C(XT) = TBLOCK=-ADDRESS 
C(xXJ) = JBLOCK ADDRESS 
CixXtL) = RESTART ADDRESS 
USES LOCAL TEMPORARY ONLy 


Osea lLNCKy 
OsisDU 


SSETUP 


2eLOCKT, IDC 


Oa elOCKs,DU 


XSCKPT 


SEXIT 


STORE 
Osg* 
PREVIOUS 


POINTER +O ARGUMENT List 
RESTART ADDRESS 
LOAD FILE REFERENCE 


MME NUMBER 
CHECKPOINT 


LOCK 


POINTER TO ARGUMENT LIST 
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000636 
000637 


090640 
000644 
000642 


000643 
000644 


000645 


0035350 


003350 
900001 


000510 
003350 
060045 


000474 
0a00ce 


001547 


000000 


15.764 


000636 


7400 00 
0200 03 
000640 
7170 00 
2220 57 
2200 03 
000643 
7170 00 
oolo 00 
000645 
7100 00 


003350 


o0e0 20 
000646 


LINE PRINTER/ CARD PUNCH MODULE PAGE 


1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1461 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
i501 
i502 
1503 
1504 
1505 


1506 
1507 
1508 


1509 
1510 


iSil 
1512 
1513 
1514 


UNLOCK MACRO 


ce #@#eee ee ene ee eee eee te 8 


NLCK 


UNLKT 


USE CODE 
HEAD 
UNLOCK 
MACRO FRN 
TSX O» SUNLCK 
ARG WY FILE REFERENCE ADDRESS 
ENDM UNLK 


UNLOCK e= SUBROUTINE 


THIS SUBROUTINE Is CALLED BY THE UNLK MACRO. IT ISSUES THE 
MME Tm UNLOCK A FILE. 


CALL wITH 

Cc(XT) #2 TBLOCK=ANDRESS 

C(xXJ) = JBLOCK ADDRESS 
ENTER BY 

TSX OseSUNLK 

ARG FILEeREFERENCE@ADDRESS 
RETURNS TO FIRST LOC AFTER THE MACRO EXPANSION 
RETURNS WITH 

C(XT) # TBLOCK=ADDRESS 

C(XJ) = JBLOCK ADDRESS 

C(XL) # RESTART ADDRESS 
USES LOCAL TEMPORARY ONLy 


sTX OsUNLKT POINTER yO ARGUMENT List 
ADLX Osis» DU RESTART ADDRESS 

SETUP 

XED $SETUP 

LDX 2eUNLKTSZIDC LOAD FILE REFERENCE 

LDX Oo eUNLCKe DU MME NUMBER 

CKPT CHECKPOINT 

XED XSCKPT 

MME UNLOCK 

EXIT 

TRA SEXIT 

use STORE 

ARG Oo* POINTER TO ARGUMENT LIST 


USE PREVIOUS 


42 


MBR 


END 


OL O9—17871 


990646 093351 
000647 enono2 
09065¢ onnd5ic 
9N0651 «903351 
OF BINARY CARD 
900652 903351 
090653 09090046 
090654 066474 
0900655 900000 
000656 601547 
093351 coosoc 


13.764 


190646 


7400 00 
9200 03 
00n650 
7170 00 
2220 57 
LPCPOQO14 
2350 57 
2200 03 
000654 
7170 00 
anion oo 
000656 
7100 00 


AOSS51 
caca 20 
500657 


LINE PRINTERS CARY PUNCH MODULE 


1516 
1517 
i518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1536 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 


1552 


1553 
1554 
1555 


1556 
1557 


1558 
1559 
1560 
15614 


NOTIFY MACRO 


NOTIF 


zeeeeteett eet # ee #8 S&S Hee HEY BD 


NTF 


NOTFT 


PAGE 
USE CODE 
HEAD 
NOTIFY 

MACRO ERNsSTATE 
TSX OsSNOTIF 
ARG #1 FRN ADDRESS 
ARG #2 STATE ADDRESS 
ENDM NOTIF 

NOTIFY |= SUBROUTINE 
THIs SUBROUTINE !¢ CALLED BY THE NOTIF MACRO. IT ISsuUFS 
THE NOTIFY ON THE SPECIFIED EVENT. NOTE THAT C(X3) POINT TO 
CTRAP, 
CALL wITH 

CcXT) =» TBLOCK=ADORESS 

C(xXJ) = JBLOCK ANDRESS 

C(X3) = CTRAP ADDRESS 
ENTER 8Y 

TSX OeNOTIF 

ARG EVENT#=FRN 

ARG STATE ADDRESS 
RETURNS TO FIRST LOC AFTER MACRO EXPANSION 
RETURNS WITH 

C(XT) = TBLOCK<ADDRESS 

C(XJ) = JBLOCK ANDRESS 


STX 
ADLX 
SETUP 
XED 
LOX 


LDA 
LDX 
CKPT 
xED 
MME 


EXIT 
TRA 


use 
ARG 


USE 


C(XL) # RESTART ADDRESS 
USES LOCAL TEMPORARY ONLY 


OsNOTFr 
Os 2eDU 


SSETUF 
2eNOTFTS IDC 


NOTFT,TDC 
Oa eNOTIF.DU 


X$SCKPT 


FEXTT 


STORE 
Os* 


PREVIGUS 


POINTER OF ARGUMENT LIst 
RESTART ADDRESS 

LOAD EVENT FRN 

LOAD STATE 

LOAD MME NUMBER 
CHECKPOINT 


NOTIFY 


POINTER TO ARGUMENT LIST 
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MBR 71 09"-17=7{} 120764 LINE PRINTERY CARDO PUNCH MODULE PAGE 


CAUSE MACRO 


100657 1563 USE CONE 
1564 HEAD 
1565 * 
1566 * 
1567 * CAUSE 
1568 * 
1569 CAlisE MACRO ERNsNUMBER®STATESMESSAGESACCESSESeFRN (NoB. ORDERING) 
1570 TSX Os SCAUSE 
1571 ARG #1 FILE REFERENCE ADDRESS 
1572 ARG #42 NUMBER WHICH ARE TO NOTIFIED 
1573 ARG 43 STATE 
1574 ARG #4 MESSAGE 
1575 ARG a5 ACCESSES ON PASSED ITEM 
1576 ARG #6 FRN OF ITEM TO PASS 
1577 ENDM Caus 
1578 * 
1579 * 
1580 * CAUSE -= SUBROUTINE 
1581 * 
1582 * THIS SUBROUTINE 15 CALLED BY THE CAUS MACRO. IT ISSUES THE 
1583 * MME TO CAUSE THE SPECIFIED FILE. 
1584 * 
1565 * CALL wIlTH 
1586 * C(XJ) = JBLOCK ADDRESS 
1587 * C(XT) = TBLOCK=ADDRESS 
1586 * ENTER BY 
1589 * TSX Os$CAaUS 
1590 * ARG FILE*#REFERENCE@NUMBER OF EVENT 
1591 * ARG NUMBER 
1592 * ARG PASSED=FILEeREFERENCE 
1593 * ARG ACCESSES=ON=PASSED@ITEMS 
1594 * ARG STATE 
1595 * ARG MESSAGE 
1596 * RETURNS TO FIRST LOC AFTER THE maCRO EXPANSION 
1597 * RETURNS WITH 
1598 * C(xJ) 2 JBLOCK ADDRESS 
1599 * C(xXT) # TBLOCK=ADDRESS 
1600 * C(XL) # RESTART ApDRESS 
1601 * USES LOCAL TEMPORARY ONLY 
1602 * 
000657 903352 7400 oo 1603 CAUsE sTxX OsCAUST POINTER TO ARGUMENT List 
000660 000006 C200 43 1604 ADLX Oe6eDU RESTART ADDRESS 
000661 16¢c5 SETUP 
000661 on0519 7170 on XED SSETUP 
090662 903352 2220 57 1606 LDX 2eCAUSTZIDC LOAD FILE REFERENCE 
000663 963352 7230 57 1667 LXL SeCAUSTZIDC NUMBER 
000664 903352 2350 57 1668 LDA CAUSTs IDC STATE 
020665 903352 2360 57 1609 LDO CAUSTSIDC MESSAGE 
090666 903352 7270 57 1610 LXL 7 sCAUST,Z IDE LOAD ACCESSES 


000667 963352 2260 57 1611 LDX 6sCAUST,IDC LOAD FRN == CLOBAER xReJ NOW 


MBR OL 09°17=74 


00670 


090671 
990672 


000673 


090047 


000474 
onn90e0 


001547 


END OF BINARY CARD 


0033852 


000000 


100764 


22tn 03 
ON0671 
7179 40 
coin oo 
990673 
71090 on 


093352 
LPCP9015 
C900 20 

990674 


LINE PRINTERY CARD PIINCH MODUJLE 


CAUSE MACRO 


CaustT 


LOX 
CKPT 
XED 
MME 
EXIT 
TRA 


use 


ARG 
USE 


Os eCALSESDU 


XSCKPT 


SEXIT 


STORE 


Oot 


PREVIOUS 


PAGE 


MME NUMBER 
CHECKPOINT 


CAUSE 


POINTER TO ARGUMENT LIST 


MBR OL 99,771 17-764 LINE PRINTERY CARD PUNCH MOLLE PAGE 


CHECK MACRO 


N90674 1621 USE CONE 
1622 HEAY 
1623 * 
1624 * 
1625 * CHECK 
1626 * . 
1627 * THIS MACRO ITs YsSFD TO CHECK THE RESULT OF A TRAPPING MME, 
1628 * THE FIRST ARGUMENT IS THE ADDRESS TO WHICH TON TRANSFER IF THE 
1629 * STATUS RETURN TS ZERO. THIS ARGUMENT 4AY BE OMITTED, ANT NO 
1630 * TEST wILL BE ASSEMBLED. THE REMAINING ARGUMENTS COME IN PAIRS, 
1634 * THE FIRST OF THE PAIR TS & SNOLEAN PATTERN AGAINST WHICH A 
1632 * COMPARISON WILL BE MADE. THE SECOND IS THE TRANSFER ADDRESS IN 
1633 * CASE OF A MATCH, CURRENTLY THERE MAY SE ONLY & SUCH PAIRS, 
1634 * 
1635 * 
1636 CHECK MACRO ZERNDSTATADDsBOOLPATs XFERADDsROOLPATs KFERADNs ETC. 
1637 LXL Os, TSSRWisT PICK UP LOGICAL STATUS 
1638 ANX OsRSSTMK,DU LSOLATE STATUS 
1639 INE a oe 
1640 TZE A ZERO STATUS TEST 
1641 INE HI 29423 
1642 CmPxX Os #2eDU 
1643 TZE a3 FIRST PAIR OF TESTS 
1644 INE 7H49,%%? 20 
1645 CMPX Oet4eDU 
1646 TZE #5 SECOND PAIR OF TESTS 
1647 INE PHO g hha i7 
1648 CMPX 05 #6eDU 
1649 TZE 47 THIRD PAIR OF TESTS 
1650 INE 748s? 9,14 
1651 CMPX 0,#%8,DU 
1652 T7E ag FOURTH PAIR OF TESTS 
1653 INE PHLDP sa Poot 
1654 CMPX On #10e0U 
1655 T7E Ail FIFTH PAIR OF TESTS 
1656 INE "H12%s 9 > o8 
1657 CMPX Osh12eDuU 
1658 TZE #13 SIXTH PATR OF TESTS 
1659 INE 9H1L4 ep 0 eS 
1660 CMP xX Os k140e9U 
1661 TZE #15 SEVENTR PAIR OF TESTS 
1662 INE 9H16%s?%o2 
1663 CMPX 0,416,9uU 
1664 TZE #17 EIGHTH PAIR OF TESTS 


1665 TRA SERROR DIE ON UNEXPECTED RETURN 
1666 ENOM CHECK 


MBR QL 09"17=—71 132764 


000674 


LINE PRINTERY CARD PUNCH MODULE 


1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
17038 
1704 
1705 
1706 


PAGE 

QUEUE MANAGEMENT m= GENERAL INTRODUCTION 
USE CODE 
HEAD G 

* 

* GUENE MANAGEMENT o= GENERAL INTRODUCTION 

* 

* EACH QUEUE IN THE PROGRAM HAS & SIMILAR STRUCTURE. A QUFUF 

* CONSISTS OF A (POSSIBLY EMPTY) LINKED LIST OF BLOCK. THE 

* POINTERS POINT TO WORD 4 (QSOFFST) OF A BLOCK. THE LINK 

* POINTERS ARE STORED IN WORN 3 (Q$LINK) OF A BLOCK. THE woRD AT 

* LOCATION OSFIRst POINTS TO QSOFFsy OF THE FIRST BLOCK OF THE 

* QUEUE. THE LOCATION QSLAST POINTS TO QSOFFST OF THE LAST BLOCK 

* OF THE QUEUE, THE EMPTY QUEUE IS DENOTED BY THE WORD AT OsLastT 

* POINTING TO OSFIRSTol1. 

* 

* 

* QUEUE 

* 

* THIS GENERATES A QBLOCK, THIS STRUCTURE MUST AGREE 

* WITH THE STRUCTURE DEFINED FOR QUEUE MANAGEMENT, 

2 

QUEVE MACRO QBLOCK@=LONCATIONesyMBOLs,ASCI LeNAME 
USE QSTOR PUT ALL QUEUES CONTIQUOUS 
EVEN FOR XED 

#1 BSS 0 NAME OF QUEUE 
ARG SERROR FIRST 
ARG OSHL4OSFIRST4+1 LAST 
STX OsOSHL+QOSLASTADI «aXADND 
STX OsO8H1408L AST 
EAX O2O08n1 ENO 
TSX LeQSEN9D 
EAX Q,9841 DEO 
TSX LeASNE4 
ARG 0 Busy 
DEC 0 MAX 
DEC 0 AVAIL 
DEC 0 SPAREL 
DEC 0 SPARE2 
UASCI Ledi ABSREVIATION 
ENDM QUEUE 


47 


MBR VL 0981771 


000674 
000675 
000676 
000677 
000700 
000701 
000702 
000703 


900704 
000705 


000706 
090707 


o 


009012 
o000le2 
eke rohan 
000701 
oonolt 


g00gi1c 
000716 


0nn010 


525201 
525201 


525202 
525202 


17.764 


190674 


900674 
0542 15 
2352 15 
1152 15 
6022 00 
7552 15 
2342 15 
6012 90 
7412 15 


000704 
525201 
2350 03 
2750 07 
000706 
525202 
2369 03 
2760 07 
000710 
525203 


LINE PRINTERY CARU PUNCH wnie PAGE 


1708 
1799 
1710 
1711 
1712 
1713 
1714 
1745 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1726 
1729 
1730 
1731 
1732 
17338 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 


1749 


1750 


QUEUF MANAGEMENT |= END 


#2 8#@ 64 4 © @ 


m 


NQ 


e@eeteeweeteeete © et # Se He BK DG 


ENQ 


BUIGBUG 


BUGRUG 


BUGBUG 


USE 
HEAD 


CODE 
o 


ENQ 
ENQ SUSPENDS A TASK UNTIL THE SPECIFIED quEyF CAN BE MADE 
AVAILABLE, 
MACRO QADNRESS 
XEQ OS#L4+O8XENO 
ENUM ENA 


ENQ == SUBROUTINE TO SERIALIZE RESOURCE USE 


THIS SUBPRNGRAM RETURNS IMMEDIATELY IF THERE IS NO NEED 

TO QUEUE. IF NECESSARY To JO SOs IT SUSPENDS EXECUTION nF 
THE CURRENT TASK UNTIL A WAKE*UP IS GENERATED BY A DEO FoR 
THIS QUEUE AND THE RESOURCE CAN BE ALLOCATED TO THIS TASK, 


CALL wITH 


ENTER BY 


CcxT) = TBLOCK=ADDRESS 
C(xXJ) = JBLOCK=ADDRESS 
C(xXQ) = QOBLOCK=ADDRESS 


TSX Le QSENG 


CLOBBERS ALL BUT C(XT)s» Ci(XJ)» AND CEXL) 
USES NO LOCAL TEMPORARIES 


INHIB 
BSS 
AOS 
LDA 
CMPA 
TNC 
STA 
SZN 
TNZ 
STX 
INHIB 
BUGA 
SET 
LDA 
ORA 
BUGO 
SET 
Do 
ORO 
BUGXR 
SET 


SAVEsON 

0 

AVAIL sD ONE MORE BLOCK CURRENTLY ON QUEUF 
AVAIL SA UPDATE MAX LENGTH OF QUEUE 

MAX e9 ° 

#42 re 

MAXo9 ‘ 

BUSYsQ 1S THIS QUEUE BUSY? 

ENO1 YES. WILL HAVE TO QUEUF FOR IT 
TaBUSYsQ : NO» MARK WHO 18 RESPONS]SLE 
RESTORE 


BUGBUG+41 
BUGBUG., DU 
BUGBUGsDL 


BUGRUG+41 
BUGRUG. DU 
BUGRUGS DL 
(OaXeYoZe9) 
BUGBUG41 
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MBR OL 09—=47=871 
Q 


000710 525263 
000711 525203 
ON0712 525203 
000713 §25203 
000714 525263 
000715 oconos 
000716 noono4 
O90717 oaano4 
END OF BINARY CARD 
090720 777777 
000721 777777 
000722 on0002 


0N0723 001547 


19.764 


2200 93 
2220 93 
2230 g3 
2240 03 
2250 03 
71°90 17 
7470 11 
6200 41 
LPCP0016 
6oCN 00 
6040 00 
7170 15 
000723 
7100 90 


1751 
1752 
1753 


1754 
1755 
1756 
1757 


ENO 


LDX 
LDX 
LDX 
LDX 
LDX 
TRA 
STX 
EAX 


TZE 
TMI 
XED 
EXIT 
TRA 


LINE PRINTER/ CaRy PUNCH MOTULE 


QUEUE MANAGEMENT ef ENA 


0s3UGBUG.DU 
XsS3UGRUGsDU 
Ye3UGEUG.DU 
ZsB8UGBEYGe»DU 
Qs3UGBUGSDU 
Del 
LeaTSTRAST 
OsOFFST,T 


SERROR 
S$ERROR 
XADDs@ 


SEXIT 


RETURN TO CALLER 
SAVE RESTART ADDRESS 
STORE POINTER WITH OFFSET 


#a%xDBG 
kan DBG 
IN QUEUE LINKED LIST OF BLOCKS 


PaGe 
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Q 


000724 00001 
000725 000012 
000726 000010 
000727 777777 
000730 000010 
000731 oonno! 
000732 900001 
0090733 on0000 
000734 900000 
000735 777777 
000736 777777 
000737 777774 
000740 900019 
000741 anooos 
000742 000000 
000743 003262 
000744 900001 
END OF BINARY CARD 


194764 


09n724 


00724 
000724 


3362 
0562 
2342 
6002 
4502 
6202 
Lace 
6002 
2202 
6002 
6042 
6222 
7402 
2222 
7422 
7172 
1002 


LPCPO017 


15 


LINE PRINTERY CARD PUNCH MOUJLE PAGE 


1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 


1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
18C0 
1801 
1802 
1803 
1804 
1605 


QUEUE MANAGEMENT #= NE9 


cette ££ 


*#teeeet eet &©H# &© # He H&S HF H 


DEQ 


USE COOF 
HEAD Q 


NE 


DEg RELEASES A SERIALLY REUSABLE RESOURCE SO THAT OTHER 
PROCESSES MAY USE IT. OTHER TASKS ARE AUTOMATICALLY INITIATED 
BY PUTTING THEM ON THE Q$TASK QUEUE, 


MACRO GADDRESS 
XED Q$414Q8XDEQ 
ENDM DEO 


DEQ == SUBROUTINE TO WAKE@UP WAITING TASKs 


THIS SUBROUTINE CHECKS TO SEF IF ANY OTHER TASKS ARE ASLFEp 
IN THE QUEUF, IF THE QUFUF IS NOT EMPTY. A TBLOCK IS TAKEN 
FROM IT AND PUT ON THE QSTASK QUEUE TO WAKE IT UP, THIS SUB= 
PROGRAM ALWAYS RETURNS TO THE CALLER IMMEDIATELY, 


CALL wITH 
C(XQ) = OBLOCK@ADDRESS 
C(XT) = TBLOCK@ADDRESS 
C(XJ) = JBLOCK=ANDRESS 
ENTER 8Y 
TSX LoQ$DEO 
DESTROYS C(XD)s C(XX) 
USES NO LOCAL TEMPORARIES 


INHIB SAVE »sON 


BSS 0 

DECRM (AVATL»Q) ONE LESS BLOCK ON QUEUE 

Lca 1.0L 

ASQ AVAIL» 

SZN BUSYsO IF QUEVE IS NOT @USY 

TZE SERROR WE ARE IN BAD TROUBLE 

STZ BUSY,0 MARK QUEUE NOT BUSY 

EAX OsFIRST4109 ADDRESS OF FIRST ELEMENT 
CMPX OsLASTsQ NOES LASY POINT TO IT? 

TZE O,L YES. QUEUE EMPTY #= RETURN 
DX OsFIRSTsQ GET OFFSET POINTER To BLOCK 
T7E SERROR weeaeBlE wit 

TMI SERROR #22)BG 

EAX Xo OF FSTs0 RELATE TO THE BEGINNING OF BLOCK 
STX Os.BUSYsQ REMEMBER WHO IS RESPONSIBLE 
LDX XgLINKsX GET NEXT ELEMENT ON QUFUE 
STX XeFIRST.O NOW MAKE IT FIRST 

XED XADD+TASK ADD TO TASK QUEUE 

CMPX CeoLASTsQ LAST BLOCK ON QUEUE? 
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MBR 


OL 09—837=71 


090745 
090746 


090747 


000750 


Q 


oon 
oon 
oO ono 
oO a0 
Qo ao 
— Oo 


ocooces 


116764 LINE PRINTER/ CARY PUNCH MOLULE 


QUEUE MANAGEMENT |=- NEA 


6012 17 1866 TNZ OQeLl 

6202 15 1807 EAX Os FIRST4129 

7402 15 1808 STX CeLAST4290 
1809 INHIB RESTORE 


7100 17 1810 TRA Del 


NOs RETURN 
YES» SET UP QUEUE TO APPEAR EMPTY 


BY MAKING LAST POINT TO FIRST+41 


RETURN 
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MBR OL N9—47—74 110764 LINE PRINTER/ CARD PUNCH MOCULE PAGE 


G QUEVE MANAGEMENT ee SP ANCH 4ACRO 
noa751 1812 USE CODE 

1813 HEAD G 
1814 * 
1815 * 
1816 * BRANCH MACRO 
1817 * 
1818 * THIg MACRO CREATES AN ASYNCHRONOUS TASK TO BE PREFORMED at A 
1819 * LATER TIME, IT CAN GIVE THE CREATED TASK THE CURRENT YBLOCK 
1820 * OR GIVE IT A NEW TBLOCK. EITHER WAY FOUR PARAMETERS MAY BF 
1821 * BETWEEN THE TWO TBLOCKS. 
1822 * 
1823 * PAST INFORMATION IS PLACED IN TEMPL THRU TEMp4 OF 
1824 * THE TASK PLACED ON THE QSTASK QUEUE. 
1825 * 
1826 * CALLS 
1827 * TSGETT 
1828 * CLOBBERS C(XX)s C(XQ) 
1829 * 
1830 * 
1831 BRANCH MACRO PASSsXFER ADDsC(TEMP1) »C(TEMP2) oC( TEMPS) »C(TEMP4) 
1832 TSX Os TSGETT GET A NEw TBLOCK 
1833 EAX XeOoT C(XX) POINTS TO NEW TBLOCK 
1834 LDX Te TSLINKsX C(XT) POINTS TO OLD TBLOCK 
1835 INE HSS 2S? 
1836 LDQ #3 SAVE FIRST PARAMETER 
1837 sta . TSTEMP1.5X 
1838 INE ry Ce) 
1839 LDQ 4 SAVE SECOND PARAMETER 
1840 sta TSTEMP20X 
1841 INE "H5> 57,2 
1842 LDa «5 SAVE THIRD PARAMETER 
1843 $Ta TSTEMP3,X 
1844 INE "46,9942 
1845 LDa #6 SAVE FOURTH PARAMETER 
1846 $TQ TSTEMP 45x 
1847 INE "H1>s*PASS’ ol 7 IS THE BLOCK THAT IS PASSED 
1848 EAX Te 0oX PaSS NEW BLOCK 
1849 EAX Os#2 POINT TO TRANSFER ADDRESS 
1850 STX Os TSTRAST INTO QUEUE BLOCK 
1851 EAX Os ISOFFSTsT PREPARE TO QUEUE 
1852 XED QSXADD+QSTASK GET ON THE TASK QUEUE 
1853 IFE "Hira PASS "ol WHICH RLOCK TO WE GIVE BACK AS CIIRRENT 
1854 EAX Teg GIVE BACK NEW SLOCK 
1855 INE "H1>s PASS ol 
1856 LDX Te TSLINKsX NO. GIVE BACK OLD SLOCK 
1857 BUGXR (05x) 


1858 ENDM BRANCH 


MBR OL Q9"37=74 190764 


Q 
090751 


LINE PRINTERY CARY PUNCH MOCULF PAGE 


1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1681 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
lage 
1893 


QUEUE MANAGEMENT w= NI JKSTRA°S DESIGN 


#2 #@¢ #©eeeee eee ee e# be Be Bee HEHE HR HH US UF 


USE CODE 
HEAD ¢ 


DISKSTRA DESIGN 


DRe EeWe JIJKSTRA IN HIS PAPER ON #COOPERATING 
SEQUENTIAL PROCESSES#® EXPLAINS A METHQOOLOGY FOR 
SYNCHRONIZING ASYNCHRONOUS TASKS BY MEANS OF "SEMAPHORES® 
AND TWO PRIMITIVES#=@THE "PeOPERATION® AND THE *VeOPERATION®, 
THESE PRIMIT]VES OPERATE UPON SEMAPHORES AND REPRESENT 
THE ONLY wAy IN wHICh THE CONCURRENT PROCESSES (TASKS) May 
ACCESS THE SEMAPHORES, 


MEFINITIONs THE VeOQPERATION IS AN OPERATION wITH ONE 
ARGUMENT» WHICH MUST BE THE IDENTIFICATION OF &A SEMAPHORE, 
ITS FUNCTION IS TO INCREASE THE VALUE OF ITS ARGUMENT 
SEMAPHORE By 1 AND AWAKEN ANY TASK WAITING ON THAT SEMAPHORE, 
THIS INCREASE AND AWAKENING IS TO RE REGARDED AS AN INDIVIS= 
IBLE OPERATION, 


DEFINITIONS? THE P=OPERATION Is AN OPERATION WITH ONE 
ARGUMENT» WHICH MUST BE THE IDENTIFICATION OF A SEMAPHORE, 
ITS FUNCTION IS TO DECREASE THE VALUE OF ITS ARGUMENT SEMAw 
PHORE AND IF THE ARGUMENT SEMAPHORE VALUE SHOULD GO NEGATIVE 
THE TASK DOING THE P={OPERATION IS BLOCKED WAITING FOR 
THE SEMAPHORE TO GO NON@NEGATIVE, THIS DECREASE AND POTENTIAL 
BLOCKING IS TO BE REGARDED AS AN INDIVISIBLE OPERATION, 


TT Ig THE P#OPERATIONs. WHICH REPRESENTS THE POTENTIAL 
DELAY, VIZ. WHEN A PROCESS INITIATES A PeOPERATION ON A SEMA@ 
PHORE, THAT AT THAT MOMENT IS ® go» IN THIS CASE THE TASK 
EXECUTING THE PaOPERATION IS BLOCKED AND CAN NOT BE RESTARTED 
UNTIL A V@OPERATION IS DONE ON THE SAME SEMAPHORE. 


53 


MBR NL 098) 7"71 
Gq 
000751 on9000 
000752 oo000! 
000753 000000 
090754 000767 
000755 525204 
000756 525204 
000757 525205 
000760 525205 
000761 525206 
000762 525206 


19.764 


e9n7514 


oo0751 
7242 15 
1242 03 
4442 15 
6022 00 

090755 

525204 
2382 03 
2782 07 

090757 

525205 
2362 03 
2762 07 

N00761 

525206 
2202 03 
2222 03 


LINE PRINTERS CARQ PUNCH MOAGULE 


1895 
1896 
1697 
1898 
1899 
1900 
1901 
1902 
1963 
1904 
1905 
1966 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 


1934 


1935 


PARE 
QUEUE MANAGEMFNT == P (DOWN) 
USE CODF 
HEA Q 


ute © © # 8S 2 


2 ee @©e ee e+ HH +e He & He Ee 


uv 


BUGBUG 


BUGRUG 


BUGRUG 


p (UOWN) 


P DECREMENTS A SEMAPHORE COUNT AND IF THE CONNT SHONLD 
GO NEGATIVE SUSPENDS THE CURRENT TASK UNTIL THE SEMAPHORE 


IS RAISED. 

MACRO SEMAPHORE@ADPRESS 

EAX ree | MAKE @ PQINT TO SEMAPHORE 
TSX Ls9SP CALL SUBROUTINE 

END™ P 


P == SUBROUTINE 


THIS sOURBOUTINE RETURNS IMMEDIATELY IF THERE I5 NO NEED 
TO QUEUE. IF NECESSARY To DN SO, IT SUSPENDS EXECUTION nF 
THE CURRENT TASK UNTIL A WAKE*liP IS GENERATED BY A V (UP) 


FOR THIS QUEUE AND THE RESOURCE CAN BE ALLOCATED TO THIS TaSk, 


CALL wITH 
C(X9) = SEMAPHORE *AQDRESS 
Cc(XT) = TBLOCK*ADDRESS 
CCXL) 2 RETURN=ANDRESS 
ENTER BY 
TSX La dSP 
DESTROYS ALL BUT C(XT)s C(XJ)» 
USES NO LOCAL TEMPORARIES 


AND C(x) 


INHIB SAVEs2ON 

BSS 0 

LX 20020 GET SEMAPHORE 
SBLX ZeieDU LET SEMgsSEMaj 
SXL 7,056 AND SAVE IT 

TNC Pi WILL HE HAVE TO HANG? 
BUGA NOs» PUG REGISTERS 
SET BUGBUG+41 

LDA BUGBUG, DU 

ORA BUGRUGSDL 

BUGA AND RETURN 

SET BUGBUG+1 

LDO BUGBUGs. DU 

ORO BUGBUGs. DL 

BUGXR (OsXaYoZeQ) 

SET BUGBUG+41 

LOX 0sB8UGBUGsDU 

LDX Xe 3uUGBUGsDU 
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a QUEUE MANAGEMENT #= P (DOWN) 
000763 525206 2232 43 LDX Y,SUGEUGS.DU 
9N0764 525206 2242 03 LDX Ze3UGEUGs»DU 
000765 525206 2252 03 LDxX Ce 3yGEyGsDU 
0N0766 cooocd 7102 17 1936 TRA Cel 
000767 aco004 7472 11 1937 Pi STX LeTSTRAST SAVE RESTART ADDRESS 
090770 900000 7412 15 1938 STX T0209 STORE POINTER TO TBLOCK 
NO00771 1939 EXIT 
000771 001547 7102 00 TRA SEXIT 


1940 INHIB RESTORE 


MBR QL C9-1 7871 10.764 


LINE PRINTER/ CARY PUNCH MODULE PAGE 56 
Q QUEUE MANAGEMENT == vo (UP) 
N00772 1942 USE CODE 
1943 HEAD 0 
1944 « 
1945 * 
1946 * vo (uP) 
1947 * 
1946 * vV INCREMENTS A SEMAPHORE AND RESTARTS ANY TASK WAITING 
1949 * ON THAT SEMAPHORE. 
1950 * 
1951 Vv MACRO SEMAPHORE-ADDRESS 
1952 EAX GeoAl MAKE @ POINT TO SEMAPHORE 
1953 TSX LsaSv CALL SUBROUTINE 
1954 ENDM Vv 
1955 * 
1956 * 
1957 * V == SUBROUTINE 
1958 * 
1959 * THIS SUBROUTINE INCREMENTS THE SEMAPHORE FLAGe IF THE COUNT 
1960 » 1S STILL LESS THAN OR EQUAL TO ZEROs THEN THE SUSROUTINE 
1961 * TAKES THE SLEEPING TASK AND WAKES HIM UP BY PLACING THE 
1962 * TASK ON THE OSTASK QUEUE, THIS SUBROUTINE ALWAYS RETURNS 
1963 * TO THE CALLER IMMEDIATELY, 
1964 * 
1965 * BY DESIGN, NO MORE THAN ONE TASK EVER WAITS ON A 
1966 * PARTICULAR RESOURCE. SAVVY??? 
1967 * 
1968 * CALL wITH 
1969 * C(XQ) 2 SEMAPHORE*ADDRESS 
1970 * C(xT) = TBLOCK=ADDRESS 
1971 « CcXL) # RETURN@ADDRESS 
1972 * ENTER BY 
1973 * TSX LeaASVv 
1974 * DESTROYS C(x)» CcXX) 
1975 * USES NO LOCAL TEMPORARIES 
1976 * 
1977 INHIB SAVEs.OQN 
900772 1978 V BSS 0 
END OF BINARY CARD LePCP0018 
000772 000000 7222 15 1979 LX Xo009 GET SEMAPHORE 
000773 006001 0222 03 1980 ADLX XeleDu SEMSsSEMel 
000774 9n0000 4422 15 1961 SX XeOe0 SAVE IT 
090775 000777 6002 oO 1982 TZE #42 IF SEM<msQs THEN AWAKEN 
090776 000000 6082 17 1983 TPL OseL NOs» JUST RETURN TO CALLER 
000777 on0000 2202 15 1984 LDX 02029 GET POINTER TO TBLOCK 
001000 000004 6202 10 1985 EAX OsOFFST2O GET OFFSET POINTER 
001001 777777 6002 oOo 1986 TZE SERROR aan JBG 
001002 777777 6042 oOo 1987 TMI SERROR aan DBG 
001003 ao3262 7172 o0 1988 xED XADDs+TaSk And IT ro TASK GUEUE 
001004 1989 BUGY (009) BUG IT 
525207 BUGRUG SET BUGBUG+1 


MBR 


O1 09=17=71 


GQ 


525207 
coo000 


525210 
525210 
000009 


10-764 


001006 

525210 
2202 93 
f2e2 03 
7102 17 


LINE PRINTERS CARY PUNCH MODULE 


QUEUE MANAGEMENT #= y (YUP) 


LDX 

STX 
1990 BUGXR 

BUGBUG SET 

LDX 

LOx 

1991 TRA 
1992 INHI8 


OsBUGEUGs. DU 
02029 

(O02X) 
BUGBUEG +, 
OsBUGEUGs»DU 
XsBuGPuUGsDU 
Ook 

RESTORE 


RETURN TQ CALLER 


PAGE 
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MBR 


END 


DL Ogelt7=71 10.764 


093260 
095261 
093262 
003263 
005264 
0N3265 


i) 


777777 €900 00 
003261 cacao 10 
Q03261 7400 54 
NO03261 7400 00 
003260 6250 00 
000674 7070 nO 


OF BINARY CARD LPCPO0019 


003266 
003267 
0035270 
003271 
093272 
003273 
003274 
093275 


003260 6250 00 
000724 7070 oO 
000000 coon 09 
ohozehoreholelezenenare) 
oonootoca0no 
aoogococodra 
ooo0ocacadan 
124101123113 


LINE PRINTER/ CARD PUNCH MODULE PAGE 


1994 
1$95 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 


QUEUES == QSTASK QUEUE 


»eee#+ee &@ Se & HR Ft 


TASK 


HEAD @ 


QSTASK QuEVyE 


THIS QUEUE Ts USED TO SCHEDULE THE ACTIVITY OF THE PROCESSOR 
ENTRIFS ARE MANE BY THE USE OF THE NORMAL XEN O$ADN 

FEATURE AND ALSO BY AN XED CHAIN INSTIGATED BY THE ACTION OF 
A Trap BEING SPRUNG BY THE EXECUTIVE, ENTRIES ARE REMOVFD ay 
A SPECIAL PROGRAM MODULE WHICH IS CALLED BY THF EXIT MACRO 
WHENEVER THE PROCESSOR IS FREE TO WORK ON A NEW TASK, 


QUEUE TASK 


USE ASTOR 

EVEN 

ass i) 

ARG SERROR 

ARG OSTASK+OSFIRST+1 
STX OsQSTASK+QSLASToDI 
sTx Os QSTASK+QSLAST 
EAX Qs QSTASK 

TSX LeQSENa 

EAX Qs OSTASK 

TSX L»QSNE9 

ARG 0 

DEC a) 

DEC 0 

DEC 0 

DEC 0 

UASCI tse TASK ABBREVIATION 
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MBR 


END 


OL 09217.71 192764 
9 
1903276 
093276 
103276 
003276 
003276 777777 oatlo 90 
005277 003277 oo0n o0 
003300 003277 7470 54 
093501 003277 7400 40 
093302 003276 6250 oo 
093303 000674 7070 00 
003304 003276 6250 oo 
005505 000724 7070 00 
09033506 ca000N onto oo 
003307 goonocoCan0D 
003310 oo000000D0N0D 
003311 ogn000ooNoNO 
093312 ooooocoontoo 
OF BINARY CARD LPCP9020 
093313 103117122105 


LINE PRINTER/ CARD PUNCH MODULE PAGE 


2068 
2069 
2010 
2oii 
2012 
2013 
2014 
2c15 
2016 
2017 


QUEVES e* QSCORE QUEUE 


#eetetete were 


CORE 


HEAD Q 


QSCORE QUEUE 
THIS QUEVE HOLDS THOSE TASKS WHICH REQUIRE MEMORY ALLOCATIONS 
WHEN A PRIOR MEMORY REQUEST IS IN OPERATION, THIS IS NOT 
TO SE CONFUSED WITH THE THE FREE MEMORY LIST, 


QuUEVE CORE 


USE GSTOR 

EVEN 

ess 0 

ARG SERROR 

ARG OSCORE+QSFIRST41 
STX Oe DSCORE+OSLASTSDI 
STX Os OSCORESOSLAST 
EAX Oe A$CORE 

TSX Le QSENGQ 

EAX Ca Q$CORE 

TSX LeQSDEQ 

ARG 0 

DEC Q 

pec 0 

DEC 0 

DEC 0 


UASCI 1sCORE ABBREVIATION 
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MBR a1 O9—47=7{ 


003353 
003354 


003355 
003356 


Q 


06377¢ 
000000 


000000 
903770 


01011 


OIO3553 


oo0o0cco 
ekohedenene) 


000000 
gotnoo 
001011 


LINE PRINTER/ CARD PUNCH MOLLE PAGE 


2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2048 
2046 
2047 
2048 
2049 
2050 


CORE MANAGEMENT *= GENERAL INTRODUCTION 


#282 #4 2 4&# 8#@ He 8 ee ee SE ee EH + 


FIRST 


USE CODE 
HEAD R 


GENERAL INTRODUCTION 


BELOW Ig THE FREE MEMORY LIST» THE LIsSt CONsIsTs OF A 
POSSIHLY EMPTY LINKED LIST OF BLOCKS, THE FORWARD/sBACKWaRD 
POINTERS OF A RLOCK POINY TO THE FIRST WORD OF THE SUCCEEDING, 
PRECEEDING BLOCKS» RESPECTIVELY, THE LINK POINTERS ARE 

STOREN IN WORDS 0 AND to» RESPECTIVELY». OF THE BLOCK, 

HENCE THE MINIMAL SIZE OF A BLOCK IS TWO (2) WORDS, THE 

TOTAL LENGTH OF THE BLOCK IS ALSO KEPT IN WORD 0. RY 

DESIGN CONVENTIONS» THE POINTERS ARE UPPER HaLF QUANTITIFS 

AND THE LENGTH I§ A LOWER HALF guANTITY. THE EMPTY LIST 

IS DENOTED BY THE FORWARD LINK OF THE *FIRST® POINTING TN 
“LAST? AND 8Y THE BACKWARD LINK OF *LAST® POINTING TO °FIRST?, 


NOTE THAT ALL ALLOCATIONS ARE DONE IN MULTIPLES OF EIGHT. 


A 8LOCK MUST BE DE*ALLOCATED AS ONE ENTITY, NO PARTIAL RELEASES 


ARE ALLOWED, 


FREE MEMORY LIST 


USE STORE 

ZERO SNEXTFs0 FORWARD LINKS LENGTH OF SLOCK 
ZERO Os BACKWARD LINKy <NOT UYSED> 
ZERO 020 FORWARD LINK/ LENGTH OF 3LNCK 


ZERO SNEXTBs 
USE PREVIOUS 


BACKWARD LINK, <NOT USED> 
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R CORE MANAGEMENT == MACROS 
001011 2052 USE CODE 

2053 HEAD R 
2054 «* 
2055 * 
2056 * MACROS 
2057 * 
2058 * 
2059 * THE FOLLOWING MACROS ARE USED TO ALLOCATE/DEALLOCATE BLOrKs 
2060 * OF CORE. ONLY INDEX REGISTER J 1S GUARANTEED ACCROSS THESE 
2061 * CALLS. 
2062 * 
2063 * GETC MACRO 
2064 * 
2065 * CALL wITH 
2066 * CcAL) = NUMBER@OF eWORDSeREQUESTED 
2067 * ENTER 3Y 
2068 * TSX LeRSGETC 
2069 * RETURNS TO Ool 
2070 * RETURNS WITH 
2071 * CiAU) = RUFFER=ADDRESS 
2072 * C(AL) = BUFFER=LENGTH 
2073 * 
2074 GETC MACRO WORDeCOUNT@ADDRESS/ "AP 
2075 INE PHL Oso ae 
2076 LDA #1 
2077 TSX LeR$GETC 
2078 ENDM GETC 
2079 * 
2080 * 
2081 * RELC MACRO 
2082 * 
2083 * CALL wITH 
2084 * C(AU) # BUFFER@ADDRESS 
2085 * C(AL) = BUFFER@ADDRESS 
2086 * ENTER BY 
2087 * TSX LeRSRELC 
2088 * RETURNS TO Ool 
2089 * RETURNS WITH 
2090 * DESTROYS CCA) 
20901 * 
2092 RELC MACRQ RELEASE*ADDRESS&COUNT/ *A? 
2093 INE PHL >, P AD 
2094 LDA #1 
2095 TSX LeRSRELC 


2096 ENDM RELC 


MBR QD, I99—847=71 


oo101! 
001012 


0010135 
003014 
001015 
001016 
001017 
001020 
0n1021 
001022 
oolo2s 


R 


oocoic 
oo3302 


000014 
000007 
777770 


777777 
004001 


777777 
o00014 
000000 
000016 


17764 


901011 


001011 


LINE PRINTER/ CARD PUNCH MODULE DARE 


2098 
2699 
2100 
2ici 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 


2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 


CORE MANAGEMENT @= ALLOCATION 


e*ensewteeeeeeeee Bee ene ee ee 2 & # 4# 8 4H & HB HR FH 


GETC 


GETC1 


Use Cone 
HEAD R 


ALLOCATION 


THIS SUBROUTINE REMOVES A BLOCK OF N wORDS FROM THE FREE 
MEMORY LIST. IF THERE IS NO BLOCK OF N WORDS OR GREATER 
ON THE FREE LISTs THERE A REQUEST FOR MORE MEMORY IS MADF, 
AND THE PROCESS IS REPEATED. SINCE MEMORY REQUESTS ARE 

OF THE TRAPPING MME GRAND, IT 1S NECESSARY TN FIRST 

CHECK TO SEE IF A MEMORY REQUEST IS CURRENTLY IN OPERATION, 
IF SO. THEN THIS REQUEST IS PUT TO SLEEP BY QUEUEING IT 

ON THE QS$CORE QUEUE. WHEN THE MEMORY REQUEST COMPLETES 
THE NEXT ITEM (IF ANY) ON QSCOFE IS AWAKENED, CORE ALLO- 
CATION IS ON A FIRST FIT BASIS. THIS IS TO ALLOW HOLES 

TO FLOW TOWARD HIGHER MEMORY. 


CALL BY 
TSX LeRSGETC 

CALL wITH 
C(AL) = NUMBER=OF eWORDS@REQUESTED 
C(T) 2 TRAP BLOCK 


CALLS 
ENQ CORE 
RSMORE 
RSRELC 
DE CORE 


RETURNS WITH 
C(AU) = ADDRESS 
C(AL) * NUMBER OF WORDS 
EXIT TO OoL 
PRESERVES ALL REGISTERS EXCEPT CCA) 
USES TEMPORARIES TSTEM9 THRU TSTEM16 


use CODE 

BSS 0 

SREG TSTEML6eT SAVE ALL REGISTERS 
ENQ CORE AND GET ON THE CORE QUEUE 
XED OSCORE+OS$XENQ 

ess 0 

LDA TSTEMI2,7T RESTORE & AND 

ADLA 72DL ROUND UP LENGTH 

ANA #077777 0eDL TO A MULTIPLE OF 8 
TZE SERROR eeeBLEWIT 

CMPA SROMAXe DL HOW MUCH IS REQUESTED 
TRO ~—s- SERROR TOO MUCH) 

STA TSTEMI25T SAVE NEW LENGTH 


EAA QoAL MOVE LENGTH TO AU 
STA TSTEM104T SAVE FOR INDEX REGISTER OPERATIONS 


62 


MBR 


END 


N1 O9—,7—714 
R 
091024 ‘n0014 
001025 003353 
001026 069362 
001027 oocdon 
END OF BINARY CARD 
00103¢ 901035 
091031 061035 
091032 oo0000 
091033 001026 
001034 901077 
001035 00014 
091036 oocool 
001037 oconos 
0901040 ocnon00 
001041 0900016 
001042 001051 
091043 777777 
091044 00016 
001045 ncooon 
N01946 goo0000 
091047 gno0o0l 
091050 0000006 
001051 on0000 
001052 oco0001 
001053 oo0001 
001054 903304 
001055 900914 
OF BINARY CARD 
0n1056 777777 
001057 777777 
091060 aono10 
001061 01400 
001962 gnco000 
001063 900014 
091064 g90002 
091065 go0000 
091066 go0000 
091067 onooon 
091070 902900 
091071 901065 


10-764 


901024 


2350 
2240 


00109026 


5ade2 
1150 


LPCP9021 


6000 
6020 
2240 
6010 
7100 
7449 


2230 
2220 
7200 
1200 
6000 
6940 
9240 
4400 
7420 
74409 
6220 
7429 
4500 
7430 


001054 


7170 


2350 


LPCPO0022 


3759 
6240 
7350 
6200 
4310 
2220 
6230 
5602 
7570 
7570 
124n 
6630 


it 
090 


00 
14 


00 
0 
14 
QO 


00 
11 


12 


99 


11 


07 


2147 
2148 
2149 
2150 
2151 
2152 


2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 


2177 
2178 
2179 
2160 


2181 
2182 
2188 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 


GETCS 


GETC6 


GETC7 


GETC4 


s 


GETCS 


BSS 
LDA 
LDX 
BSS 
RPL 
CMPA 


TZE 
TNC 
LpXx 
TNZ 
TRA 
STX 


LINE PRINTERS CARD PUNCH MOCLILE 


CORE MANAGEMENT == ALLOCATION 


6 
TSTEMI2eT 
ZeFIRST 

6 
sTNCAT7E 
Oez 


GETC7 
GETC7 
20007 
GETC6 
MORE 
Ze TSTEML24T 


PAGE 


GET BACK REQUEST 
GET PTR TO FIRST FREE BLOCK 


RUN DOWN LINKED LIST 
FOR A BLOCK BIG ENOUGH 


FOUND A BLOCK THAT IS "JUST RIGHT? 
MORE THAT BIG ENOUGH 
GET BACK PTR OF WHERE WE LEFT OFF 


IF NOT Ay END OF LISTs KEEP SEARCHING 


WON’T FIT ANYWHERE. GET MORE CORE 
SAVE PTR TO BLOCK TO RETURN TO CALLER 


zZ POINTS TO SLOCK TO DELINK 


LDX 
LOX 
L Xt 
SBLX 
TZE 
TMI 


YeLINKB,7 
Xo LINKF,2 
Os lLENe? 

Os TETEMLOST 
GETC4 
SERROR 
ZeTSTEMIOsT 
Os LENe 7? 
XeLINKFs? 
ZeaLINKSsX 
Xn9,2 
XoLINKEoY 
LINKBoey 
YeLINKB,X 
CORE 
OSCOREsOSXDEQ 


ZERO BLOCK For USER 


LDA 


ANA 
EAX 
ALS 
EAX 
FLD 
LDX 
EAX 
RPDX 
STAQ 
STAQ 
SBLX 
TRC 


TETEMLQe7 


"1seDL 
Zem*1eAL 
10-2 


AssIGN y TO PREDECESsOr 

AND X TO SUCCESSORE 

GET THE LENGTH OF THIS BLOCK 

MINUS THE AMOUNT REQUIRED 

AH HAs, BLOCK JUST FITS 

aaeBLEwlT 

SET Z TO sgtART OF ExCEss OF BLOCK 

SET THE LENGTH OF THE REMAINING ALCOCK 

SET FORWARD LINK OF REMAINING BLOCK 
" BACKWARD | # ] . 

COPY Z INTO X FOR FUDGE 

SET FORWARD LINK Of PREDECESSOR 

aanDBG 

SET BACKWARD LINK OF SELF 

SEE IF ANYONE ELSE WANTS CORE 


GEy LENGTH ° 


MASK TO COUNT 
SAVE COUNT MINUS ONE IN 2 
PuT COUNT IN REPEAT FIELD 


OsBSABIT+BSBBITsAL TERMINATE CONDITIONS AND COUNT 


OeDL 

Xe TSTEML2eT 
Yo2aX 

a4 

OX 

Oe Y 
ZeS$ikeDU 
GETCS 


CLEAR AQ 

GET STARTING ADDRESS 
SET SET INDEX REGISTER 
ZERO MEMORY LIKE MAD 
CHONK 

CHONK 

REMOVE A K AS DONE 
TEST FOR MORE 


63 


MBR 


Jt O984,7=71 


091072 
on1073 
0n1074 
001075 
aN1076 


R 


C00016 
003320 
777777 
coocic 
000000 


Liie764 


001072 


3220 
0420 
6040 
9730 
7100 


11 
00 
00 
11 
17 


LINE PRINTERZ CARD PUNCH MOQUULE 


CORE MANAGEMENT #= ALLOCATION 


2194 * 
2195 * 
2196 GETC5S 
2197 

2198 

2199 

2200 

2201 


FINISH UWP 

Bss 0 

LCyx Xo TETEMLIOST 
ASX Xo BAVATIL 
TMI SERROR 

LREG TSTEMI6,T 
TRA Cel 


GET COMPLEMENT OF LENGTH TN RETURN 
REDUCE AVAIL BY THAT AMOUNT 
eaeeolLEwlT 

RESTORE REGISTERS 

RETURN 


64 


MBR 


END 


OL Og0i17=7} 
R 

001077 003323 
091100 001000 
001101 063323 
001102 001301 
OF BINARY CARD 
001103 903323 
001104 001000 
001105 001000 
001106 coitic 
001107 901024 


19,764 


901077 


001977 
2220 00 
0220 03 
7420 00 
7070 oO 

0011903 
LPCP0023 
2350 900 
1350 03 
2750 07 

901106 
7070 00 
7100 99 


LINE PRINTER/ CARD PINCH MODULE 


2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 


2231 
2232 
2238 
2234 


2235 


PAGE 
CORE MANAGEMENT "© REGUEST MORE 
USE Cone 
HEAD R 
td 
* 
* REQUESY MORE 
* 
* THIS SUBROUTINE NOES A REQUEST FOR MORE MEMORY. IT ASKS 
* FOR ONE CORE UNIT. UPON THE SUCCESSFUL COMPLETION OF THE 
* REQUESTs THE NEW MEMORY IS LINKED ON THE FREE LIST BY 
* CALLING RELC, 
* 
* CALL SY 
* TRA MORE (ONLY »GETC® SHOULD CALL THIS ROUTINE) 
* CALL wITH 
* C(T) = TRAP=BLOCK 
* CALLS 
SCHSEG 
* RSRELC 
* EXIT TO RSGETCS 
* DESTROYS <ALL REGISTERS> 
* USES NO LOCAL TEMPORARIES 
ci 
MORE BSs ) 
LDX Xa BMTOP GET CURRENT TOP OF MEMORY 
ADL Xx Xo SMQUANS DU ADD ONE CORE UNIT 
STX Xa BMTOP SAVE NEw EXPECTED roe 
TSX LeMREG REQUEST MEMORY 
MOREL BSS 0 
LDA SMTOP GEY BACK OLD TOP OF MEMORY 
SBLA SMQUAN,DU IN AU 
ORA SMQUANSDL AND LENGTH IN AL 
RELC A NOW DO A RELEASE TO LINK ON FREE LIST 
TSX LeRS$RELC 
TRA GETC3 TRY AGAIN 


65 


MBR 


END 


QL ANG=17=71 


001110 
OO11}1 
001112 
001113 
001114 
001115 
001116 
901117 
001120 
001121 
001122 
901425 
001124 
001125 
001126 
001127 


R 


003400 
777777 
003406 
003322 
003323 
003406 
777777 
003406 
co3404 
777777 
003406 
600000 
003406 
777777 
003353 
oo1isi 


OF BINARY CARD 


001135¢C 
001131 
001132 


000000 
001144 
003404 


LC e7A4 


Aditio 


001110 

001110 
7530 00 
3750 03 
7550 00 
2350 00 
2360 00 
1110 90 
6010 oo 
2229 00 
7200 00 
6000 00 
0400 00 
4400 12 
1110 90 
6010 00 
2220 00 
7190 oO 


LPCPO0024 
2220 12 
69000 09 
1020 00 


LINE PRINTER/ CARD PUNCH MODULE . PAGE 66 


2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2278 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 


2283 
2284 
2285 


CORE MANAGEMENT == NE=ALLOCATION 


*eseeteteteteteeeeeeene ee ee eH He 


RELC 


2 


USE CODE 
HEAD R 


DE@#ALLOCATION 


THIg ROUTINE LINKS TRE "RELEASED® BLOCK OF MEMORY INTO 
THE FREE MEMORY LIST ACCORDING TQ THE 3LOCK®S ADDRESS, 
SINCE THE FREE LIST IS ORDERED sBY BLOCK ADDRESSES FROM 
LOWEST TO HIGHESTs IN ORDER TO MAKE INSERTIONS AND DE= 
LETIONS EASIEST THERE IS ASSOCIATED WITH EACH BLOCK A 

FORWARD AND RACKWARD POINTER AS WELL AS A COUNT OF THE 
TOTAL NUMBER OF WORDS IN THE BLOCK, 


CALL RY 
TSX Le®SPELC 
CALL wITH 
C(AUl) = BLOCK=ADDRESS 
C(AL) # LENGTH 
CALLS 
RSMEMCK (CONDITIONALLY) 
EXIT TO OoL 
PRESERVES ALL REGISTERS EXCEPT CCA) 
USES LOCAL TEMPORARIES MREG THRU MREGS7 


use CODE 

BSS 0 RELEASE a BLOCK OF MEMORY 
SREG MREG SAVE REGISTERS 

ANA “1sDuU ISOLATE RELEASE ADDRESS 
STA TEMP SAVE For TEST 

LDA SMTOPO TEST TO SEE IF ADDRESS 
LDQ SMTOP OF BLOCK TO BE RELEASED 
Cw TEMP 1S IN BUFFER AREA 

TNZ SERROR BLEWIT 
_LDX Xe TEMP GET INSERT ADDRESS 

LXL Oo MREG+4 GET LENGTH 

TZE SERROR weneSLEwlT 

ASX Oo TEMP ADD TO STARTING ADDRESS 
SXL Os lLENeX SAVE IN BLOCK 

CWL TEMP TEST IF aLl IS IN RANGE 
TNZ SERROR wee BlLEwiyT 

LDX XoFIRST GET POINTER TO FIRST FREE BLOCK OF FREE LIST 
TRA #42 ENTER SEARCH LOOP 


LOCATE WRERE TO INSERT BLOCK IN FREE List ACCORDING 10 ANDRESS 


LDX Xe LINKF,X GET PTR TO NEXT BLOCK ON FREE LIST 
TZE RELC2 DID WE JUST FALL OFF THE END OF THE LIST? 
CMPX X,INSRT NO,ARE WE POINTING PAST THE HOLE? 


MBR 


D1 09-°17=71 


ON1138 


091134 
091135 


091136 
001137 
00114¢ 
091141 
Onli4se 


NN1148 


001144 
091145 


001146 
001147 
001150 
091151 
0n1152 


R 


CGiisec 


003404 
congo! 


oncool 
oco0dl 
000900 
oo000! 
000000 


001146 


903355 
061134 


CO120E 
000000 


000000 
003404 


901206 


10.764 LINE PRINTERS CARD PUNCH MODULE PAGE 67 


CORE MANAGEMENT |= NE=ALLOCATION 


6020 00 2286 TNC +03 NO» LOOK AGAIN 
2287 * 
22886 * 
2289 * 
2290 * LOCATED POSITION OF SLOCK wITH xr=x POINTING TO suCCESSOR 
2291 * 
N01134 2292 RELCL 8SS 0 
2240 09 2293 LDX ZeINSRT NOW 7 POINTS TO INSERT 
2230 12 2294 Dx Yo LINKS, Xx wae Y POINTS TO PREDECESSOR 
2295 wae X POINTS TO SUCCESSOR 
4560 14 2296 $Tz LINKRe? #a22DRBG 
7430 14 2297 STX YaLINK3,2 SET BACKWARD LINK OF INSERT 
7420 14 2298 STX XeLINKF,? ©" FORWARD * " ‘ 
7440 12 2299 STX ZeLINKS,X RESET SUCCESSOR*®S SACKWARD LINK 
744N 13 2300 STX ZaLINKEeY AMD FINISH LINKING BY RESETTING PREDECESSOR? 
2301 wweFORWARD LINK, 
7109 900 2302 TRA RELC3 NOW DO SOME RE@COMBINING 
2303 * 
2304 * RELEASED BLOCK FITS BETWEEN THE LAST FREE BLOCK ANN eLAgye 
2305 * 
001144 2306 RELC2 BSS 0 
622 900 2367 EAX XsLAST SO MAKE X POINT TO SUCCESSOR 
7100 00 2308 TRA RELC1 AND TREAT NORMALLY 
2309 x 
2310 * 
2sii * NOW THAT THE SLOCK AAS BEEN COrrECrLY LINKED ON THE FREE 
2312 * LIST TRY TO RECOMBINE WITH ITS BUDDIES. 
2313 * THERE ARE FQUR (4) CASES TO CONSIDERS 
2314 * 
2315 * CASE 1% THERE EXISTS A BYyDDY ABOVE IN MEMORY 
2316 * CASE IIsTHERE EXISTS A BUDDY BELOW IN MEMORY 
2317 * CASE ITILsALtL OF THE ABOVE 
2318 * CASE IVs NONE OF THE ABOVE 
2319 * 
101146 2320 RELC3 855 0 
7970 00 2321 TSX LeRELC4 CASE 1s TRY REJOINING WITH BUDDY AROVE 
6220 14 2322 EAX Xo0e? LET X POINT TO INSERT 
6240 13 2323 EAX Z00sY LET 7 POINT TO ITS PREDECESSOR 
7440 00 2324 STX Ze INSRYT NOW CALL THE PREDECESSOR INSERT 


7970 90 2325 TSX LeRELC4 FUDGE CASE II TO CASE I! 


MB 


END 


VL O99, 7a7] 

R 
O091i53 oars4aga4 
991154 se3sec 
M9155 ec3323 


OF BINARY CARD 
891156 aACS3zZe2 
991157 acicce 
O2216C oflece 
AMVI61 JOSSZes 
SO01162 anieor 


O94.63 or guce 
OVL164 ACLEtE 
S801165 gyostse 
O91166 esse 
OOVLG7 BeLses 


Q9L17G eanege 
OALVi7 a ogeangn 
O9bl72  coaqnge 


O91i73 cepe2s 
M92t74 yoagad 
091175 genng4 
Q91176 903262 
091177 onnacs 
bgt269 ema ae 
QUO] (620073 


eqi202 oans4dar 
001203 525212 
OF BINaRY CAR? 
091204 5252142 
091205 aucuoH 


L127 424 


LIUF PRINTERS CARD BIINCH MADULE PARE 
CGRE MANAGEMENT 22 NE @ALLOCATIAN 
23277 
2378 wE7?RE DUNES eloOck fs COrRECTLyY LINKED IN List. 
2329 2 Grasp CALLER 2S PEGISTERS and RETURN, 
2330 3 
72E0 29 234 Lh Xo 4REGed GEy RACK AMOUNT RELEASED 
Hd20 09 2332 ASH XZSAVATIL STA TSTIC8 FREE CORE 
22en a9 2323 1 OX %23MTQ2 GET TOP AF MEMORY 
LPCPIN2S 
{220 n 2324 § BX x. SMTQ°9 COMPUTE BUFFER SIZE 
1229 G3 2385 Six Xo BSMOQUAN® UU MTNUS & CORE QUANTUM 
6920 a9 coe iad RELOG x CK, FORGET AROUT IT 
jnen 39 33D7 m4 NX. BMEMaQ COMPARE FT TO MEMORY REQUIREMENTS 
6320 o9 2508 INS RELOM CAN WE aFFORD 0 RELEASE SOME MEMORY? 
23an nn 2929 gJN QS 9uUS 7% eGESoRE HUf = IRST 1S MEMORY gUSY? 
8310 99 23469 ra? RELC LGM _.NDER ANY CLRCUNSTANCES TRY 7OQ TALL 
2Pift oF 34d 1 TX ToTRAP AY Ler SleaMy TOR 
7260 C7 2342 es 3. PRAP SOL -Nu JueMy 308 
MOL La? 2363 Be RANUH NOPASSZMEMCK cx "O SET UP TASK YO “ELEASE MEMNRY 
7atn 94 fax oO, PSSETT 
A220 31 ZAXx 4-O9T 
2210 12 to TLTSLINK af 
A210 32 AX T 98% 
62009 99 z Ax JLMEMEK 
FARO Li STrX QLTSTRALT 
6200 11 eAXx O.98CFFsr lt 
Fi7n 20 “29 WS CAPD + QB TASH 
eeit ':2 LX To TSLInks 
nepeog BGK 100%) 
aRe 4 bFgo Set SUGRUG? 1 
Zar. Sa ae 0. 3UCEUGs SU 
2240 24 ox MeAUGB Gs JU 
OC1202 3.4 SEL S 2835 Q Lea? 
A730 99 2868 LaeG MREG SESICNE REGISTERS 
053203 25246 BUGA PEMIND HIM THAT a 73 INVALTD 
525212 BUGEIG SET BUGBUG4, 
2350 a3 LOA 8U6R3UGs,BuU 
LPCP4026 
278a a7 C2 A SUGBUGSDL 
7ino 17 237 yRA QoL PETIRN TO CALLER 


§R 


AEMCOK 


MBR OL O99817=71 
FR 
091206 nonooc 
001207 nr 3404 
001210 soodco 
oN1211 nono0n 
091212 cccoos 
091213 oood00 
901214 go0001 
001215 o00000 
001216 003406 
001217 oono0c 
001220 003406 
901221 o9nnoor 
001222 oocooo 


134744 


691206 
7200 14 
n29n a9 
igo 14 
4N1IN 17 


2200 12 
7400 14 
7440 10 
7200 12 
74090 00 
7200 14 
98200 09 
4400 14 
7100 17 


003357 
093360 
003360 
093400 
no34n4 
003406 
001223 


LINE PRINTER/Y CARY PINCH mol F 


2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 


PAGE 


CURE MANAGEMENT #=— NE-ALLOCATION 


® 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
R 


ELC4 


, a 


2369 * 


2370 
2371 
2372 
2373 
2374 
2375 
2576 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 


THIS SUBROUTINE TRIES TC RECOMRINE A BLOCK OF MEMNRY 


AND ITS FUDDY ABOVE CIF TT ITS ALSO IN THE FREE LIST) 
INTO A SINGLF S3LOCK. 


CALL Fy 
TSX LeRELC4 
CALL wITH 
C(Z) = INSERT=RBLOCK@ADDRESS 
C(X) = JINSERT’S SUCCESSOR 
EXIT TO OsoL 
DESTROYS 09X57 


BSS 0 

LXL OsLENs? COMPUTE ADDRESS OF BUDDY IN 
ADLX Os INSRT eee UPPER MEMORY 

CMPX QeaLINKF,2 IS IT PART OF THE FREE LIST? 
TNZ O,L NO». SO RETURN TO CALLER 


FOUND SuDDY 


LDX Os LINKFs.X RESET INSERT®’S FORWARD LINK 10 
STX OsLINKFe2 THAT OF BUDDY?S. 

STX ZeLINK9,0 RESET PREDECESSOR®S BACKWARD POINTER 
LXL O,LENSX GET THE LENGTH OF 3UDDY 

STX OsTEMP SAVE 1T 

Lx OslLENo? GET LENGTH OF INSERT 

ADLX Cs» TEMP TO GET TOTAL LENGTH 

SXL OslLENo? AND RESET LENGTH OF 8LOCK 

TRA Deol RETURN TO CALLER 

use STORE 

EIGHT 

Bss TSLEN DUMMY TcoB WHEN CREATING MEMCK 
EQU TRAP STSLEN=8 TEMP REGISTER STORAGE 

EQU MREGed POINTER TO INSERT BLOCK 

EQU MREG+6 FOR SCRATCH WORK 

Use PREV IOUS 


69 


MBR 


END 


OL ONgelt7=71 


Rr 
001223 063302 
091224 963323 
001225 0063322 
091226 000927 
OF BINARY CARD 
001227 903320 
0901230 777777 
001231 000026 
001232 cos321 
001233 000026 
091234 on0025 
001235 777777 
001236 001276 
091237 ono022 
091240 9N3353 
094241 nonso2 
001242 oanogoon 
001243 971250 
ON1244 901259 


Romy 


H91223 


091223 
101223 


7170 
2220 
1220 
7420 


LPCpo027 


1220 
6040 
7420 
2350 
13590 
7550 
6940 
60cn 
7710 


224Nn 
5902 
1150 
60c0n 
6929 


64 


00 
00 
00 
ii 


00 


LINE PRINTERS CARD PUNCH MODULE PAGE 70 


2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2462 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 


2417 
2418 
2419 


2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 


CORE MANAGEMENT == MEMnRY PELEASE 


2@e2*2#2+eteteee&# ee &£ He eH ee H&E HR Se EE He He 


MEMCK 


MEM 


USE Cane 
HEAD R 


MEMORY RELEASE 


THIS TASK CHECKS 10 SEE IF IT CAN GIVE BACK MEMORY TO THE 
SYSTEM, IF SQ, IT RETURNS BLOCKS IN MULTIPLES OF SMOQUAN, 
THE ALGORITHM ITS AS FOLLOWS 
GIVENs 
MEMRQ == AMQUNT OF MEMORY NEFDED THOUGH NOT NECESSARIYLY IN USE 
TOTAL o= TOTAL BUFFER AREA SIZE 
AVAIL #2 AMOUNT OF FREE CORE THOUGH NOT NECESSARILY CONTIGOUS 
USEN w= AMOUNT OF CORE SUSY (TOTAL@AVAIL) 
REQUIREMENTS 
USED <= MEMRO 
ENTERED WHENS 
TOTAL=MEMRQ => MQUAN 
RESTRICTIONSS 
(1) CAN RELEASE ONLY THE LAST PHYSICAL ALOACK 
(2) A RELEASE CAN SE FFFECTED ONLY TF AFTER THE RFLFASE 
THERE IS AT LEAST ONE BLOCK OF MEMORY THAT 1S OF 
MEMRQ@USED SIZE-~ 
MEMCK IS AN ASYNCHRONOUS TASKs HENCE IT MAY ALL TEMPeS 
USES NO LOCAL YEMPORARIES 


BSs 0 

EN CORE GET ON CORE QUEUE 

XE0 QS$CORE+Q$XENQ 

LDX Xe $MTO2 GET TOP OF BUFFER AREA 


SBLX Xe BMTOPQO MINUS BOTTOM @ TOTAL 


SBLx Xa SAVAIL MINYS AyAIL m» SED 

TMI SERROR wexGlEWwIT 

STX Xo TETEMP2a7T C(CTSTEMP2eT) = USED 

LDA S$MEMRO GET AMOUNT OF MEMORY REQUIRED 


SBLA TSTEMP2sT MINUS USED = AMOUNT NEEDED STILL 
STA TSTEMP3,T SAyE IT 

TMI SERROR wane SLWE ly 

TZE MEMX EXIT IF CONDITIONS CHANGED ON US 
ARL 36-48 MOVE TO AL FOR RPL 


SEARCH FOR BLOCK OF NEEDED? SI7eé 


LDX ZeFIrst GET POINTER TO Firasrt FREE ALOCK 
RPL eTNCSTZE RUN DOWN LINKED LIST 

CMPA Os2 FOR A PLOCK BIG ENOUGH 

TZE MEM2 FOUND & BLOCK THAT IS "JUST RIGHT? 


TNC MEM2 MORE TKAN BIG ENOUGH 


MBR 


END 


OL O9—17=71 
R 

N91245 cansoer 
Nn01246 ¢91241 
001247 901276 
n9125¢0 crocce 
091251 f°¢3355 
091252 ocoool 
091253 001256 
001254 90025 
OF BINARY CART 
001255 o0126c 
001256 nannool 
091257 oonnon 
091260 colo00 
091261 001276 
091262 777000 
091263 ¢90024 
001264 coooot 
091265 ncnn24 
091266 oncgooc 
091267 001272 
091270 «6ocoool 
091271 ceoool 
091272 ooo024 
091273 903323 
091274 ¢¢63326 
001275 oanisos 
ON1276 903304 
091277 961335 
091300 001547 


13.764 LINE PRINTERS CAR) PUNCH MOLLILE PAGE 
CORE MANAGEMENT |= MEMORY RELEASE 
224n 14 2437 LUX Zo%eZ7 GET BACK PTR OF WHERE WE LEFT OFF 
6010 99 2438 TN2 MEM{ JF NOT AY END OF LISTs KEEP SEARCHING 
7190 n0 2439 TRA MEMX ATHERWISE EXIT 
2440 * 
2441 * Z POINTS TO BLYCK NEEVFD EVENTUALLY 
2442 * 
7230 14 2443 MEM? LX YolENe? GET THE LENGTH OF THIS BLOCK 
622nN no 2444 EAX XsLAST GET PTR TO LAST ALNCK 
104n 12 2445 CMPX ZoLINK2,X DOES Z POINT 10 LAST BLOCK? 
6910 90 2446 TNZ #43 NOs» NOT LAST 
1230 11 2447 SBLX YoTSTEMP3aT YES» SO SURTRACT OFF NEEDED 
LPCPO02A 
7100 09 2448 TRA MEMS CONTINUE 
2240 12 2449 LDX ZoLINKS,X GET PTR TO LAST FREE BLOCK 
7230 14 2450 LXL YalLENo? GET ITS LENGTH 
1939 03 2451 MEM3 CMPX Yo SMQNUANS DU COMPARE TO CORE QUANTUM 
6020 90 2452 TNC MEMX IF SMALLER» EXIT 
3670 93 2453 ANX Yor SMOUANs DU OTHERWISE ROUND DOWN TO MULTIPLE OF MOQUAN 
7430 11 2454 STX YoTSTEMP4aT SAVE AMOUNT FOR RELEASE 
7200 14 2455 LXL OslLENe? GET BACK ITS LENGTH 
12¢0 11 2456 SBLX Os TSTEMP4aT MINUS AMOUNT TO RELEASE 
A44CN 14 2457 SXL OsLENe? RESTORE NEW LENGTH 
6010 09 2458 TNZ #43 IS THE BLOCK NULL 
22rn 414 2459 LDX Os LINK8,7 YES» RESET LAST 
7490 42 2460 STX OsLINK3,Xx TO POINT TO NEw LASY BLOCK 
322n 414 2461 LCX Xs TSTEMP4eT GET BACK AMOUNT TO 3F RELEASED 
942 00 2462 ASX Xs SMTOP SUSTRACT FROM TOP OF MEMNRY PTR 
9420 00 2463 ASX Xe SAVAIL SUBTRACT FROM AVAILABLE 
79709 00 2464 TSX LaMREGQ RELEASE MEMORY TO SYSYTEM 
091276 2465 MEMX BSS 0 DONE 
991276 2466 DEQ CORE RELEASE CORE QUEUEs AWAKEN NEXT TASK 
7170 0900 XED OSCORE+OSXDEQ 
70C0 00 2467 TSX Os TSRELT AND RELEASE TC3 
991300 2466 EXIT EVAPORATE 
7190 00 TRA SEXIT 


7t 


MBR 


END 


JL AGe{7=7)4 


re 


001301 cconoi7 
OF RINARY CARED 
001302 963323 
091303 900777 
001304 777000 
O9N1305 903323 
091306 900605 
091307 goo0oce 
091310 003323 
091311 ocoo000 
001312 900077 
001313 001321 
001314 ncono3 
001515 901306 
001316 900004 
001317 901306 
001320 777777 
001321 o6nn17 
001322 525213 
001323 000017 
991324 ga00c0 


13-764 


M94 304 


AA7O 41 
LPCPO029 
2270 n0 
C200 03 
3600 03 
740N 00 
01306 
70CQ a0 
poten oo 
n900 00 
001511 
7200 11 
3600 03 
6000 00 
1nc0 03 
6009 90 
10c0 a8 
6000 no 
7190 oO 
NO1321 
7270 ii 
091322 
525213 
2200 48 
4400 11 
7100 17 


LINE PRINTER CARY PUNCH MODULE 


2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 


2495 
2496 
2497 
2498 
2499 


2500 


2501 
25n2 
2503 


2504 


CORE MA 


xteeweeeeete ete © et #e Oe Se © He eR SE HE HH 


REQ 


MREQL 


MREQ2 


BUGBUG 


NAGEMENT == MEMORY REQUESTS 
USE CONF 
HEAD R 


MEMOREY REQUESTS 


THIS SUBROUTINE RESETS THE TOP OF MEMORY TO THE ANDRESS 
SPECIFIED BY C(MTOP). 


CALL By 
TSX LeMREG 
CALL ‘WITH 
C(xXT) = TRLOCK@ADDRESS 
CixyJ) = JBLOCK=ADDRESS 
C(MTOP) @ NEW SETTING 
CALLS 
SCHSEG 


EXITS TO Ool 
RETURNS WITH 


C(xXT) = TELOCK=-ADDRESS 
C(xXJ) = JBLOCK=ADDRESS 
C(XL) 2 RESTART ADDRESS 
CiMTOP) # NEw SETTING 
USES NO LOCAL TEMPORARIES, ONLY TSTEMO 
Sxl LoTSTEMQeT SAVE RETURN ADDRESS 
LDX Os SMTOP GET PASSED SETTING 
ADLX Os SMOQUAN@19DU ROUND up TO 
ANX Os8MQUANSDU NEXT CORE MULTIPLE 
STX Os BMTOP AND SAVE IT 
CHSEG SBUFSES,$MTOP MEMORY REQUEST 
TSX Oe 3SCHSEG 
ARG S$BUFSES 
ARG SMTOP 
CHECK MREQ2e32SRZeMREQI1,B$10NeMREDI 
LXL Os TBSRWLoT 
ANX Os8ESTMKs DU 
TZE MREQ2 
CMPX 055$82Z5DU 
TZE MREQ1 
CMPX 0e8$10,DU 
TZE MREQ1 
TRA SERROR 
BSs 0 SUCCESSFUL REQUEST 
LXL Le TSTEM9eT PETRIEVE RETURN ADDRESS 
BUGL (TS3TEM9ST) BUG IT 
SET BUGBUG41 
LDX OsRUGBUGs DU 
Sxl Os TETEM9eT 
TRA Oel RETIRN TH CALLER 


72 
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R 


901325 


LINE PRINTERY CARU PUNCH MOCULE PAGE 


2506 
2507 
2568 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2514 
2519 
2520 
252i 
2522 
2523 
2524 
2525 


TRAP MANAGEMENT == DESCRIPTION 


Qn ev 8} # & *# B&B 


ETT 


*s ££ & 


RELY 


USE Conner 
HEAD T 


THESE “MACROS GET AND RELEASE TRAP SLOCKS. 
CLOGBFRS Clr. CIX)s CIT), 


BETT 
MACRO <NO@ARGUMENTS> 
TSX Os TSGETT CALL SUBROUTINE 
ENDM GETT 

RELT MACRO 


MACRO <NO@ARGUMENTS> 
TSX Os TSRELT CALL SUBROUTINE 
ENDM RELT 


MBR AL O9"17="74 17.764 LIvE PRINTERS CARY) PUNCY MATILE CAGE 74 


T TRAP MANAGEMENT #2 GFETT 
191325 2527 USE CODE 
2528 HEAD T 
2529 * 
2530 * 
2531 * GETTY 
2532 * 
2533 * THIS SUBROUTINE GETS A TRAP BLOCKe C(XT) POINTS TO THE 
2534 * CURRENT TBLOCK WHILE C(T&SLINKsT) POINTS TO THE OLD ONE 
2535 * ENTERED WITH 
2536 « C(XT) = TCR 
2537 * Cix¥Js) = JCB 
2538 * ENTERED By 
2539 * TSX Os2SGETT 
2540 * CALLS 
2541 * R$GETC 
2542 * RETURNS 059 
2543 * RETYRNS WITH 
2544 * CixXT) 2 NEW TCB 
2545 * Cixy) = JCB 
2546 * 
2547 * 
N01325 2548 GETTY Bss te) 
001325 2549 GETC (LENS DL) GET A RLOCK ABOUT THE SIZE OF A TALOCK 
091325 goonse 2350 07 LDA LENsDL 
001326 co1dli 7079 on TSX LeRSGETC 
END OF BINARY CARD LPCPO030 
001327 ¢o0005 7410 n1 2550 STX TeLINKs AU POINT To PREVIOUS THLOCK 
001330 onn000 6210 n1 2551 EAX To Oe AU MAKE C(xT) POINT TO NEW BLOCK 
091331 777777 6009 090 2552 TZE SERROR wae JBG 
091332 777777 604n oO 2553 TMI SERROR wee JBC 
NO1333 00006 4460 134 2554 Sx JoTSICIsT SET JCR POINTER 


991334 900900 7100 10 2555 TRA 029 RETURN TQ CALLER 


MBR D1 09—"47=71 


001335 
001336 
001337 
001340 


ON1344 


001342 
001343 


T 


o0000n 
777777 
f00000 
000080 


001110 


525214 
000000 


19-764 


991335 


0101335 
6210 11 
6000 00 
6350 11 
2750 07 

001341 
7079 00 

01342 

525214 
2210 03 
7100 10 


LINE PRINTERS CARD PUNCH MODULE CAGE 


2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 


2583 


2584 


TRAP MANAGEMENT |= RELT 


&@e e@ #@e eee He Hee eRe Ee He He 


RELT 


BUGBUG 


USE 
HEAD 


CODE 
T 


RELT 


THIS SUBROUTINE RELEASES THE CliprENT TRAP BLOCK, 


ENTERED 


ENTERED 
CALLS 


RETURNS 
RETURAS 


Bss 
EAX 
TZE 
EAA 
ORA 
RELC 
TSX 
BUGXR 
SET 
LDXx 
TRA 


wITH 

C(XT) 2» TCR 
C(xy) 2 JCB 
BY 

TSX OeRSRELT 


RSRELC 

TO 020 

WITH 

CixJ) = JCB 

0 

To0eT CHECK FOR LEGAL RELEASE 
SERROR NG 

OeT TRAP ADDRESS TON AU 
LENSDL TRAP LEN TO AL 

A RELEASE IT 
LeRSRELC 

T SPPML 

BUGBUG+1 


TeSUGKIIGs. DU 
020 RETURN TQ CALLER 


75 
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1 


NI1544 


LINE PRINTER?Y CARY PUNCH MODULE 


2556 
2587 
2588 
2569 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2596 
2599 
2600 
2601 
2602 
2608 
2604 
2605 


PAGE 


JO8 CONTROL BI NCK MANAGMENT #= DESCRIPTION 


oOonr ev +e BB eH 


ETJ 


se 8 & 


RELJ 


USE 
HEAD 


CODE 
J 


THESE MACROS GET AND RELEASE JOBS (JOB CONTROL ALNCKS) 


CLOBBERS CCA), 


MACRO 
TSX 
ENDM 


RETUPNS IMMEDIATELY TO CALLER. 


GETJ MACRO 
<NO*ARGUMENT> 
Lea JSGETJ CALL SURBOUTINE 
GETJ RETURN C(XJ) s& JCBeANDRESS 


RELJ MACRO 


C(ixy) # JCR TO RE RELEASED 
Le JSRELJ CALL SUBROUTINE 
RELJ CLOBBERS C(xJ) 


7# 


R QL 09=17=71 10764 LINE FRINTERY CARY PIINCH MODULE PAGE 


J JOB CONTROL 3t.OCK MANAGEMENT #= GETJ 
101344 2607 USE CODE 
2668 HEALD) J 
2609 » 
2610 * 
2611 * GETJ 
2612 * 
2613 * THIS SUBROUTINE GETS THE FIRST AVAILABLE JCB, 
2614 * IT RETURNS A POINTER TO IT IN COX). 
2615 * 
2616 * ENTERED wITH 
2617 * C(XT) # TCB 
2618 * ENTERED RY 
2619 * TSX Le JSGETJ 
2620 * CALLS 
2621 * NONE 
2622 * RETURNS OosL 
2623 * RETURNS WITH 
2624 # CixtT) = 1TCB 
2625 * CixJ) = NEw JCe 
2626 * 
2627 * 
01344 2628 GETJ BSss 9 ENTRY POINT 
091344 763644 626n oo 2629 EAX JeJCBO POINT To FIRST JCB 
991345 gonnor 238n 47 2630 LDA OsDL SET A FOR MATCH 
091346 oné630n S2c2 24 2631 RPT JCSNSLENSTZE SEARCH 
091347 goooon 115n 16 2632 CMPA OeJ TEST 
091350 777777 6n10 oo 2633 TNZ SERROR OOPS 
091351 777755 626n 16 2634 EAX Je*LENeateJ POINT TO FREE ONE 
001352 777777 7410 16 2635 STX TeoALL Ca J MARK IT BUSY 
END OF BINARY CARD LPCPO031 
09141553 94636c 5202 01 2636 RPT LENe@wto ye TZE CLEAN OUT ALOCK 
001354 oocoon 4500 16 2637 SsTtz OoJ CLEAR IT 
001355 777755 6260 16 2638 EAX JaomLENateJ RESET J 


091556 9490008 7100 17 2639 TRA Oel RETURN TO CALLER 


MBR OL 39-17-71 


091357 
001366 
001361 


001362 
091363 


J 


777777 
777777 
777777 


525215 
000000 


AV1357 


001357 
2340 16 
600 co 
4500 16 

901362 

525215 
22En 03 
7100 17 


LINE PRINTERY CARD PUNCH MODULE PAGE 


2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
26051 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 


2666 


JOB CONTROL SLOCK MANAGEMENT |= RELJ 


*e#e + © #4 © 8 & S&F 2H HB 


RELJ 


ByGByG 


USE CONE 
HEAD J 


REL J 
THIS suUBROUTINE RELEASES THE JCB POINTED TO BY C(xJ). 


ENTERED WITH 
C(Xxt) = TCB 
Cixys) = JCB 
ENTERFD By 
TSX Le JSRELJ 
CALLS 
NONE 
RETURNS OsL 
RETURNS WITH 
C(XT) 2 TCB 


Bss 0 ENTRY POINT 
SZN ALLCaJ 1s IT RuSsY 
TZE SERROR 1S SHOULD BE! 
STZ ALLC.J MAKR IT FREE 
BUGXR J SPPML 

SET ByuGBuUG+! 

LDx JsBuUGBUGs DU 


TRA Ost RETURN TO CALLER 


7A 


MBR 1 09941771 10 e764 


J 


n91364 


LINE PRINTER, CARI) PUNCH ManDuLF 


2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2676 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 


PERTPHERAL MANAGEMENT 


QOQ#e #e2e# ee £2 Se HB 


ETP 


e@26@¢ 2 8 & 


RELP 


USE 
HEAD 


PAGE 


ewe DESCRIPTION 


CODE 
R 


NESCRIPTION 


THESE MACROS GET A RELEASE A SINGLE PERIPHERAL 


GET A PERIPHERAL 


MACRO 
INE 
LDA 
TSX 
ENDM 


RELEASE 


MACRO 
INE 
LDA 
TSX 
ENDM 


GEYP 
TYPE/ >ae 
oRLoge hn 
#1 GET TYPE IN AU 
LeRSGETP CALL SUBROUTINE 
GETP 


RELP MACRO 
A PERIPHERAL 


DEVICE NUMBER/ *Ae 


HL m>srhe 
AY GET DEVICE NUMBER IN AL 
LeoRSRELP CALL SUBROUTINE 


RELP 


79 


MBR 


END 


TL N9e1{7—=71 


r 


003364 000004 
001365 00027 
001366 906027 
091367 gan003 
091370 «6003074 
091371 777777 
991372 000926 


001373 ono0o! 
001374 777777 
001375 cennoc 
091376 740000 
OF BINAPY CART 
091377 caocooe2 
091400 901405 


17764 


N91364 


001364 
4470 11 
7550 11 
2240 11 
3640 93 
2240 14 
6000 00 
7440 11 


3360 14 
6000 00 
22fn 14 
235n 93 
LPCPO9032 
3169 10 
60° no 


LINE PRINTERS CARD PUNCH MODULE PAGE 


2698 
2699 
2760 
2701 
27C2 
2703 
2704 
2705 
2766 
2707 
2708 
2709 
2710 
2711 
2712 
2718 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2728 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 


2745 
2746 


PERTPHERAL MANAGEMENT #= GETP 


e@eeeee © &@ He Be eee eH HehU!hCUCU HhUrhhUh hU hUlUcrhUhMhUrhhUrhUhhUhhUrRhlhUmh 


GETP 


2 = £ 


Gretel 


USE Cone 
HEAD FR 


GETP 


GETP GETS 4 sINGLE PERIPHERAL IINIT OF A SPECIFIEN ryPE, 
IF THERE ARE NORE UNITS OF THE SAME TYPE STILL AVAILABLE 
AFTER THE GET, THEN THE NEXT JNB WAITING FOR THE SAME 
PERIPHERAL TYPE IS AWAKENED. 


CALL 4Y 
TSX Lo 2®SGETP 
CALL wITH 
Ci J) = JOB NUMBER 
C(T) = TRLOCK ADNRESS 
C(L) = RETURN ADDRESS 
CcAy) = PERIPHERAL TYPE 
CALLS 
NONE 
RETURNS KITH 
C(J) = JOB NUMBER 
C(T) = TBLOCK ADDRESS 
C(AL) 2 PERIPHERAL TYPE 
Cc(AL) = DEVICE NUMBER 
C(9Uy) 2 DEVICE FRN 
C(9L) = DEVICE NUMBER 
EX!t to Osl 
USES 
NO LOCAL TEMPORARIES 
TSTEMP1,TSTEMP2 


Bss 0 ENTRY POINT 

SXL Leo TSTRAST SAVE RETURN ADDRESS 

STA TSTEMPI,T SAVE TYPE 

LDX Zo TSTEMP1IeT GET PERIPHERAL TYPE 

ANX Ze3eDuU MASK TO TYPE ONLY 

LDx Ze TARLES? POINT TO PERIPHERAL TYPE TABLE 
TZE SERROR NQ SUCH PERIPHERAL 

STX Ze TSTEMP2eT SAVE TYPE POINTER 


LOOP 10 LOOK FOR FREE DEVICE 


LCy MAX 97 GET NUMBER TO CHECK COMPLEMENTED 
TZE SERROR aan GlL Ew Ty 

LDX Oo? TR? GET POINTER TO UNITS 

LDA BUSYeCLOSE+RSVEsDU "GET BITS TN CHECK 

CANA FLAGsO IS THIS UNIT FREE? 


TZE GETP2 YES» TAKE It 


an 


MB 


END 


OL 9—17=—74 
R 

001401 ocono3 
001402 900004 
091403 001377 
091404 777777 
001405 906927 
091406 on0002 
001407 400000 
091410 oon002 
001411 00927 
091412 onooo! 
001413 525216 
001414 525216 
001415 525216 
091416 525246 
001417 525216 
001420 oo0004 
001421 525217 
001422 on0004 
001423 900027 
001424 525220 
OF BINARY CARD 
001425 00027 
001426 90027 
001427 525221 
001430 000026 
091431 gno02é 
091432 onngo0o0e 


10.764 


0200 us 
C760 97 
6040 00 
7100 O90 


091405 
4400 11 
4460 10 
2220 93 
2420 10 
2350 11 
2360 10 
001413 
525216 
2200 03 
2220 03 
2230 03 
2240 93 
2250 a3 
7270 11 
091421 
525217 
2200 03 
4400 11 
2350 11 
001424 
525220 
2200 03 
LpeCp0033 
7400 11 
4400 i141 
101427 
525221 
2200 03 
7400 11 
4460 11 
7100 17 


2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 


27638 
2764 


2765 
2766 


2767 


2768 


ErP2 


BUGBUG 


BUGBUG 


BUGBUG 


BUGBUG 


ADLX 
ADQ 
TMI 
TRA 


FOUND THE REQUESTED UNIT 


ess 
SXL 
SXL 
LDX 
ORSX 
LDA 
LDQ 
BUGXR 
SET 
LDX 
LDX 
LOX 
LDX 
LDX 
LXL 
BUGL 
SET 
LDX 
Sxt 
LDA 
BUG 
SET 
LOX 


STX 
SXL 
BUG 
SET 
LDX 
STX 
St 
TRA 


LINE PRINTERS CARU PINCH MODULE 
PERTPHERAL MANAGEMENT em GETP 


Os» RENEVLNs» DU 


1sDL 
GETP1 
SERROR 


0 
OsTSTEMPIsT 
JoALLCod 
XeBUSYsDU 
XeFLAGed 
TSTEMPY,T 
FRN»sd 
(OaXeYo72Q) 
BUGBUG+1 

0s 3UGBUG»sDU 
XsByGByGeDu 
Ye8uGB8UG. DU 
Z7#28UGBUGs*DU 
OsB8UGBUG.DU 
Le TSTRAST 
(TETRAsT) 
BUGBUG+S1 
OsBUGBUGs DU 
OsTSTRAsT 
TSTEMP1,T 
(TSTEMP1.T) 
BUGBUG41 
OsBUGBUGsDU 


Os TSTEMPiosT 
Os TSTEMPI oT 
(TSTEMP2.T) 
BUGBUG41 
OsBUGBUGs DU 
Os tTS$TEmMp2sT 
Oso TSTEMP2eT 
Osl 


PAGE 
STEP TN NEXT DEVICE 
TEST FOR DONE 
NOse SO CONTINUE SEARCH 
wawSOMEBODY FORGOT To RESERVE *Emy 


SAVE POINTER TO DEVICE 
MARK IT ALLOCATED TO US 
SET THE BUSY BIT ON 


GET RETURN WORDS FOR USER 


RETRIEVE RETURN 
BuG IT 


GET RETURN WORD FOR CALLER 
BuG IT 


RETURN TO CALLER 


81 
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001433 


001434 
001435 
001436 
001437 
001440 
001441 
001442 
091443 


091444 
091445 


001446 
001447 
001450 


F 


oco0004 


000027 
000027 
0c0002 
777777 
777777 
000002 
onn00é 
777777 


525222 
cog002 


000002 
100000 
001517 


15.764 


C01433 


091433 
4470 11 


7550 11 
7220 11 
2340 12 
600 00 
2360 03 
2350 12 
2110 11 
6010 00 
001444 
525222 
2200 O83 
4400 12 


2350 12 
3150 03 
6060 00 


LINE PRINTERS CARD PUNCH MODULE PAGE 


2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2aCé6 
2807 
2808 
2809 
2810 


2811 
2812 


2813 
2814 


2815 
2616 


PERTPHERAL MANAGEMENT om RELP 


mweeenpmeeteeteee ee ee £SHe eee ee | +t eH He 


ELp 


es 2 £ 


BUGBUG 


USE CODE 
HEA) R 


RELP 
RELP RELEASES A PERIPHERAL UNIT OF A SPECIFIED TYPE. 


CALL wITH 
TSX Le RSRELP 
CALL wITH 
C(J) = JOB NUMBER 
C(T) = TBLOCK ADDRESS 
C(L) = RETURN ADNRESS 
C(A) = PERIPRERAL TYPE/ DEVICE ADDRESS 
CALLS 
CSMESSX (CONDITIONALLY) 
RETURNS WITH 
C(J) = JOB NUMBER 
C(T) = TBLOCK ADDRESS 
EXITS TO Oot 
USES 
NO LOCALS 
TSTEMP1t, TSTEMP2, TSTEMP3 


EXITS WITH PERIPHERAL DEALLOCATED. 


BSS A) ENTRY POINT 
SXL Le TSTRAST SAVE RETURN ADDRESS 


PERFORM CONSISTANCY CHECKS 


STA TSTEMP1,T SAVE INFORMATION 

LXL Xe TSTEMPIsT GET DEVICE ANDRESS 

SZN FLAGsX SHOULD BE BUSY 

TZE SERROR IT ISN°T] 

LDS e1,nu SET FOF LOWER HALF COMPARE 
LDA ALLCsx GEY ALLOCATED Jo8 NuMBER 
CMK TSJCSLT CHECK FOR CORRECT JC8 
TNZ SERROR SHOULD BE THE SAME 

BUGL (ALLCoX) OKs DESTROY IT 

SET BUGBUG+1 

LDX OsBUGRUGs DU 

Sxl OsALLCox 


CHECK IF CLOSE REQUESTED 


LDA FLAGsX GET PERIPHERAL FLAG 
CANA RSVE.DU 1§ IT RESERVED? 
TZE RELPS NO» SO CONTINUE 


42 


MBR 


END 


END 


AL O9—17=7)4 


R 

091451 30000f 
OF BINARY CARD 
091452 nonn02 
001453 cnoool 
091454 990925 
191455 525223 
091456 on00001 
091457 aoc615 
191460 00025 
991461 nronoce 
091462 o¢c077 
091463 4n1467 
001464 ooanos 
001465 991457 
091466 777777 
091467 nagono6 
001470) «69900931 
091471 onn926 
991472 900027 
001473 onanco 
091474 goooG7 
001475 = yanan22 
991476 nnénor 
991477) = =9¢n925 
OF BINARY CARD 
00150c 961325 
091501 ononos 
001502 econcod 
001503 foc026 
091504 600027 
091505 econo2s 
091506 400026 
091507 annonces 
o9151¢ 991613 
O91511 onneg4 


19.764 


6750 43 
LPCPON34 
7550 12 
2230 12 
7430 11 
991455 
525223 
ec2en 03 
746N 12 


901457 
7000 00 
fnoen WW 

031461 
7209 14 
36°00 03 
6000 a0 
lotn a3 
6000 oo 
7100 00 

N91467 


2750 93 
755 11 
901500 
LPCPIN AS 
7060 99 
62E"P 14 
2e2in 12 
23€N 41 
7560 12 
236N 414 
75E0 12 
APPIN 12 
6200 099 
740M 44 


LINE FRINTERS CARD PINCH MOPULE 


PAGE 


PERTPHERAL MANAGEMENT a= RFLP 


2817 * 
2818 * 
2619 * 
2820 


2821 
2822 
2828 
2824 


BUGRUG 


2825 * 
2826 * 
2827 »* 
2826 RELp1L 


2829 


2830 RELP2 
2631 * 
2832 * 
2833 * 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 


CLUSE REQUESTED == CLOSE AND LOG 


ERA CLOSE+esVEs Ut MARK IT CLOSED AND NAT RESERVED 
STA FLAGsX RESTORE FLAG wORD 

LDX YaoFRNoX GET FRN OF DEVICE 

STX Yo TSTEMP3eT SAVE FOR CLOSE 

BUGYU (FRNsX) RUG FRN 

SET BUGRUG+1 

LDX OsBUGBUGs DU 

STXx OsFRN»oX 


CLOSE PERIPHERAL 


CLOSE (TESTEMD3eT) CLOSE THE NEVICE 
TSX Oe3CLOSE 

ARG TSTFEMP3,T 

CHECK RELP2,3$BZeRELPI 
LXL Os TSSRWNi oT 

ANX OsRSSTMKsDU 

TZE RELP? 

CMP xX 0e8$82,DU 

T7E RELP] 

TRA SERROR 

BSS 0 


INFORM MINITOR 


LDX Ze TSNCSST GET POINTER 10 NCB 

LDA CESTATE,2Z GET STATE 

STA TSTEMPO,T SAVE AS STATE FOR CAUSF 
LXL Xe TSTEMPLoT GET BACK POINTER 19 DEVICE 
LDA NAME » X GET NAME 

ANA 7oeDL ISOLATE UNIT NUMBER 

ALS 18 MOVE TO MESSAGE FIELD 
ORA BSREL SMU MARK AS RELEASED 

STA TSTEMPR,T SAVE AS MESSAGE 

BRANCH NOPASS,CEMESSXs(TSTEMP2,T) os (TSTEMP3eT) 
TSX CoTSGETT 

EAX Xa Det 

LDx TsTSLINKeX 

LDA TSTEMP2,T 

STaQ TSTEMP1 5X 

LDO TSTEMP3,7 

sta TSTEMP2,X 

EaX Tate 

EAX Os lBMESSX 

STX O,TETRAST 


MBR 


END 


DL 09989 7=71 
PR 

991512 nconc4 
0n1513 nn3262 
901514 go0005 
091515 525224 
001516 525224 
001517 000027 
001520 400000 
001521 on0002 
091522 525225 
001523 900027 
001524 100027 
091525 525226 
OF BINARY CARD 
091526 900026 
091527 900026 
001530 525227 
001531 000025 
001532 900025 
001533 525230 
001534 525230 
001535 525230 
001536 525230 
001537 525231 
091540 6525231 
001541 525232 
001542 525232 
001543 900004 
001544 525233 
001545 900004 


1764 


6200 if 
7170 99 
2210 12 
001515 
525224 
22ca 03 
2220 03 


001517 
7220 11 
2350 93 
6550 12 

001522 

001522 

525225 
2200 03 
7400 11 
4400 11 

9901525 

525226 
2200 03 
LPCP0036 
7400 11 
4400 11 

001530 

525227 
2200 03 
7400 11 
4400 11 

0015338 

525230 
2220 a3 
2230 03 
2240 03 
2250 03 

001537 

525231 
235n 03 
2750 07 

001541 

525232 
2360 O3 
2760 a7 
7270 11 

001544 

525233 
2200 03 
4400 11 


LINE PRINTERS CARD PUNCH MODULE 


2844 
2845 
2846 
2847 
2848 
2849 
2850 
28651 
2852 


2853 


2854 


2855 


2856 


2857 


2858 
2859 


PERIPHERAL 


BUGRUG 


RELPS 


RELP6 


BUGRBUG 


BUGRUG 


BUGBUG 


BUGRUG 


BuGBUG 


BUGRUG 


BUGBUG 


EAX 
KED 
LDX 
BUGXR 
SET 
LDX 
LDX 


MANAGEMENT om RELP 


Oe DSOFFSTST 


GSXANL+QSTASK 


ToTELINK eX 
(OeX) 
RBUGRUG +1 
Os3UGKUGsDU 
XeRYGBUGseDuU 


PERIPHERAL RELEASED 


BSs 
LXL 
LDA 
ERSA 
88S 
BUG 
SET 
LDX 
STX 
SxL 
BUG 
SET 
LDX 


STXx 
SXbL 
8uUG 
SET 
DX 
STX 
Sx 
BUGXR 
SET 
LDXx 
LOX 
LDX 
LDX 
BUGA 
SET 
LDA 
ORA. 
BuUGQ 
SET 
LOO 
ORG 
LX 
BUGL 
SET 
LDX 
Sxt 


0 

Xe TETEMPIsT 
bUSY. DY 
FLAGsx 

0 


(TETEMPYZ.T) 
BUGRUGS1 

OsRBUGBUGeDU 
OsTSTEMPI oT 
OsTSTEMPIstT 
(TSTEMP2eT) 
BUGRUG 44 

Os. B8UGBUGsDU 


OsTSTEMP2aT 
Os TSTEMP2eT 
(TETEMP3eT) 
BUGBUG +1 

Os BUGBUGsDU 
Os TSTEMPSeT 
Os TSTEMPSsT 
(Xe VoZ00) 

BUGBUG+1 

XeBUGBUGs DU 
Ye 3UGBuUGsDuU 
2e3UGBUGs DU 
OsBUGBUGS.DU 


BuGByG+1 
RBUGBUG. DU 
BUGBUGs. DL 


BUGBUG+4 
BUGRUG,DU 
BUSGBUGS.DL 
Le TSTRASAT 
(TRTRAST) 
BUGRUG+1 
Os8UGRUGsDU 
OsTSTRAsT 


GET BACK POINTER TO DEVICE 
GET THE BUSY BIT 

UNSET IT 

BUG WHAT MUST BE BUGGED 


RETRIEVE RETURN 
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MBR QL O9=47=874 190764 LINE PRINTERS CARD PUNCH MODULE PAGE 85 
R PERIPHERAL MANAGEMENT <== RELP 


091546 oonnoe 7100 17 2860 TRA Gel RETURN TQ CALLER 


MBR Ni O9=47=7} 17.754 
R 

091547 
093074 
03074 

003074 ¢co00000 cotn oo 

093075 003410 o000 00 

0939076 003413 ofn od 

098077 cocoons soto oo 
091547 
noo000l 
nogo0002 


LINE PRINTERS CA20 pIINCH 


2862 
2863 
2864 
2665 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2683 
2884 
2885 
2886 
2887 
2888 
2889 


Ma tULE eee 


RESQURGE ALLOCATION w= PERIPHERAL TYPE TABLE 


@ee #ee ee eee ee £€ He 


TYPCP 
TYPLP 


USE CODE 
HEAD R 


PERIPHERAL TYPE TAALE 


THE PFRIPHERAL TYPE TABLE HAS AN ENTRY FOR EACH 

TYPE OF RESOURCE. [THUS THE ENTRY POINTER POINTS TN THE 
RESOURCE DEVICE HEADER. THE HEADER CONTIANS SUCH INFORMATION 
AS THE TOTAL NUMBER OF DEVICES OF THIS TYPE, THE NUMBER fUR= 
RENTLY AVAILABLE» A POINTER TO THE FIRST DEVICEs ETC. THE 
PERIPHERAL DEVICE ITSELF CONTAINS SUFFICIENT INFORMATION FAR 
ANY OPERATION ON THE PERTPHERAL, 


TASLE OF pERIPHERAL TYPES 


Use CONST 

BSS 0 

ARG 0 0 = INVALID 

ARG CPTAS 1 2 CARD PUNCH 

ARG LPTAS 2 = LINE PRINTER 
ARG 0 3 a INVALID 

USE PREVIOUS 

EQu TABCP=TABLE TYPE® CARD PUNCH 
EQU TABLP=TABLE TYPES LINE PRINTER 


AF 


MBR OL O9—17871 19.764 
R 
101547 
990000 
onn001 
o00002 


LINE PRINTER/ CARD PUNCH MONULE 


2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2961 
2902 
2903 
2904 
2905 
2906 
2907 
2966 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 


PAGE 


RESQURCE ALLOCATION == PERYPHERAL HEADER TABLE 


#@e# + *# &@S & Be EAH He SB 


v 
~~ 
a 


USE CODE 
HEA R 


PERIPHERAL HEADFR TAALE 


A DEVICE HEADE2 Is THE ITEM THAT AN ENTRY IN THE TAALE OF 
PERIPHERAL TYPES POINTS TO. THE HEADER CONTAINS THE POINTER 
TO THE DEVICES OF A CERTAIN TYPE (TLE, LINE PRINTERS), 

IT ALSO CONTAINS SUCH INFORMATION AS THE CONFIGURATION OF THE 
SYSTEM (MAXIMUM NUMBER CF DEVICES OF a CERTAIN TYPE). 

LASTLY» I7y CONTAINS A POINTER TO THE CORRESPONDING guEUE. 


FORMAT OF DEVICE HEADER 


EQU 0 POINTER TO DEVICE TASLE 
EQU PTR} MAX NUMBER IN EXISTANCE 
EQYU MAXe1 SPARE 


DEVICE HEADER SENERATING MACRO 


MACRO NAME MAX 

ARG Ai 

VFU S6/#2 

DEC 0 SPARE 
ENDOM PEVHNR 


87 


R Gt Wel7—71 19.744 


Fe 


N93%410 
093410 


093410 


END OF BINARY CARD LPCP9037 


005410 
0059411 
003412 


03413 
003414 
003415 


003416 corn oo 
ooagetacncnt 
nonnooacarng 


093413 
103421 c000 00 
o0000gnnnnNne2 
eood0coganno 

001547 


LINE FRINTERY CARY PUNCH MOUILE 


2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 


2931 
2932 


2933 
2934 


2935 


RESNYIRCE ALLOCATION |= PFRTPRFERAL HEADFR TABLE 


+ @#@ &© 4 8 


CPTas 


LPTAB8 


HERE Ts 


use 
BSS 


DEVHDeR 


ARG 
VFD 
DEC 


DEVHDe 
ARG 
VFO 
DEC 
USE 


THE LIisryr OF DEVICE HEALERS. 


STORE 
0 


CARD PLNCHES 
CP»CPMAy 

ce 

S6/CPMAX 

0 

LINE PRINTERS 
LPolLPMAy 

LP 

36/LPMAX 

0 


PREVIOus 


START CF DEVICE HEADER LIST 


(CP) 


(LP) 


88 


MBR QL O9—17=71 10.764 
R 


901547 


990000 
090001 
000002 
00002 
90003 


490000 
200000 
190000 


LINE PRINTER/ CARD PUNCH MOnULE PAGE 


2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 


RESOURCE ALLOCATION w= PFRIPKEPAL NEVICE TARLE 


2@ewes #8 &€¢ &¢ & & BS 


DEVICE 


BUGBUG 


RAMAX 


USE CODE 
HEAD R 


PERIPHERAL DEyICE TABLE 
THERE IS A ONE@TC*ONE CORRESPONDENCE BETWEEN A *DEVICE® ann 
PHYSICAL DEVICE IN TRE MACHINE ROOM, THE DEVICE CONTAINS THE 


NAME OF THE DEVICEs THE FRN WHEN OPEN, FLAG RITS TELLING ITS 
CURRENT STATUS, AND IF BUSYs WHO IS RESPONSIBLE. 


FORMAy OF PERIPHERAL DEVICE 


Equ 0 FOUR CHAR ASCII ABBREVIATION 

EQU NAME +1 (UPPER) FRN OF PERIPHERAL WHEN OPEN 
EQU FRN4G4 (UPPER) FLAG BITS FOR THE PERIPHERAL 
EQU FLAG (LOWER) JOR NUMBER USING IT WHEN BUSY 
EQU ALLO+lLeNAME DEVICE ENTRY LENGTH 


BITS FOR FLAG 


EQu FSSIGN ON IF NOT ALLOCATASLE 
EQU RUSY/2 ON IF CLOSED 
EQU CLOSE /2 ON IF OPERATOR REQUESTED A CLOSE 


DEVICE GENERATING MACRO 


MACRO NAME 


UASCI 1o41 NAME 
SET BUGRUGS, 
ZERQ BUGBUG,TT FRN/ UNIT NUMBER 


ZERO BUSY+CLOSEs0 
ENDM DEVICE 


MACRO NAMEs(LIst OF DEVICE NuMBERS) 


BSS 0 

SET 0 INITIALIZE COUNTER 
IDRP #2 

set #2 

DEVICE #142 

SET TT+1 

IDRP 

SET SET +} 


ENDM DEVT 


a9 


MBR Q1 


003416 


095417 
09342¢ 


005421 


0035422 
005423 


003424 


003425 
003426 


N9917=71 


100764 


R 


093416 
003416 


093416 
003416 
030000 
n0n09000 
093416 
193127069060 
925234 
525234 900000 
666900 oocndo 
Noo001 
QdoooL 


N03421 
003421 
900000 
000000 
903421 
114120069060 
525235 
525235 o0000n 
600000 000000 
000001 
000001 
003424 
114120060¢61 
525236 
525236 oocool 
6coo0c cootso 
n00002 
000002 
001547 


LINE PRINTERyY CARY PUNCH MOTIHILE 


2987 
2988 
2989 
2990 
29g1 
2992 
2993 
2994 
2995 
2996 
2997 


2998 
2999 
30C0 
soci 


3002 


PAGE 


RESOURCE ALLOCATION e= PERIPFERAL PEVICE TABLE 


LP 
1 
SET 


BUGRUG 


TT 
SET 


BUGRUG 


TT 
LPMaX 


WERE [5 


use 
BSS 


DEVT 
BSS 
SET 
SET 
DEVICE 
UASCI 
SET 
ZERO 
ZERO 
SET 
SET 


DEVT 
BSS 
SET 
SET 
DEVICF 
UASCI 
SET 
ZERO 
ZERO 
SET 
SET 
DEVICE 
UASCI 
SET 
ZERO 
ZERO 
SET 
SET 
USE 


THE TAQLE OF DEVICES 


STORE 

0 START OF DEVICE TASLE 
CARN PuNncHEs (CP) 
CPs2(00) 

0 

0 

00 

CPon 

1,CPO00 

BUGSUGS1 
BUGRUGesTT 
BUSY#CLOSEs0 

TT! 

SET+1 


NAME 


LINE PRINTERS (LP) 
LP2(00s01) 

0 

0 

00 

LP90 

1sL POO 
BUGRUG+41 
BUGBUGs.TT 
BUSY+¢CLOSEs0 
TT+i 


NAME 


LoLPo4 NAME 
BUGBUG4s1 

BUGBUGs TT 

BUSY*CLOSE.0 

TTe1 

SET+1 

PREVIOUS 


90 


MRR DL 09817 m7 1 172764 


R 


003427 
000020 


003430 
003430 
003430 
093430 600000 sofn00 
END OF BINARY CARD LPCPO038 
001547 


LINE PRINTERS CARD 


3004 
3005 
3006 
3007 
3008 
3009 
3010 
Soid 
3012 
3013 
3014 
3015 
S016 
3017 
3018 
3019 
3020 
3021 
3022 


3023 


JO8 TASLE 
HEAD J 
* 
® 
* 
* 
* 
* BY THE JOB NUMBER, 
® 
2 
* MAXJB ENTRIES, 
«* 
USE STORE 
MAXJB EQU 16 
* 
* 
EIGHT 
JTAB BSS 6 
buP 1eaMAXJIA 
ZERO 029 


PUNCH MODULF 


JOB TABLE 


THE JOS TARLE Ig A TABLE OF ONF wORD ENTRIES» INDEXED 


INFORMATION IN THE JOB TABLE IS 


THAT wHICH MUST RE LOCATED OR MATCHED FOR CONSISTENCY 
CHECKS AND FOR DEBUGGING PURPOSES. THE TABLE CONTAINS 


USE PREVIOUS 


MAXIMUM NUMBER OF JOBS IN THE SYSTEM 


TO MAKE DEBUGGING EASIER 

Jos TABLE 

(UPPER) PTR TO JCB/ (LOWER) PTR TO DEVICE 
INITIALLY OFF 


91 


MBR 


END 


DL O9—817—=71 
J 

091547 960474 
001550 903261 
001551 03261 
001552 001619 
001553 0103260 
ON1554 777777 
001555 003261 
003556 901561 
OF BINARY CARD 
001557 003261 
001560 063261 
001561 oco004 
001562 777777 
091563 777777 
091564 900003 
001565 003260 
001566 000006 
001567 777777 
001570 777777 
001571 ocoo004 
001572 777777 
001573 777777 
001574 525237 
001575 on0004 
001576 525246 


13.764 


n01547 


001547 
001547 


7170 


001550 


6202 
1002 
6002 
2212 
6002 
1012 
6012 


LPCPOOS9 


6202 
7402 
1212 
6002 
6042 
2222 
7422 


7260 
6000 
6040 
2270 
6aco 
6040 


525237 


2200 
7400 


001576 
525240 


2200 


00 


00 


00 


00 
00 
Os 
00 
00 


i1 
00 


03 
11 


03 


LINE PRINTERS CARY PUNCH Matin Ee 


3025 
3026 
$027 
3628 
SG29 
3030 
3031 
$032 
3633 
SC34 
3035 
3036 
3637 
$636 
3039 
3040 
3041 
3042 


3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 


3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
S061 
3062 
3063 
3064 
3065 
3066 


3067 


EXIT 


met#e#-etene*eeweentst&¢=@# &£ He 


XIT 


EXIT 


BUGBUG 


BUGRUG 


USE 
HEAD 


CODE 


EXIT 
COMPLETE ONE TASK AND BEGIN ANOTHER FROM Qg$TASK QUEUE 


ENTCR oY 

TRA S$EXIT 
RETURN TO NEXT TASK 
RETURNS WITH 


PAGE 


C(J) = JOB NUMBER 
C(T) = TRAP BLOCK 
CiL) = TASK-STARYeAUDRESS 
3S$ 0 ENTRY POINT 
CKPT NESUGGING 
xEO XBSCKPT 
INHIS SAVE,ON LOCK OUT UNWANTED INTERRUPTS 
ess 0 TIME TO FOOL WITH THE OSTASK QUENE 
EAX OsOSFIRST+14+G$TASK ADDRESS OF FIRST ELEMENT 
CMPX OsISLAST+OS$TASK "DOES LAST POINT TO IT? 
TZE WAIT 
LOX TeQBF RST+QSTASK "OFFSET POINTER To BLOCK 
TZE SERROR #ewPROBLEM 
CMPX ToQSLAST+QETASK w1S THIS LAST? 
TNZ *43 NIQ 
EAX OsQSFISST+1+O$TASK YES, SET THIS QUEUE 
STX OsQSLAST+QS8TASK "TO EMPTY STATUS 
SBLX T,ISOFFSTSDU RELATE THE BEGINNING OF BLOCK 
TZE S$ERROR wae DBC 
TMI SERROR #a% (BG : 
LOX XeQSLINKeT GET OFFSET POINTER TO NEXT BLOCK 
STX XesQSFIVST+OSTASK #AND MAKE IT NOW FIRST 
INHIB RESTORE RESUME NORMAL TELECAST 
LXL JeT8yJC3IeT RESTORE jC8 POINTER 
T7E SERROR war DAG 
TMI SERROR wae BG 
LDX Leo TSTRAST AND TRANSFER ADPRESS 
TZE SERROR «2 D8G 
TMI SERROR wan JBC 
BUGU (TSTRAST) BUG RETURN 
SET BUGRUG +, 
LDX Os 8UGBUGsDU 
STX Os TSTRAST 
BUGXR (OeX2Yo7Z2Q) BuG THE REGISTERS 
SET BUGRBUG+41 
LDX 0e3UGBUGsDU 
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EXIT 
091577 52524¢ 2220 93 LDX Xs 3UG5UG. DU 
991600 §25240 2230 03 LDX Y¥23UG6UGs. DU 
001601 525240 2240 g3 LOX 7s 3GBUG. DU 
091602 525240 225n 943 LDX 92 3UGEUGs.DU 
091603 3068 BUSA 
525241 BUGRUG SET BUGRUG+e 
901603 525241 235n 03 LDA BUGBUGS,DU 
901604 525241 2750 97 ORA BUGRUGSDL 
001605 3069 8UGa 
525242 BUGRUG SET PUGBUG4S1 
END OF BINARY CARD LPCPOQO4O 
0901605 525242 23€n 93 LDQ BUGRUGS.DU 
091606 525242 2760 97 ORO BUGRUGSDL 
001607 oono00 71°n 17 3070 TRA OsLl AND AWAY WE GQOl 
3071 * 
3072 * 
3073 * WAIT FOR SOMETHING TO HAPPEN 
3074 »* 
3075 * 
3076 INHIB SAVESON 
091610 000017 22af2 n3 3677 WAIT LDX Oo S.PAUSEs DU PAUSE AND START AT 
001611 g0000¢ col2 vo 3078 MME ANY INTERRUPT 
3079 INHIA RESTORE 


001612 001550 7100 oo 3080 TRA EXIT1 SKIP CHECKPOINT 


MBR 


a1 


09=17=71 


19.754 


ho1613 


LINE PRINTERS CARD PUNCH MODULE PaGEe 


3082 
3083 
3684 
3085 
3086 
3087 
3088 
3CE9 
3090 
3091 
3092 
3093 
3094 
3695 
3096 
3097 
3098 
3099 
31606 
3161 
3102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 
3110 
SLi 
3ii2 
3113 
3114 
3115 
3116 
3147 
3116 
3119 
3120 
3121 
3122 
3123 
3124 


COMMUNICATIONS == FESCRIPTIOA 


@2ees ee ee He ££ He RBH EE HE HE HE HE ERE SF SHE HE He EE Ee eee Ee 


USE CONE 
HEAQ c 


COMMUNICATIONS NETWORK STRUCTURE 


THERE EXEIsts A PRIVATE COMMUNICATIONS NETWORK AMONG THE 
THE MONITOR AND ALL OF ITS SUBeMODULES (I.E. PERIPHERAL NRIVERS), 
Al atanxTUP TIME FOR THE MONITOR, IT CREATES THE NETWORK ay 
OPENING THREE SCRATCH EVENTS AND PASSING A FRN OF EACH TN FACH 
SUB=-MNDULES SPAWNED. FOR THE SURB@MONULESs» THESE EVENTS ARE 
REFERENCED SY CANONICAL NUMBERS? 


$FRNO <= 
THIS 18 THE COMMAND EVENT FOR THE DRIVERS. EACH DRIVER 1S 
ALLOWED NOTIFY ACCESS ONLY. COMMANDS ARE CHANNELED TO THE 
SPECIFIEL SUB=MQPULE BY THE STATE WHEN CAUSED, 


SFRNI o= 
THIS tS THE COMMAND REPLY EVENT FOR THE DRIVERS, EACH DRIVER 
IS ALLOWED CAUSE ACCESS ONLY. IN ORDER TO INFORM THE 
MONITOR THE PERIPHERAL DRIVER CAUSES THIS EVENT WITH ITS STATE, 


SFRN2Q o= 
AS IMPLIED AROVEs SFRNO AND SFRNY ARE AN INPUT/OUTPUT PATR, 
$FRN2 HOWEVER IS NOT PAIRED AT ALL. THE MONITOR USES THIS 
EVENT AS A PASS EVENT SENDING FILES TO BE PROCESSED AND nEVICES 
DOWN TO ITS SONS, THE SONS NEVER EVER PASS ANYTHING BACK TO 
THE FATHER, THEY SIMPLY CLOSE FILES, 


MESSAGE FORMATS$S RETURNED IN TS5RN2eT (UPPER) 


FOR SFRN2 <= 
BITS 


0 = 3 = JOR NUMBER (WITH 0 ILLEGAL) 
BITS 6 = BANNER (ON MEANS SUPPLY BANNER) 
BITS 5 = OUTPUT MODES 512/ 320 (ON “MEANS 320) 
BITS 6 ~17 = START AnpRESS (IN ELEMENTS) 


FOR $FRNO <= 
BITS 0 = 3 = JOB NUMBER (MUST BE ZERO) 
GITS 4 -14 = <NOT USED> 
BITS 15017 = DEVICE UNIT NUMBER (0 THRU 7) 
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MBR 


END 


Q1 09917871 


C 


091613 0909657 
001614 goono1 
001615 ncoool 
001616 coCc027 
001617 900026 
09162¢ oo000n 
001621 ogodoc 


001622 co0000 
091623 900077 
091624 49163¢ 
091625 o90003 
091626 901613 
091627 777777 
001630 6 anoooo 
091631 001613 


OF BINARY CARD 
001632 0901335 


001633 001547 


10764 


001613 


001613 
001613 


7000 
goan 
coco 
gaco 
fo00 
AON 
Ho000 


001632 
LPCPO041 


7000 


101633 


7100 


00 
03 
3 


90 


00 
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3126 
3127 
3128 
3129 
3130 
Si3i 
Sit3z2 
3133 
3134 
3135 
3136 
3137 
3136 
3139 
3140 
Siai 
3142 
3143 
3144 
3145 
3146 


3147 


3148 
3149 
3150 
31514 


3152 
31538 


3154 


COMMUNICATIONS = SENG MESSAGE 


xKeeeee # &e & & ee 8 HE HH 


Essx 


MESS1 


USE CODE 
HEAD C 


SEND A MESSAGE 


THIS TASK SENUS A 36 BIT MESSAGE, WHICH Ig BIT CODED 10 THE 
MONITOR ON THE OUTPUT EVENT FILE $FRNI, THE STATE AND 
MESSAGE ARE PASSED TO IT IN TSTEMPisT AND TSTEMP2,T, 
RESPECTIVELY, AFTER SUCCESFULLY TRANSMITTING THE MESSAGE 
THE TASK EVAPORATES. 


ENTER WITH 

C(XT) 2 TBLOCK=ANDRESS 

C(TSTEMP4eT) & STATE 

C(TSTEMP2,T) 2 MESSAGE 
SINCE AN ASYNCHRONOUS TASKs IT CAN USE ALL TEMP?S 
CALLS ONLY RSRELT WHEN DONE. 


Bss 0 ENTRY POINT 

CAUSE (SFRN1oDU)o (12 PU) s (TSTEMPL oT) a (TSTEMP25T yo (OeDU) o (Qe DUy 
TSx Os» SCAUSE 

ARG SFRNIsSDU 

ARG 1,DuU 

ARG TSTEMPILST 

ARG TSTEMP2,T 

ARG OeDU 

ARG Os DU 

CHECK MESS1e2%$B8ZaMESSX 

LXL Os TSSPW1 oT 

ANX Os BSSTMK»DU 

TZE MESS1 

CMPX Oe8$82,DU 

TZE MESSX 

TRA SERROR 

LDX Xo TSSRW1 ST GET NUMBER OF PEOPLE NOTIFIED 
T2E MESSX NONEs RE@SEND 


MESSAGE SENT 


RELT RELEASE TRAP BLOCK 
TSX Os TSRELT 
EXIT EVAPORATE 


TRA SEXIT 
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091634 
001635 
001636 
091637 


091640 | 


091641 


001642 
001643 


Cc 


000000 
000077 
001642 
000011 
001644 
777777 


cooo0s 
000000 


10,764 


001634 


. 001634 

.901634 
7200 11 
3600 03 
6000 00 
1000 o3 
6000 00 
7190 00 

001642 
7270 11 
7100 17 


LINE PRINTFR/ CARD PUNCH MOTHILE PAGE 


3156 
3157 
3158 
3159 
3160 
S141 
3162 
3163 
3164 
3165 
3166 
3167 
5168 
3169 
3170 
317i 
$172 
3173 


3174 
3175 
3176 


COMMUNICATIONS == CTRAD SERVICE 


=a*tet tee © &# #et & SHE HF 


wo 
D 
< 


NSRV1L 


USE 
HE AY 


CODE 
C 


CrrRAP SERVICE 


THIS sSUSROUTINE IS ENTERFQ NHENEVER AN OUTSTANDING 
NOTIFY IS CAUSED, THE ROUTINE ASCERTAINS THE REASON 
FOR THE CAUSE AND TRANSFERS CONTROL TO THE APe@ 
FRAATE SusSROUTINEs 


CALL 


CALLS 


BSS 
CHECK 
LXL 
ANX 
TZE 
CMPX 
TZE 
TRA 
BSS 
LXL 
TRA 


wITH 


CcxT) = CTRAP ADDRESS 

CSNSRVX (TO RE#ISSUE NOTIFY) 

OR APPROPIATE SUBROUTINE 

0 

NSRV1Le2STLE oNSRVX 

OsTSSRWieT 

OsBRSTMKe DU 

NSRV1 

Os B8TLE NU 

NSRVX 

SERROR 

0 IT WAS REALLY CAUSED 
LoCSRLINKsT WELL» WHO GETS IT? 
Ost LET HIM HANDLE JIT 
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MBR 


END 


OL 09=917=74 
C 

001644 931325 
091645 oangoooe 
001646 gon005 
001647 901634 
00165¢e 000510 
001651 go00000 
001652 900005 
001653 000646 
091654 goose 
001655 ¢co0031 
OF BINARY CARD 
001656 og000n 
001657 900077 
00166¢ 001664 
001661 900003 
001662 901652 
001663 777777 
001664 9001335 
001665 001547 


10764 


091644 


901644 
901644 
7009 00 
6220 11 
2210 11 
6200 00 
001650 
7170 00 
6210 12 
2230 11 
001653 
7000 00 
9000 13 
cote 13 
001656 
LPCP0042 
7200 11 
3600 03 
6000 00 
1000 o3 
6000 00 
7100 00 
001664 
001664 
70C0 09 
001665 
7100 00 


LINE PRINTER; CARD PUNCH MODULE 


3178 
3179 
3180 
5181 
3182 
3183 
$184 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
3192 


3198 
3194 
3195 
3196 


3197 
3198 
3199 


3200 


3201 


3202 
3208 


COMMUNICATIONS == RE@ISSUE NOTIFY 


zeeheneeeseenetse# & 


SRVX 


NSX1 


NSX2 


USE 
HEAD 


CODE 
C 


RE=ISSUE NOTIFY 


THIS SUBROUTINE SIMPLY RE#ISSUES THE NOTIFY FOR 


(NOTIFY CONTROL BLOCK), 


GET A TRAP BLOCK 


SAVE A PTR TO IT 

LET T POINT TO ORIGINAL TCB 
RESTART ADDRESS 

RESTART CTRAP 


GET BACK PTR TO NEW TCB 
MAKE X3 POINT TO NCB 


SUCCESSFULLY RE#ISSUED NOTIFY 
RELEASE TSBLOCK 


EXIT 


ANY NCS 
THE TASK EVAPORATES, 
CALL wITH 
Cc(XT) 2 NCB ADNRESS 
BSS 0 
GETT 
TSX Os TSGETT 
EAX XeOeT 
LDX To TSLINKoT 
EAX OaNSRV 
SETuP 
XED $SETuUP 
EAX Teak 
LDX Se TSLINKseT 
NOTIF (ERNs 3) o(STATESS) 
TSX OsSNOTIF 
ARG ERNaS 
ARG STATES3 
CHECK NSx2ePRO7eNSy1 
LXu Oo TSSRWiseT 
ANX Os 8$STMK.DU 
TZE NSX2 
CMPX 0s8$8Z,DU 
TZE NSX{ 
TRA | SERROR 
BSS 0 
RELT 
TSX Oe TSRELT 
EXIT 
TRA SEXTT 


PAGE 


AFTER a SUCCESSFUL OPERATION 
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MBR 


END 


END 


END 


OL 99=17"71 154764 LINE PRINTERS CARD PUNCH MaDULE PAGE 


C COMMUNICATIONS |= NOTIFY CONTROL 3LUCKS 
3205 * 
3266 * 
3207 * NOTIFY CONTROL BLOCKS 
3208 * 
3209 * LINE PRINTER COMMAND EVENT 
3210 * 
001666 3211 NC3 LPNCS0s,CSCOMDsSFRNOeSLPSToOeRSTYPLPSASLP 
003450 USE STORE 
003450 E1GHT 
103450 LPNCBO BSS 0 
003450 oannt0n 900035 ZERO OeRSTRO 
093451 000900 onCno0 ZERO 029 
005452 00000 o5000n ZERO 020 
093453 000900 900000 ZERO 059 
003454 900000 cotooo ZERO #H50 
093455 000000 001666 ZERO OsC8COMD 
003456 903450 003450 ZERO #eCENCR,e=-CSICB 
003457 oonfocoon0on DEC 0 
003460 puP 1216 
093460 occootcooncoO DEC 0 
OF BINARY CARD LPCPO0043 
003500 900006 cotton ZERO $FRNO» 
003501 003900 an0nD0 ZERO $LPSTsd 
003502 onn0000000ND VFD 36/0 
003503 900002 000400 ZERO RSTYPLPsBSLP 
001666 USE PREVIOUS 
3212 * 
3213 * LINE PRINTER PASS FILE EVENT 
3214 * 
001666 3215 NCB LPNCS2sSINI Te SFRN2eSLPSTeOoRSTYPLPoSSLP 
003504 USE STORE 
003510 EIGHT 
003510 LPNCB2 BSS 0 
003510 oo0000 5000035 ZERO Oe» BS$TRO 
003511 900000 co0000 ZERO 059 
093512 000000 ontooo ZERO 023 
oN3513 900000 o00000 ZERO 029 
OF BINARY CARD LPCP9044 
003514 000000 s00000 ZERO #450 
005515 on090C 502023 ZERO Os SINIT 
003516 oo351C 903510 ZERO *=CSNCR,*@-C$JCB 
003517 ocon00cONtDD DEC 0 
093520 DUP 1016 
003520 cnnd000CO0DD DEC 4) 
093540 900002 sottono ZERO SFRN2Q». 
003541 003000 cocoon ZERO $LPST29 
OF BINARY CARD LPCP0045 
003542 gn00000000OD VFD 3670 
093543 900002 on0400 ZERO RSTYPLP,BSLP 


001666 USE PREVIOUS 
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MBR OL O099817=714 100764 
C 
001666 
0N3544 
993550 
0903550 
093550 cono00 cno003s 
6095551 oo0n0n sonnoo 
095552 on0000 socooo 
093553 on000o oncooo 
093554 go0000 nonnooo 
095555 oqonnoc 001666 
0053556 003550 co3550 
003557 coonocooncan 
003560 
0935560 noo0cnoontNno 
END OF BINARY CARD LPCPO0046 
093600 9000000 cotnoo 
003601 001000 cocoon 
003602 coodotonncoo 
003603 000001 9.00200 
001666 
101666 
003604 
003610 
003610 
093610 oco000c on0035 
003611 c00000 coto00n 
093612 900000 aotoon 
0053613 000000 ootnON 
003614 o0n000 soonD0 
905615 oc00000 902023 
005616 003610 003610 
005617 oond00cont0N 
003620 
END OF BINARY CARD LPCP0047 
003620 cnn000000COD 
003640 ©000002 nn0000 
003641 001000 oocooo 
005642 ooono0dnon0ND 
003643 o00N01 on0200 
101666 


LINE PRINTERY CARD PUNCH MODULE 


3217 
3218 
S219 
3220 
s22l 


$222 
S228 
3224 
3225 
5226 


COMMUNICATIONS #= NOTIFY CONTROL SLOCKS 


2 2 @ 8 


CPNCBO 


2 228 © 


CPNCB2 


CARD PLNCH COMMAND EVENT 


CPNCROs,CSCOMDsSFRNOoSCpSTeOsRSTYPCPsASCPp 


STORE 


0 
OsBSTRO 
020 

020 

009 

was0 
OoCECOMD 
*=C$NC3,*-C$JCB 
is) 

1216 

0 


SFRNO, 
SCPST.0 

36/6 
RSTYPCP,BSCP 
PREVTOUS 


CARD PUNCH PASS FILE EVENT 


CPNCR2eSINI To SFRN2e8CPSTsDeRSTYPCPsBSCP 
STORE 


0 

Oe8BSTRO 

029 

020 

020 

eae 

OsSINIT 
*eC$NC8,e=-CSJCR 
0 

1516 


0 
$FRN2. 
SCPST.29 

36/0 
RSTYPCP,RSCP 
PREVIOUS 


PAGE 
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MBR OL 09=47=71} 10-764 LINE PRINTERS CARU PLINCH MODULE PAGE 


C COMMUNICATIONS #= COMMANNS 
091666 3226 USE CODF. 
3229 HEAL C 
3230 * 
3231 * 
3232 * COMMANDS 
3233 * 
3234 * THIS ROUTINE DECODES A COMMAND SENT TO IT FROM THE MONITOR, 
3235 * IF A LEGAL COMMANDs THE APPROPRIATE ACTION IS TAKEN, IF 
3236 * iLLCGais HELL TT IS INGORED (MORE OFTEN THAN NOT) 
3237 * 
3238 * 
991666 3239 COMN Bss 0 ENTER FKERE FROM CSNSRV 
001666 000901 2367 11 3240 LIQ TSSRW2eT GET COMMAND 
END OF BINARY CARD LPeCrP9044 
091667 9c¢0012 7720 O90 3241 QRL 18-494 RIGHT JUSTIFY IN QJ 
091670 cO0017 3760 03 3242 ANQ 2017,DU MASK TO COMMAND 
001671 N000GK 1160 O03 3243 CMPQ CMAX,DU TEST VALIDITY OF COMMAND 
091672 01702 6030 oO 3244 TRC CoMDy NOPES EXIT 
091673 ©1674 7100 22 3245 TRA Rel edie BRANCH TO SUBROUTINE 
091674 777777 once oOo 3246 CMDTB ARG SERROR 0 = ILLEGAL 
091678 601703 co0O on 3247 ARG GET 1 = GET PERIPHERAL 
001676 001714 o00O oo 3248 ARG KILL 2 = KILL PERIPHERAL NOW 
001677 001724 on00 oO 3249 ARG REL 3 # RELEASE PERIPHERAL WHEN NOT AUSY 
001700 777777 onto oo 3250 ARG SERROR 4 m= SPARE 
091701 961747 coco oo 3251 ARG RSTRT S = RESTART A PERIPHERAL 
n00n06 3252 CMAX EQU eeCMDT3 NUMBER OF COMMANDS 
3253 * 
3254 * 
3255 * 
3256 * ComDx 
3257 * 
3256 * RE*ISsUE NOTIFY ON THIS NCB 
3259 * 
001702 3260 COMDx 85s 0 


001702 001644 7100 00 3261 TRA NSRVX RE@ISSUE THE NOTIFY 


MBR 


OL O09817=71 


0017038 


001704 
001705 
001706 
001707 
001710 
001711 
901712 
001713 


C 


002005 


coo002 
200000 
001702 
000000 
oo000! 
077777 
000902 
001702 


19.764 


001703 


001703 


707n 


2350 
3150 
6000 
2220 
7420 
2220 
3420 
7100 


00 


LINE P 


3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
$272 
3273 
3274 
3275 
3276 
3277 
3276 
3279 
3280 
3261 
3282 
3283 
3284 
3265 
3266 


RINTERY CARD PUNCH MODULF PAGE 


COMMUNICATIONS == COMMAND GET 


uSE CODE 
HEAD C 
* 
* 
* COMMAND GET 
” 
* THI5S SUBROUTINE *GETs® THE SPECIFIED PERIPHERAL. 
® 
* ENTER wITH 
* C(iXT) «2 NCBeADPRESS 
x 
GET Bss G 
TSy LaPERI GET PERIPHERAL INFORMATION 
x 
* CHECK IF CURRENTLY CLOSED 
* 
LDA RSFLAGs? GET PERIpHERAL FLAGS 
CANA R$CLOSE.DU CHECK IF CLOSED 
TZE COMDY IGNORE COMMAND IF NOT 
LDX Xo TSSPWi eT GET PASSED FRN 
STX Xs RGFRNGZ SAVE IN TABLE 
LDX Xem1{-FEBUSY=RSCLOSE=RSRSVESDU SEY OFF A FEW BITS 
ANSX XpRSFLAGs? IN THE PERIPHERAL TASLE 


TRA COMDY AND EXIt 
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MBR 91 09"17=71 19-764 LINE PRINTFERY CARY PUNCH MODULE PAGE 102 


C COMMUNICATIONS @#= COMMAND KILL 
n91714 3288 USE CODE 
3259 HEAD C 
3290 * 
3291 * 
3292 * COMMAND KILL 
3293 * 
3294 # THIS ROUTINE STOPS THE SPECIFIED PERIPHERAL IMMEDIATELY. 
3295 * 
3296 * ENTER «STH 
3297 » C(XT) = NCBeADDRESS 
3298 * 
N01714 3299 KILL BSs 0 
END OF 3INARY CARD LPCP0049 
001714 on2005 7070 oo 3300 TSX LePERI GET PEPIPHERAL INFORMATION 
3301 * 
3302 * CHECK IF PERIPHERAL IS IN YSE 
3303 * 
001715 on0002 2350 14 3304 LDA RSFLAGs? GET PERIPHERAL FLAG 
091716 400000 3150 03 3305 CANA RSSUSYsDU CHECK IF BUSY 
001717 001702 6000 oo 3306 TZE COoMNx ExIT IF NOT 
091720 «acoo0e 7260 14 3367 LXL JoRSALLCoZ GET POINTER TO JCB OF DEVICE OWNER 
091721 400000 2350 07 33086 LDA BSKILLSDL TURN ON THE KILL BIT 
001722 000900 2550 16 3309 ORSA JSFLAGS.J IN THE JO8 FLAG WORD 


0901723 001702 7100 00 33106 TRA COMDx AND EXIT 


MBR OL O9—,7—74 10.764 LINE PRINTER/ CARY PUNCH MODULE PAGE 103 


C COMMUNICATIONS == COMMAND RELEASE 
001724 3312 USE CODE 
3313 HEAD Cc 
3314 * 
3315 * 
3316 * COMMAND RELEASE 
3317 * 
S316 « THIS ROUTINE RELEASES A PERIPHERAL AS SOON AS IT IS FREE 
3319 * 
3320 * ENTER WITH 
SS2i * C(XT) 2 NCBWADDRESS 
3322 * 
001724 3323 REL BSS 0 
001724 0902005 7070 o9 3324 TSX LePERI GET PERIPHERAL INFORMATION 
3325 * 
3326 * CHECK FOR ALREADY CLOSED 
3327 * 
001725 ocn002 2350 14 3328 LDA RSFLAGs? GET PERIPHERAL FLAGS 
901726 200006 3150 63 3329 CANA RSCLOSE,DU CHECK IF CLOSED 
001727 001702 6910 oo 3330 TNZ comMDx EXIT IF $0 == MONITOR SHOULD KNOW IT 1S CLOSED 
0017390 «100000 2750 03 3331 ORA RSRSVES.DU ASK TO HAVE IT CLOSED 
091731 900002 7550 14 3332 STA RSFLAGsZ RESTORE FLAGS 
001732 490000 3150 03 3333 CANA RSBUSYs DU CHECK IF CURRENTLY auSY 
001733 001762 6010 oo 3334 TNZ coMDpy BUSYs IT WILL CLOSE EVENTUALLY 
3335 * 
3336 * DEIVCE IDLE -= s&IZE It 
3337 * 
001734 3338 REL2 ess 0 
001734 400000 2750 03 3339 ORA RSBUSYsDU MARK IT @USY 
091735 gao002 7550 14 3340 STA RSFLAGszZ IN THE PERIPHERAL FLAG WORD 
001736 on0002 4460 14 3341 SXL JoR&ALLCoZ AND ALLOCATED TO US 
001737 900006 4460 11 3342 SXL JoT$JIC3I,T FUDGE 
001749 «6900031 2350 11 3343 LDA CSSTATEST GET STATE 
END OF BINARY CARD LPCPOOS50 
001741 o00011 7710 on 3344 ARL 9 MAP INTO TYPE 
001742 900027 7550 11 3345 STA TSTEMPI,T SAVE FOR RELEASE 
091743 000027 444 11 3346 SXL Zo TSTEMP3 oT AND SAVE DEVICE NUMBER 
001744 3347 RELP (TSTEMPy eT) RELEASE IT 
001744 000097 o350 11 LDA TSTEMP1,T 
001745 001433 7070 oo TSX LeRSRELP 


001746 001702 7100 oo 3348 TRA COMDy ExIT 


END 


OL 09—47=71 
é 

091747 0n2005 
091750 000027 
001751 oocco2 
001752 400000 
001753 001702 
001754 900002 
001755 o9n006 
001756 o1c000 
001757 on0000 
001760 000006 
091761 000026 
001762 000564 
001763 fo0002 
001764 9000026 
001765 ooocon 
OF BINARY CARD 
001766 000077 
001767 901773 
001770 «000003 
001771 0901762 
001772 777777 
001773 oo000! 
001774 777777 
001775 00006 
001776 000000 
001777 oon000 
092000 00026 
OnN2001 001762 


15-764 


901747 


91747 


7070 
7440 


2350 
3150 
6000 


7260 
4460 
2350 
2550 


4500 
4500 


001762 


7000 
0000 
6000 


001765 


7200 


LPCPO0O051 


3600 
6000 
1000 
6a00 
7100 


001773 


2350 
3750 
0750 
5310 
6350 
7550 
6010 


00 
ii 


14 
o3 
00 


14 
it 
07 
16 


16 
11 


09 
16 
11 


11 


00 


LINE PRINTERS CARD PUNCH MODULE 


3350 
S351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 


3361 


3382 
3383 
3384 
3385 
3386 
3387 
33868 
3389 


PAGE 104 


COMMINICATIONS #= COMMAND RESTART 


STRt 


RST1 


RST2 


USE 
HEAD 


CONE 
C 


COMMAND RESTART 


THIS COMMAND RESTARTS THE JOB ON THE SPECIFIED PER} 
IPHERAL TO THE SPECIFIED ELEMENT NUMBER, 


BSs 
TSX 


' §TX 


Q 
LePERI 
Ze TSTEMPI oT 


GET PEPIPHERAL INFORMATION 
SAVE PTR TO DEVICE 


CHECK IF pERIPHERAL IS IN USF 


LDA 
CANA 
TZE 


RSFLAGs7 
R$BUSYsDU 
CoMDY 


GET PERIPHERAL FLAG 
CHECK IF BUSY 
EXIT IF NOT 


HALT READING IN ORDER TO DO SET POINTER 


LX 
SxXt 
LDA 
ORSA 


JoRSALLCOZ 
Jo TSICBAT 
BSHALTsDL 
JSFLAGSSJ 


GET Ptr rO JCB OF DEVICE OwNER 
SAVE JCB POINTER 

GET THE HALT BIT 

MARK READING HALTED 


SET POINTER TO RESTART ADDRESS REQUEST (IE. 0) 


STZ 
STZ 
SPTR 
TSX 
ARG 
ARG 
CHECK 
LXL 


ANX 
TZE 
CMPX 
TZE 
TRA 
BSS 
LDA 
ANA 
ADA 


NEG 


EAA 


sTA 
TN2Z 


JERSTRTodJ 
TSTEMP2,T 


eeeRESET TO BEGINNING FOR NOW 
FIRST FIND CURRENT SETTING 


(JSIFRNsJ) ao (TSTEMP20T) 


O,SSPTR 
JOIFRNeJ 
TETEMP2,T 


RST2seB387e2RST1 


Os TESRWioT 


Os» 8ESSTMKS\DU 
RST2 
023$87.,DU 
RST1 

SERROR 

0 

TSSRW2eT 
“1eDL 
JSRSTRI,LJ 


OeAL 
TSTEMP2eT 
RST 


GET CURRENT SETTING 

ONLY 

PLUS THE AMOUNT IT HAS MOVED ON US (ASYNC) 
COMPUTE REQUESTED MINUS CURRENT FOR CORRECT SIGN 
MOVE TO AL 

SAVE FOR SET POINTER 

SET PROPERLY 


MBR 


OL 09"17=71 10764 


C 


092002 010000 2350 07 


QN2003 ocoo000 6550 16 
002004 001702 71CO0 o9 


LINE PRINTER, CARD PINCH MODULE 


COMMUNICATIONS #= COMMAND RESTART 


3390 * 

S391 * RESET FLAG BITS 

3392 * 

3393 LDA BSHALTsDL UNSET HALT BIT 

3394 ERSA JSFLAGSs.J 

3395 TRA COMNX AND EXIT THRU COMMON ROUTINE 


PAGE 
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MBR 


END 


O1 O9—817="714 
C 

092005 000033 
002006 003074 
002007 gn0000 
002010 oc0nn01 
092011 ocn022 
002012 000007 
OF BINARY CARD 
002013 000000 
002014 coco! 
002015 00000 
002016 o00000 
002017 ono00s 
002020 000001 
002021 002015 
002022 001702 


10764 


092005 


902005 


2220 
2200 
2240 
2350 
7710 
3750 


LPCPOOS5S2 


2750 
3360 
1150 
60C0 
0240 
0760 
6040 
7100 


11 
12 
10 
{1 
00 
07 


14 
10 


LINE PRINTER/ CaRy PUNCH MODULE PAGE 


3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3414 
3412 
3413 
3414 
3415 
3416 
3417 
3418 


3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 


COMMUNICATIUNS |= PERIPHERAL INFORMATION (PERI) 


weaeeneeeunneete_ te &@ # B 


ERY 


PERI1 


USE CODE 
HEAD Cc 


PERI 


THIS ROUTINE CHECKS TO SEE IF THE PERIPHERAL NAME EXITS 
AND IF SO RETURNS A POINTER TO THE DEVICE ENTRY ALOCK, 
OTFERwroc if Exrts 


ENTER wITH 
C(xT) w= NCBeADDRESS 
RETURN WITH 
C(X?) = DEVICE ENTRY BLOCK 


BSS 0 
LDX XeCSRESaT GEy PERIPHERAL yyPE 

LDX OsRSTABLE ox GET POINTER TO TYPE TABLE 

LDX ZaRSPTRod GET PTR TO FIRST DEVICE 9F THIS TYPE 
LDA TSSRW20T GET BACK UNIT NUMBER 

ARL 36-18 RIGHT JUSTIFY IN AL 

ANA 7oDL MASK TO UNIT NUMBER 

ORA RSNAME 7 GET NAME 

Lo RSMAX 29 GET THE NUMBER OF DEVICES TO CHECK 
CMPA RENAME 27 TEST FOR MATCH 

Tze OsL RETURN WITH 2 POINTING TO DEVICE 


ADLX ZaRSDEVLNe DU NO»e SKIP TO NEXT DEVICE 


_ADG.. 1.0L TEST FOR DONE 
TMI PERI1 NO» LOOP 
TRA COMDX INGORE MONITOR 
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MBR OL O9"17=71 
C 
092023 oo0001 
002024 oon004 
002025 000017 
002026 001666 
002027 01344 
002050 000006 
002031 oon001 
002032 oo000! 
092033 777777 
002034 go0000 
092035 900033 
002036 goof00 
002037 0900004 
END OF BINARY CARD 
002040 000017 
002041 003430 
002042 777777 
002043 0903430 
on2044 gooool 
002045 ooon01 
002046 902051 
092047 300000 
092050 o00nn0 
0N2051 condo! 


10764 


202025 


002028 


2360 
7370 
3750 
6q0n 


002027 


7070 
4460 


2360 
7560 
37690 
7560 
7220 
4420 
7370 


LPCPO00S3 


3750 
2340 
60la 
7460 
7370 
3750 
6000 
2350 
2550 
7370 


11 
00 
07 
00 


00 
ii 


it 
16 
Os 
16 
11 
16 
00 


07 


LINE PRINTER, CARD PINCH MODULE 


3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3434 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
3454 


3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 


3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 


JOB INITIALIZATION ROUTINE 


— 2+ t¢ #¢# Se £©e &€ He Ft + HF EE EH HS BB 


* 


NIT 


USE 
HEAD 


CODE 


PAGE 


JOB INIT 


UPON RECEIPT ON A FILE TO PROCESse THIS ROUTINE Ig ENTERED, 
IT DOES ALL OF THE NECESSARY INITIALIZATION AND CHECKING IN 


ORDER THAT THE JOB MAY BE STARTED. 


GEY A JCB 


IT DOES THE FOLLOWINGS 


INTTIALIZES IT WITH THE ENTIRE JOB DESCRIPTION 
CHECK ELEMENT SIZE 

POSITIONS THE READ POINTER IF NECESSARY 
CREATES THE READ TASK AND THE WRITE TASK 
RE@ISSUES THE NOTIFY 


EXIT 
ENTER WITH 

C(xT) 
BSS 0 
LD@ TSSRW2eT 
LLS 4 
ANA BSB8J8MKSDL 
TZE C$COMD 
GETJ 
TSX Le JSGETJ 
SXL JoTEICHLT 


INITIALIZE JCB 


LDaq 
STQ 
ANG 
STQ 
LXL 
SXL 
LLS 


ANA 
$ZN 
TNZ 
STX 
LLS 
ANA 
TZE 
LDA 
ORSA 
LLS 


TSSRW2eT 
JSFLAGs J 
-12DvU 
JSFLAGS.J 
XeCSRES.ZT 
Xo JSFLAGSeJ 
4 


BSBJ8MK.DL 
JSJTABSAL 
SERROR 

Jo JIS ITABS AL 
1 

BSBHDRsDL 
#43 


BSRHDRsBSWHURSDL 


gor oenes 


= NCB-ADPRESS 


GET MESSAGE wORD 

SELECT JOB NUMBER 

ONLY 

TEST IF 1T IS A PASSED PERIPHERA, 
GET A JCB 


SAVE JCB PTR 


GET MESSAGE wOrD 
SAVE AS 18S 

MASK TO MESSAGE 

SAVE IN FLAGS. TOO 
GET RESOURCE TYPE 
SAVE 

MOVE JOB NUMBER IN A 


MASK TO JOB NUMBER 
TEST FOR POOR BONKKEEPING 
ONE OF US IS WRONG 
MARK IT BUSY 
GET HEADER BIT 
ISOLATE [T 
NO HEADER NEED 
"TURN ON HEADER BITS 


GET OUTPUT MODE 
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END 


END 


Qf 99817271 


092952 oconc! 
002053 ‘c3L0r 
002054 oco005 
093100 044000 
O93101 026400 
002055 ocnoo14 
092056 007777 
002057 oon006 
002060 0000 
002061 naoc002 
OF BINARY CARE 
092062 ocno02 
002063 coool! 
092064 00042 
092065 00020 
002066 000013 
002067 00014 
002070 co0001 
002071 000900 
0n2072 nco020 
002073 no0000 
002074 onocol 
002077 oo002c 
002100 000033 
002101 001364 
002102 000016 
002103 000003 
002104 9090575 
092105 oncoo2 
002106 no000c 
002107 000077 
OF BINARY CARD 
002110 002114 
002111 0000903 
002112 02104 
002113 777777 
002114 o90000 
002115 000005 
002116 777777 


132764 


3759 07 
2350 05 
7550 16 
03100 
601000 
0005n0 
e92055 
7370 900 
3750 07 
7550 14 
2220 11 
7420 16 
LPCPO0054 
2360 07 
7560 16 
4500 16 
6350 16 
7550 16 
7550 16 
0350 03 
6220 0O1 
4420 16 
002073 
4500 12 
0220 03 
7420 16 
o02100 
2350 11 
7070 00 
7550 16 
7560 16 
002104 


002104 
7000 00 
coco 16 

002106 
7200 11 
3600 O38 
LPCPO0055 
6000 00 
1000 03 
6000 00 
7100 00 
2220 11 
1020 16 
6010 00 


LINE PRINTERS CARD PYNCH MOIYLE 


JOB INITIALIZATION ROUTINE 


3460 BS? 


3519 INITS 
SSit 

3512 

3513 * 


ANA 
LDA 
STA 
USE 
ZERO 
ZERO 
USE 
LLS 
ANA 
STA 
LDX 
STX 


LDO 
ST9 
STZ 
EAA 
STA 
STA 
ADLA 
EAX 
SXL 
DUP 
STZ 
ADLX 
STX 
GETP 
LDA 


_ TSX 


STA 
$T9 
8SS 


BSROTMK,ZDL 
8SZeal. 
JSBUFS7.J 
CONST 
3645120512 
3643204320 
PREVIQUS 
12 
VasSTAK, ML 
JERSTRIY SJ 
Xe TSSRWieT 
Xo JIBIFRNe JS 


JENSDL 
JSEMPTY,J 
JSFULL oJ 
JSRESETSJ 
JSRPTReJ 
JEWPYRSJ 
1.DU 

Xa OoAl! 

Xa JSRESETsJ 
2eJ$N 

OX 

XeieNU 

Xe JSRESETOJ 
(CSRES,T) 
CSRES,T 
LaRSGETP 
J$rREseJ 
JSOFRN,J 

0 


CHECK ELEMENT sI7E 


RQST 
TSX 
ARG 
CHECK 
LXL 
ANX 


TZE 
CMPX 
T2E 
TRA 


DX 


CMPX 
TNZ 


(JSIFRNSJ) 
02$8RQST 
JSIFRNSJ 


INIT3s3SBZeINIT2 


Os TESRW1 oT 
Os8BSSTMKs*DU 


INITS 
0s8$8Z.,DU 
INIT2 
SERROR 

Ket SSRayoT 
Xe JSSUFSZeJ 
SERROR 


PAGE 


TSOLATE 1T 
GET PROPER BUFFER SIZE 
SAVE For R/W TASKS 


BITS/JELEMENT s/ 3UFFER SIZE 


GET RESTART ADDRESS 

MAS€ TO ADDRESS tN ELEMENTS 
SAVE 

GET PASSED FRN 

SAVE AS INPUT FRN 


GET NUMBER OF WORKING BUFFERS 
SET EMPTY AND 

FULL COUNTS 

POINT TO FIRST WORD OF BUF @ =1 
SEY READ POINTER 

AND WRITE POINTER 

NOW POINT TO FIRST WORD OF BUF Q 
MOVE TO x 

WRAP POINTER 

RESET BUFFER QUEUE 

RESET IT 

STEP TO NExT 

END POINTER 

GET REQUESTED RESOURCE 


SAVE RESOURCE POINTERS IN JCB 


SAVE FRNy UNIT NUMBER IN JCB 


REQUEST STATUS 


GET NUMBER OF BITS/ELEMENT 
TS [IT WHAT WE EXPECTED? 
NOPE 
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END 


OL O9—17—71 


ON2117 990027 


002120 000564 
002121 oo00c2 
002122 000927 


002123 oonnoo 
092124 090077 
002125 902131 
002126 ogo0003 
002127 902120 
002130 777777 


092151 oon001 
0021382 777777 
002133 o000c6 
002134 go00000 
002155 0900000 
OF BINARY CARD 
002136 900027 
092137 902120 


002140 001325 
002144 oo0015 
002142 902304 
002143 oo0004 
002144 ogaoco4 
002145 oo0005 
OOgi46 000006 
002147 ooo000 
002150 003262 


002151 001325 
002152 g00015 
002153 0902661 
002154 9000004 
002155 9000004 
002156 900005 
092157 000006 
002160 onococon 
092161 903262 


19.764 


4500 11 
092120 
002120 

70CO 900 

0000 16 

socao 11 
Co2123 

7200 11 

3600 03 

6nCO oO 

1000 O83 

60C0 00 

7100 00 
N921314 

2350 11 

3750 07 

1750 16 

5310 00 

6350 05 

LPCPO0056 

7550 41 

6010 00 


002140 
7000 00 
7419 16 
2220 03 
7420 11 
6200 11 
2220 11 
74290 11 
6210 12 
7170 00 


002151 
7000 00 
4410 16 
2220 03 
7420 11 
6200 11 
2220 11 
7429 11 
6210 12 
7170 00 


LINE PRINTER/ CARY PUNCH MaDULE 


3514 
3515 
3516 
3517 
3518 


3519 


3520 
3521 
3522 
3523 
3524 
3525 


3526 
3527 
3528 
3529 


JOB INITIALIZATION ROUTINE 


* 
* 


INIT4 


INTTS 


3530 * 


3531 


3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 


3544 
3545 
3546 
3547 
3548 
3549 
3550 
3551 


a 


SET READ POINTER 


stz TSTEMP1.LT 
BSS 0 

SPTR (JSTFRNA Js (TESTE 
TSX Os, SSPTR 

ARG JSIFRNsJ 
ARG TSTEMPI,T 
CHECK INIT5S»B$BZeINITS 
LXL Os TSSRWisT 
ANX Os BSSTMKs\DU 
TZE INITS 

CMPX Oo BSBZ.DU 
TZE INI T4 

TRA SERROR 

Bss 0 

LDA TESRW2eT 
ANA W1seDL 

SBA JSRSTRTSJ 
NEG 

EAA Oe AL 

STA TSTEMPYST 
TNZ INIT4 


CREATF READ TASK 


GETT 

TSX Os TSSETT 

STX Tao JERTASKs J 
LDX XaRTASK,DU 
STX Xs TSTRAST 

EAX Oo SSOFFSTST 
LDX Xo TSLINKoT 
STX _ ¥eTSNC8,T 

EAX ToOeX 

xED QSXADD+QSTASK 


CREATE wRITE TASK 


GETT 

TSx Os TSGETT 

SXL Tea JENTASKe J 
LDX XeWTASK, DU 
STX Xa TSTRAST 

EAX OsQSOFFST.T 
LDX Xe TSLINKeT 
STX Xe TSNC8B,T 

EAX TeDeX 

x&D OSXADD+QS8TASK 


PAGE 109 


FirsT FIND CURRENT SETTING 


MPisT) 


GET CURRENT SETTING 

ONLY 

MINUS REQUESTED 

COMPUTE REQUESTED MINUS CURRENT FOR CORRECT SIGN 
MOVE TO AU 


SAVE FOR SET POINTER 
SET PROPERLY 


GET A TASK BLOCK 


SAVE PTR TO READ TASK 

GET RETSTART ADDRESS 

SAVE IN 1TCB 

PREPARE YO START READ TASK 

GET BACK PTR TO OLD TCB (IE NCB) 
SAVE PTR TO NCB 

RESTORE T 

PLACE ON THE MASTER TASK QUEUE 


GEy A TCB 


SAVE PTR TO WRITE TASK 

GET RESTART ADDRESS 

SAVE IN TCB 

PREPARE TO START WRITE TASK 

GET BACK PTR TO OLD TCB (IE NCB) 
SAVE PTR TO NCA 

RESTORE T 

PLACE ON THE MASTER TASK QuEVE 


MBR 


END 


O11 09817—=71 


002162 00005 
002163 777777 
OF SINARY CARD 
002164 on0002 
092165 nn006ec 
002166 noanon 
002167 903321 
002170 001644 


190764 


2360 
3760 


LPCP9057 


4020 
9760 
6369 
6560 


7100 


16 
97 


07 
07 
06 
00 


00 


3552 
3553 
3554 
3555 
3556 


3557 
3558 
3559 
3560 
3561 
3562 


® 
* 
* 


LINE PRINTERS CARY PUNCH MODULE 


JOB INITIALIZATION ROUTINE 


SET NEw MEMORY REQUIREMENTS 


LDq 
ANQ 


MPY 
ADQ 


-aAan 
eA 


ASQ 


TRA 


JSBUFS70J/ 
—10eDL 


JSNeDL 
2eTSLENSDL 
eraerss 


SMEMRO 


CENSevX 


GET RUFFER sIZ2E 
ONLY 


TIMES NUMBER OF BUFFERS 

PLUS TASK CONTROL BLOCKS 

MOVE TO &U 

UPDATE MEMORY REQUIREMENT wORD 


RE@ISSUE NOTIFY 


MBR QL 09"17=71 130764 


OO2171 


LINE PRINTER? CARD PINCH MOLULE PAGE Lil 


3564 
3565 
S5E6 
3567 
3568 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3580 
3581 
3582 
35863 
3584 
3585 


JOB PROCESSING |= DIJKSTRA IMPLEMENTATION 


2eeteeewseeeeee eee & ee SE HR 


USE CODE 
HEAD 


DIJKSTRA IMPLEMENTATION 


JO8 PROCESSING Is BASED ON THE DIJKstRA DESIGN MENTIONED 
PREVINUSLY, IT ENTAILS THE MANAGEMENT OF CONPERATING SEo 
QUENTTAL PROCESSES, (SEE P= AND V= MACROS.) EACH JOB 
TO BE PROCESSED IS REPRESENTED BY TWO ASYNCHRONOUS TaSKS# 

THE "READ TASK? (HEREAFTER CALLED RTASK) AND THE *WRITE Taske 
(HEREAFTER CALLED WTASK). THE TWO RUN IN PARALLEL. THE 
FLOWCHARTS ARE THE FOLLOWINGS 


RTASK WTASK 

P( EMPTY) P(FULL) 
FILL EMPTY 
VCFULL) V( EMPTY) 
LOOP RTASK LOOP WTASK 


ExItT ExIT 


MBR DL Oget7ua71 


002171 


092172 
092173 
002174 
002175 
092176 
002177 
002200 
002201 
002202 
002208 
002204 
902205 
062206 
002207 
092210 


000004 
000005 
oo10i1 
000013 
oon0el 
000020 
Q02201 
000020 
000013 
00000 
000027 
0an000 
010000 
002277 
400000 
0022350 


10,764 


002171 


O02171 


4470 


it 


LINE P 


RINTER/ CARD PUNCH MODULE rae 


READ TASK |= FILL 


USE COnE 
HEAD 
2 
* 
* FILL 
* 
* FILL FILLS AN INPUT BUFFER, 
* 
FULL MAT ON <NeARSUMENTS> 
TSX LodFILL CALL SUBROUTINE 
ENDM FILL 
® 
2 
* FILL *= SUBROUTINE 
® 
* THIS SUBROUTINE DOES THE ACTUAL READING OF THE INPUT FILE. 
® IT IS CHARGED WITH ALLOCATING THE CORRECT SIZE BUFFER ANN 
* WITH READING THE RIGHT NUMBER OF ELEMENTS, IT HANDLES ALL 
* ERRORS AND RETURNS THE STATUS IN JSFLAGsJ FOR THE CALLER, 
* 
* ENTER wITH 
* CiXJ) = JCB<ADDRESS 
* C(XT) = TBLOCK=ADDRESS 
* ENTER BY 
* TSX LeFILL 
* CALLS 
* $READ 
* EX!T To Get 
” . USES 
* NO LOCALS 
* TSTEMPY 
® 
FILL 88s 0 
SXL Le TSTRAST SAVE RETURN ADDRESS 
__GETC (JSBUFSZ.J) ALLOCATE AN INPUT BUFFER 
LDA JSBUFSZ,J 
TSX LaRSGETC 
LDX Xo JSRPTReJ GET OLD SUFFER pOINTER 
ADLX Xeie.DU BUMP TO NEW 
CMPX Xe JSRESEToJ TEST FOR WRAP 
TNC #42 OK 
LXL Xs JSRESEToJ WRAP 
STX Xo JSRPTReJ SAVE NEW POINTER 
STA 0»X SAVE BUFFER ADDRESS 
STA TSTEMP1isT AND HERE FOR EASY ACCESS 
FILLO LDA JSFLAGS.J GET STATUS BITS 
CANA Se4ALTsDL ARE WE TO HALT READING? 
TNZ FILL6 YES» HALY FOR AWHILE 
CANA BSKILLsDL ARE WE TO KILL THIS JOB? 
TNZ FILL2 YES. SO pO IT 
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END 


END 


OL O9=17=71 


OF BINARY CARD 


an2211 
902212 


002213 
092214 
on2215 
ON2216 
002217 


002220 
002221 
002222 
0N2223 
002224 
092225 
002226 
002227 


002236 
002231 
092232 
002238 
002234 
092235 


0022356 


2o0cor 
002256 


000536 
con002 
006027 
onnno! 
cootec 


o0000c 
000077 
002236 
900003 
002204 
ocoo1s 
002230 
777777 


C00027 
Oo1110 
oo001s 
000000 
04000C 


000900 


ooang4 


OF BINARY CARD 


002237 
002240 


0n2241 
002242 


092243 
0N2244 
002245 
002246 


525243 
525243 


525244 
525244 


525245 
525245 
525245 
$25245 


10.764 LINE PRINTERS CARD PUNCH MOTULE PAGE 


READ TASK == FILL 


LPCP9058 
3150 07 3635 CANA BSRHNRS DL ARE WE SUPPOSED TO OUTPUT & HEADER? 
6910 00 3636 TN? eri 4 ves. SN nn It 
3637 * 
3638 * 
3639 * INITIATE A READ 
3640 * 
002213 3641 FILL READ (JEIFRNsJ)o(TSTEMPLoT) o(1eDUs(O0sDy) 
7900 00 TSX Os$READ 
soc0 146 ARG JSIFRNeJ 
sono $4 ARG TSTEMP1,T 
9990 03 ARG 1.0U 
cota 03 ARG Os DU 
992220 3642 CHECK FILL3»R8S$AZoFILLOsBSEOFsFILL2 
7200 11 LXL Os TSSRWioT 
36CO 03 ANX Oe 8SSTYKeDU 
69CO 09 TZE FILL3 
tace 03 CMP Xx Os8SB87s5DuU 
60f0 00 TZE FILLO 
1oco 03 CMPX Oo 8SE0F, DU 
6000 090 TZE FILL2 
7100 00 TRA SERROR 
3643 * 
3644 * INFORMATION READ 
3645 * 
002230 3646 FILL2 855 0 EOF REACHED 
02230 3647 RELC (TSTEMP46T) RELEASE THE RUFFER 
2350 11 LDA TSTEMP IST 
7070 00 TSX LaRSRELC 
2220 16 3648 LDX Xe JISRPTReJ GET POINTER TO INPUT BUFFER 
4500 12 3649 STZ O»X MARK AS SUCH 
2350 07 3650 LDA BSENDR,DL GET EOF FLAG FOR READ TASK 
2550 16 3651 ORSA JSFLAGSsJ MARK AS SUCH 
n02236 3652 FILLS Bss 0 suUCCESsFyL READ 
7270 11 3653 LXL LaT$TRAST RETRIEVE RETURN ADDRESS 
002237 3654 BUGA RUG ALL REGISTERS EXCEPT T AND J 
525243 BUGBUG SET BUGBUG4; 
LPCP00S9 
2350 083 LDA BUGRUGS.DU 
2750 07 ORA BUGBUGsDL 
Nn02241 3655 RUGA 
525244 BUGRUG SET BUGRUG41 
2360 03 LDa BUGBUG. DU 
2760 07 ORQ BUGBUGs. DL 
002243 3656 BUGXR (O2XsYo7200) 
525245 BUGBUG SET BUGBUGS1 
2200 O83 LDX OsSUGRUGs DU 
2220 03 LOX X¥esByGBuUGs DU 
2230 03 LDX YeBUGBUGS DU 


2240 43 LDX 2 s8UGBUGs DU 
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END 


OL 99—17—=71 


022247 525245 
002250 525246 
002251 000027 
002252 900027 
002253 525247 
002254 ofo0c4 
002255 coonce 
002256 200000 
002257 oo0000 
002260 000400 
002261 002271 
002262 003102 
002263 000013 
OF BINARY CARD 
002265 161700 
002266 cocoon 
002267 goodcn 
002270 002236 
092271 003172 
092272 000013 
002273 067700 
002274 on0000 
002275 000000 
002276 002236 
002277 002204 
092300 000004 
0n2301  on0004 
002302 003262 
002303 001547 


19.764 


2250 03 
902250 
525246 

220n Q3 

7400 11 

4400 11 
902253 
525247 

2200 03 

4400 44 

7100 17 


002256 
6750 07 
7550 16 


3150 07 
6000 a0o 
6220 00 
2230 36 
LPCP0060 
5602 o1 
2360 12 
7560 13 
7100 00 
092271 
622N 00 
2230 36 
5602 O1 
2350 12 
7550 13 
7100 a0 
002277 
6200 co 
7400 11 
6200 11 
7170 oO 
002303 
7100 o0 


LINE P 


RINTERY CARD 


READ TASK == 


LDX 
3657 BUS 
BUGBUG SET 
LDX 
STx 
Sxl 
3658 BUGL 
BUGBUG SET 
LDX 
SXL 
3659 TRA 
3660 * 
3661 * 
3662 * SEND 
3663 * 
3664 FILL4 B8ss 
3665 ERA 
3666 STA 
3667 * 
3668 * 
3669 * 
3670 CANA 
$671 TZE 
3672 EAX 
36735 LDX 
3674 RPD 
3675 LDQ 
3676 _§Ta 
3677 TRA 
3678 FILLS BSS 
3679 EAX 
3680 LDX 
3681 RPD 
3682 LDA 
3683 STA 
3684 TRA 
3685 FILL6 8SS 
3686 EAX 
3687 STX 
3688 EAX 
3689 XED 
3690 EXIT 
TRA 


PUNCH MOTULE 


FILL 


CeoBUGBUGs. DU 
(TETEMOYsT) 
BUGRUGSL 
OsRUGBUGs DU 
OsTSTEMpPisT 
Os TSTEMPI oT 
(TETRAST) 
BUGRBUGS1 

CS OUSSUseuu 
OsTSTRAsT 
Oal 


OuT HEADER 


0 
BSRHDRsDL 
JSFLAGSsJ 


BSLp.DL 
FILLS 
XeaLPHUDR 

Ye JSRPTReJ* 


LPHLNoe lea TZE 
OX 

Oey 

FILL3 

0 

XeCPHER 

Yea JSERPTRoJ* 
CPHLNeolsTZE 
0eX 

Oey 

FILL3 

0 

OsFILLO 

Os TSTRADT 
Os DS0FFSTST 
QSXADD+QSTASK 


SEXIT 


PAGE 


RETURN TO CALLER 


TURN OFF READ HEADER BIT 
AND SAVE IT 


DETERMINE WHERF HEADER Is TO BE SENT 


Ig I7 A LINE prRINTER HEADER? 
NOs MUST BE CARD PUNCH 

C(x) & FROM POINTER 

C(Y) © YO POINTER 


MOVE IN HEADER DATA 


FUDGE To LOOK LIKE A READ 
OUTPUT HEANER FOR CARD PUNCH 
C(X) ® FROM POINTER 

C(Y) * TO POINTER 

MOVE IN HEADER pATA 


FUDGE TO LOOK LIKE A READ 
FUNGE RESTART ADDRESS 
GET OFFSET PTR TO TCB 


PLACE SELF ON QSTASK 
AND WATT FOR AWHILE*=TO DO SPTR, 
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END 


END 


END 


OL 09017—71 19.764 
OOS102 772017171717 
003193 676767676767 
OF BINARY CARD LPCPO061 
ONS110 770217171717 
ON3S1L111 676767676767 
099116 770117171717 
003117 672020202029 
093123) 770117171717 
003124 6720202020629 
003130 770117171717 
003131 676767676729 
OF BINARY CARD LPCPon62 
003136 770117171717 
OOS137 672020292020 
0909143 770117171717 
005144 672020202020 
003150 770117171717 
093151 672020202020 
093155 770117171747 
003156 672020202020 
003163 770217174747 
OF BINARY CARD LPCP0063 
003164 676767676767 
003171 772017171717 


9923504 


093102 
093102 


900070 


LINE PRINTER/ CARY PINCH MODULE 


PAGE 


READ TASK *= BANNERS 


3692 
3693 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3708 
3704 
3705 LPHNR 
3766 

37067 


@nwee es &@ S82 8 & 


3704 
3709 
3710 
S711 
3712 
3713 
3714 
3715 


3716 
3747 
3718 
3719 
3720 
3721 
3722 
3723 
3724 


3725 
3726 
3727 LPHILN 


USE CODE 
HEAD 
BANNERS 


THESE ARE THE OUTPUT BANNERS TO THE LINE PRINTERS AND 
CARD PUNCHES, RESPECTIVELY, 


THIS Ig THE LINE pRINTER SANNER. Ig SAYS FILE 
USE CONST 

Bss 0 LINE PRINTER BANNER 
ocT 772017171717 

BCI Ba XXXX KKK KK KK XK KK KKK KKK KKK KKK KKK 
OcT 770217171717 

BCI Ba XXXXXXX XXX YX XXXXXXX 
ocT 770417171717 

BCI aX x x x 

ocr 770117171717 

BCI 4aX X X x 

OCT 770117171717 

BC! Sa XXXXX x x XXXXX 

oct 770117171717 

BCI 4eX X X X 

oct 770417171717 

BC! 4aX xX X X 

ocT 770117171717 

BCI aeX x x x 

ocT 770117171717 

Bc! 5X XXX XXXXXXK KNXKXKKKK 
ocT 770217171717 

BCI Sa XXXXKXKXKKK KKK MK KKK KKK KKK KKK KK KK 
ocT 772017171717 

EQU #=aLPHDR HEADER LENGTH IN WORDS 


MBR 


END 


OL G9—17=71 19.764 
008172 77774n0140n1 
003173 400140014001 
008200 477545014501 
005201 450145014501 
008202 449144014401 
003203 40014N014001 
003204 400147754001 
003205 400140014001 
005206 477540054005 
093207 400540054005 
008210 400540054005 
O0S2i1 400140014001 
OF BINARY CARD LPCP0064 
003212 477544454445 
OOS213 444544454445 
005214 440544054005 
005215 400140014001 
095224 400177770000 


093172 


193173 


003215 


Do00gS 
002304 


LINE PRINTERS CARD PINCH MODULE 


3729 
3730 
3731 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 
3744 
3748 
3746 
3747 
3748 


3749 
3750 
3751 
3752 
3753 
3754 
5755 
3756 


READ TASK *= RANNERS 


CPHLN 


THIS Ig THE CAz2D PUNCH BANNER. 


88s 
oct 
buP 
oct 
oct 
oct 
oct 
ocT 
ocT 
ocT 
OCT 
oct 
oct 
ocT 


oct 
ocT 
ocT 
DuP 
ocT 
QcT 
EGU 


USE 


0 
777740014001 
aay 

400140014001 
477545914501 
450145014501 
440144914401 
400146914001 
400147754001 
409140914001 
477546054005 
400546954005 
400540954005 
400140914001 


4775446454445 
444544454445 
440544954005 
1a7 
400140014001 
499177770000 
walPHDR 
PREVIOUS 


tt says FILe 


CARU PUNCH BANNER 


HEADER LENGTH IN WORDS 


PAGE 


1164 


MBR 


OL O9—17=71 


002504 
002505 


002306 


092307 
002310 
002311 
002312 
002313 


002314 


002515 


000011 
900751 


002171 
0000190 
000772 
0000006 


040900 
Co2304 


001335 


001547 


10764 


002304 


02304 

002304 
6250 16 
7070 00 

002306 
7070 00 


002314 

N02314 
70°0 nO 

002315 
7100 00 


LINE PRINTER, CARY PUNCH MODULE 


3758 
3759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 
3781 
3782 
3783 
3784 
3785 
3786 
3787 
3788 


3789 


3790 


3791 
3792 
3793 
3794 
3795 
3796 
3797 
3798 


3799 


READ TASK *= MAIN 


eee Bee eeneeee ee ee ese © He SH FE HH RS 


RTASK 


RTSK1 


PAGE 
USE CODE 
HEAD 
READ TASK 

THIS SECTION OF CODE IS EyECUTED By THE READ TASK TO REAN 
AN INPUT FILE INTO CORE, IT WILL READ IN BLOCKS OF THE 
UNIT SIZED SPECIFIED WHEN OPENED BY THE MASTER, IT WILL 
FILL AS MANY 6UFFERS AS TOLD AND WILL KEEP RE@FILLING THEM 
UNTIL THE END OF FILE IS REACHED, IT WILL THEN TERMINATE 
ITSELF. 
THE NUMBER OF SUFFERS TO FILL Ig PRE-DEFINEN By AN ASSEMBLY 
TIME CONSTANT TO BE 2, THIS IMPLIES THAT ALL INPUT (AND 
OBVIOUSLY ALL OUTPUT) T'S DOUBLE@BUFFERED, TO BECOME MULTI} 
BUFFEREDs SIMPLY CHANGE THE 2 TO N WHERE N IS THE NUMBER OF 
BUFFERS TO WORK WITH, 
ENTER WITH 

C(xXT) m= TBLOCK-ADDRESS 

C(xXyJ) = JOB@CONTROL@BLOCK=ADNRESS 
CALLS 

QSP 

FILL 

OSV 

TSRELT 
USES NO TEMPORARIES ITSELF 
Bss 0 
P (JSEMPTY,J) DO A DOWN ON THE NUMMER OF EMPTY gUFFERS 
EAX Qe JSEMPTYsJ 
TSX LeQSP 
FILL FILL THIS BUFFER 
TSX Le SFILL 
V (JSFULL.J) DO AN UP ON NUMBER OF FULL BUFFERS 
EAX Qe JSFULLeJ 
TSX Leg$y 
LDA JSFLAGSeJ GEry JOB sTATUS FLAGS 
CANA BSENDRsDL TEST FOR DONE 
TZE RTASK YES» BY HOOK OR CROOK 


DONEs EVAPORATE PROCESSOR 


8Ss 0 

RELT RELEASE TBLOCK 
TSX Oso TSRELT 

EXIT POOF. 


TRA SEXIT 
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WRITE TASK #= WRITE 


n92516 S8G4 USE CODE 
3802 HEAD 
3803 * 
3804 * 
3805 »* WRITE 
3806 * 
3807 * 
3808 WRITE MACRO <NO#ARGUMENTS> 
3809 TSX Le SWRITE GALE SUBRUTITINE” 
3810 ENDM WRITE 
3811 * 
3612 * 
3813 * WRITE #= SUSROUTINE 
3814 *# 
3815 * 7 
3816 * THIS SUBROUTINE DOES THE IssuING OF THE APPEND PRIMITIVE 
3817 * TO TRANSFER THE DATA TO THE CUTPUT DEVICE, IT DOES ALL nF 
3818 * ITS OWN ERROR RECOVERY. 
3819 * 
3820 * 
3821 * ENTER wITH 
3822 * CixXJ) = JBC#ADDRESS 
3823 * C(xXT) # TBLOCK#ADDRESS 
3824 « C(TSTEMPi,T) #@ STARTING ADDRESS 
3825 * C(YSTEMP2eT) ® NUMBER TO SEND 
3826 * C(TSTEMP3sT) = MODE 
3827 * ENTER BY 
3828 * TSX LawWwRITE 
3829 * CALLS. 
3830 * $APEND 
S831 * CSMESSX (CONDITIONALLY) 
3832 * RETURN TO 
3833 * TRA Del 
3834 * RETURN WITH 
3835 * C(xXJ) = JBLOCK=ADDRESS 
3836 * C(xXT) # TBLOCKeADDRSS 
3837 * C(XL) = RETURN@AQDRESS 
3838 * USES 
3839 * NO LOCALS 
3840 * TEMP1, TEMP2, TEMP3 ARE PASSED TO IT 
3841 * TEMP4. TEMPS (CONDITIONALLY) 
3842 * 
38435 * 
3844 » 
002316 3845 wrRITE 8s8 0 
END OF BINARY CARD LPCP0065 
002316 000022 7470 11 3846 STX .... Le TSTEMPG6eT SAVE RETURN ADDRESS 
002317 900017 4500 16 3847 stz JSRTRYST RESET ERROR COUNTER 
002320 000000 2350 16 3848 LDA JSFLAGS.J GET FLAG BITS 


002321 900200 3150 07 3849 CANA BSCP,LL Is IT A CARD PUNCH JN89? 


MBR OL 09917271 10764 LINE PRINTERY CARD PINCH MODULE PAGE 119 


WRITE TASK = WRITE 


002322 002327 6000 oo 3850 TZE WT 1 NO. GO wRITE IT OUT 
092323 on0004 234n 16 3851 SZN JECARDI,J YES» WELL IS IY THE FIRST? 
092324 02327 6010 40 3852 TNZ WwTt NO». GO WRITE 17 OUT 
002325 o00nN04 5540 16 3853 sTCci JSCARDI sg YES» MARK 1T AS SCUH 
002326 002357 7100 90 3854 TRA WT2e1 TELL OPER TO REMOVE CARDS AND REaDy PUNCH 
002327 3855 WTl APEND (JSOFRNe J) s(TSTEMPL oT so (TSTEMP2nT) a (TSTEMP3eT) 
0902327 000551 7000 oO TSX O,SAPEND 
002330 006003 Goto 16 ARG JSOFRNeJ 
002331 000027 co00 11 ARG TSTEMP1LT 
002332 000026 ooctn 11 ARG TSTEMP2,T 
002333 no0025 cnoo0 11 ARG TSTEMP3,1T 
002334 3856 CHECK WT 4eBS37eWT 1 sBSHNWE eWT2 
002334 oo90000 7200 114 LXL OsTSSRW1eT 
002335 000077 3600 43 ANX Os 8SST4Ke.DU 
002336 002430 6000 n0 TZE WT4 
092537 900003 1000 93 CMPx Os BSR7,DU 
002349 696902327 6000 no TZE WT1 
002341 000012 1000 03 CMP X Os8SHDWEsDU 
002342 002344 6000 oo TZE WT2 
002343 777777 7100 oo TRA SERROR 
002344 3857 wTt2 Bss 0 HARDWAPE ERROR 
3858 * 
3859 * HARDWARE ERROR 
3860 * 
END OF BINARY CARD LPCPI066 
ON2344 O00001 7220 11 3861 LXL Xe TSSRW2eT GET PHYSICAL STATUS 
002345 gon000 235n 16 3662 LDA JSFLAGS,J IT IS A PRINTER 
002346 900400 3150 97 3863 CANA BSLP.DL OR PUNCH ERROR 
002347 902357 6000 oO 3864 TZzE WT 201 PUNCH ERROR == ALWAYS DO ACCEPT ATTENTION 
002350 000020 3020 o3 3865 CANX2 2020.1 aaxGDP TESTaes 
002351 002357 6010 oO 3866 TNZ WT2,1 YESs DO AN ACCEPT ATTENTION 
002352 9000017 6540 16 3867 Aos JSRTRY*] BuMP RETRY COUNT 
002353 000017 2380 16 3868 LDA JSRTRyoJ GEy CURRENT COYUNT 
092354 qoo0005 1150 97 3869 CMPA SRTMAXSDL COMPARE TO MAX 
002355 902327 6020 oo 3870 TNC wT OK *= RETRY AGAIN 
002356 902430 7100 o6 3871 TRA wT4 NOPE == SKIP ENTIRE ALOCK 
002357 3872 WT2.1 BSS ) DO ACCEPT ATTENTION 
002357 900006 2220 11 3873 LDX Xe TSNCO4T GET PTR TO NCB 
002360 090031 2350 12 3874 LDA CSSTATESX GET STATE FOR CAUSE 
002361 100024 7550 41 3875 STA TSTEMP4,T SAVE For STATE 
092362 000016 7220 16 3876 LXL Xe JSRES,J GEY DEVICE PTR 
002363 nn0000 2350 12 3877 LDA RSNAMESX GET NAME 
002364 900007 3750 07 3878 ANA 7oDL ISOLATE UNIT NUMBER 
002365 000022 7350 oo 3879 ALS 18 MOVE TO MESSAGE FIELD 
002366 016000 2750 03 3880 ORA BSRDY.DU MARK IT TO BE READIED 
002367 090023 7550 11 3881 STA TSTEMPS,T SAVE FOR MESSAGE 
002370 3882 BRANCH NOPASSsCEMESSXs (TSTEMPG4,T) o (TSTEMPS 21) 
002376 001325 7000 oO TSX Os, TSGETT 
092371 000000 6220 41 EAX Xe0eT 


END OF BINARY CARD LPCP9067 


MBR 


END 


Ji 09"17=71 


002372 conocsd 
002373 cono24 
002374 of0027 
002375 9n0023 
002376 900026 
002377 onoco0s 
002400 001613 
002401 o00004 
002402 900004 
002403 9003262 
002404 900005 
0N2405 525250 
002406 525250 
092407 525251 
002410 o00024 
092411 000024 
002412 525252 
002413 070023 
002414 900023 
002415 900551 
002416 900003 
002417 ogo0000 
OF BINARY CARD 
002420 6000000 
002421 000001 
002422 nCc0000 
002423 000077 
002424 0902327 
002425 900003 
002426 0902415 
002427 777777 
002430 000022 
002431 525253 


120784 


2210 12 
S360 41 
7560 12 
2360 11 
7560 12 
6210 12 
6200 00 
7400 11 
6200 11 
7170 00 
2210 12 
002405 
525250 
2200 08 
2220 03 
002407 
525251 
2200 03 
7460 11 
4400 11 
002412 
525252 
2200 03 
7400 11 
4400 11 


N02415 
7000 00 
0900 16 
0000 903 
LPCP0068 
coco a3 
0000 93 

002422 
7200 11 
3600 03 
6000 00 
1000 OS 
6000 00 
7100 00 


002430 
2270 11 

002431 

525253 
2200 O3 


3883 


3884 


3885 
3886 


3887 
3888 


3889 


3890 
3891 
3892 
3893 
3894 
3895 


BUGBUG 


BUGBUG 


BUGBUG 


* 
wrs 


* 
i] 
® 


wr4 


BUGBUG 


LDX 
Loa 
§T9 
LD9 
STQ 
EAX 
EAX 
STX 
EAX 
XED 
LOX 
BUGXR 
SET 
LOX 
LDX 
BUG 
SET 
LDX 
STX 
SX 
BUG 
SET 
LDX 
STX 
Sxl 


NOW PuT 


APEND 
TSX 
ARG 
ARG 


ARG 


ARG 


CHECK 
LXL 
ANX 
TzE 
CMPX 
TZE 
TRA 


LINE PRINTERY CARD PUNCH MITULE 


WRITE TASK © WRITE 


Teo TELINKsX 
TSTEMP4,T 
TSTEMPLSX 
TSTEMPS,T 
TSTEMP2,Xx 
Ta OoX 

Os CSMESSX 
Os TSTRAST 


veuDorPsTel 


OSXADD+Q$TASK 


Ta TSLINKsX 
(00X) 
BUGBUGe1 
OsBUGBUGsDU 
X»ByGBuUGs»DU 
(TSTEMP4eT) 
BUGBUGe], 

Os, BUGBUGs.DU 
Os TSTEMPS5T 
OsTSTEMP4s5T 
(TSTEMP5eT) 
BUGRUG+, 
OsBUGRUGs DU 
Os TSTEMp5S aT 
Os TSTEMPS aT 


Out AN ACCEPT ATTENTION ON DEVICE 


(JEOFRNe J) eo (OsDUd so (DeDU ps (1eDY) 


Os SAPEND 
JSOFRNSJ 
Os.DuU 


0,DuU 

1,0U 
WT1,8$887,wT3 
Os TSSRW1oT 
OsBSSTMKeDU 
WT 
0sB8S$BZs.DU 
wWTt3 

SERROR 


SUCCESSFUL TRANSFER» CLEAN uP 


Bss 


LDX 


BUG 
SET 
LDX 


0 
LeTSTEMP6O0T 
(TETEMPy5T) 
BUGRUG+1 
OsSUGBUGs DU 


RETRIEVE RETURN ADDRESS 
BUG EVERYTHING 


PAGE 
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MBR 


END 


O1 O9"37=71 


002432 
092433 


002434 
002435 
002436 


002437 


002440 
002441 


002442 
002443 
002444 
002445 


525254 
000026 
000026 


525255 
000025 
000025 


525256 
525256 
525256 
525256 


OF BINARY CARD 


002446 
002447 


002450 
002451 


002452 


002453 
002454 


525257 
000022 


525260 
525260 


525261 


525261 
000000 


10.764 


7400 11 
4400 11 


0N2434 
525254 
2200 03 
7400 114 
4400 11 
002437 
525255 
2200 03 
7400 11 
4400 11 
002442 
525256 
2220 03 
2230 03 
2240 og 
2250 03 
002446 
525257 
LPCP0069 
2200 03 
7400 11. 
002450 
525260 
2350 03 
2750 97 
002452 
525261 


(2360 03 


2760 07 
7100 17 


LINE PRINTER/ CARY PUNCH MODULE 


3896 


3897 


3898 


3899 


3900 
3901 


3902 


WRITE TASK == WRITE 


BUGBUG 


BUGBUG 


BUGBUG 


BUGBUG 


BUGBUG 


BUGBUG 


STX 
SXt 
BUG 
SET 
LDX 
STX 
Sxl 
BUG 
SET 
LDX 
STxX 
Sxb 
BUGXR 
SET 
LOX 
LDx 
LDX 
LDX 
BUGU 
SET 


LOX 
STx 
BUGA 
SET 
LDA 
ORA 
BUGQA 


SET 


LDQ 
ORO 
TRA 


Os TSTEMPZoT 
OsTSTEMPIsT 
(TSTEMP2.sT) 
BUGBUG+41 

OsRUGBUGs DU 
OsTSTEMp2stT 
Os TSTEMP2eT 
(TSTEMP3eT) 
BUGBUG41 

OsBUGBUGsDU 
Os TSTEMp3sT 
Os TSTEMPSeT 
(XeVoZe0) 

BUGBUG+1 

XsBUGBUGsDU 
Ye ByuGBUGs DU 
ZeBUGBUGs DU 
OeBUGBUGs DU 
(TSTEMP6eT) 
BUGBUG+1 


OesByGByGeDy 
Os TSTEMP65T 


BUGBUG4, 
BUGBUG. DU 
BUGBUGs.DL 


BUGBUG+s 4 
BUGBUG, DU 
BUGBUGS.DL 
Ook 


RETURN TO CALLER 


PAGE 
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092455 


LINE PRINTER/Y CARD PUNCH MOUULE PAGE 122 


3964 
3905 
3966 
3907 
3908 
3909 
3910 
S911 
3912 
3913 
3914 
3915 
3946 
3917 
3918 
3919 
3920 
3921 
3922 
3923 
3924 
3925 
3926 
3927 
3926 
3929 
3930 
3951 
3932 
3933 
3934 
3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3948 


WRITE TASK #= 320 OUTPUT MOUE 


*# e+e £42 @£@ ® #8 #¢ H# # & BH FE 


eeene epteeneeen ete eee ene eee en teense 


USE CODE 
HEAD 


320 QUTPUT MODE 
GECOS FORMAT 


THIS SUBROUTINE OUTPUTS THE BUFFER IN 329 LINE EDITED 
FORMAT TT aceuMES CTANMaQ GFAG avaTeM ENomays 
BLOCK SIZE ee DATA BLOCKS ARE VARIABLE IN LENGTH UP TO A 
UP TO A MAXIMUM BLOCK SIZE OF 320 WORDS (DECIMAL), 
BLOCK SERIAL NUMBER*= A BLOCK SERIAL NUMBER WILL EXIST aS 
THE FIRST WORD OF EACH DATA BLOCK AND WILL CONTAIN TWO 
BINARY VALUES AS FOLLOWSs 
BITS o = 17 BLOCK SERIAL NUMBER = THE SPEQUENTIAL NUMBER 
BITS 18 #35 BLOCK SIZE = SIZE OF RLOCK IN WORNS, NOT INCLUDING 


ITSELF 
RECORD FORMAT #= RECORDS WITHIN &A BLOCK ARE VARIABLE LENGTH 

BITS G = 17 RECORD SIZE IN WORDS» NOT INCLUDING ITSELF 
BITS 18= 23 NOT USED UNLES 0 = 17 ARE ZERO, THEN FILE MARK CHAR 
BITS 24 =27 ZEROS 
BITS 28=29 LOGICAL RECORD CODE 

0 = NOT A MENIA CONVERSION RECORD 

1 # BINARY CARD IMAGE 

2 = HOLLERITH CARD IMAGE 

3 sw PRINT*SLINE IMAGE 
BITS 302 35 REPORT CODE 


ENTER wITH 
CiXJ) =» JCB-ADDRESS 
C(XT) # TBLOCK=ADDRESS 
ENTER BY 
TRA TABLESAL® (TYPE) 
WRITE 
RETURN WITH 
C(XT) = TBLOCK#ADDRESS 
C(xy) = JCBeADDRESS 
RETURNS TO EMPTI 
UsES 
NO LOCALS 
TEMP1 IS PASSED 
TEMP2. TEMP3s TEMPE 


MBR OL O9—17=71 10.764 LINE PRINTER/S CARD PUNCH MODULE PAGE 123 


WRITE TASK *= 320 OUTPUT MOOF 


3950 * 
3951 * 
3952 * 
002455 3953 320 Bss ) 320 WORD BLOCK prROCESSOR 
002455 3954 GECOS sss 0 PRINT*LINE/S GECOS FORMAT 
002455 000014 2220 36 3955 LDX Xe ISWETRe Je GET OUTPUT BUFFER ADDRESS 
002456 00010 7420 16 3956 STX Xo JSXDATASJ SAVE AS END OF BUFFER 
002457 onn000 7240 12 3957 LXL Z200X GET BLOCK SIZE 
0024690 on0500 io4o go3 3958 CMPX Z2320.DU 1S IT VALID? 
002461 002520 6036 40 3959 TRC GCos4 NOs TON BIG 
002462 000001 0240 03 3960 ADLX ZelsDu INCLUDING ITSELF 
002463 000010 0440 16 3961 ASX Zo J$yDATAsJ UPDATE END OF BUFFER POINTER 
002464 0092470 7100 oo 3962 TRA GCOss ENTER LOOP 
3963 * 
3964 * OuTPUT NEXT LINE 
3965 * 
002465 3966 GCOsi 855 ts) 
002465 000007 2240 16 3967 LDX Zo JEROWS J GET ADDRESS OF OLD RCW 
002466 on0000 2220 14 3968 LOX Xo0oZ GET LENGTH OF RCW 
002467 900007 0220 16 3969 ADLX Xe JSRCWSJ TO COMPUTE ADDRESS OF NEXT RCW 
002470 3970 GCOoss sss 0 
0024790 oC0001 O22n O3 3971 ADLX XetsDu INCLUDE 2CW ITSELF 
002471 gon007 7420 16 3972 STX Xs JSRCW. J AND SAVE IT 
002472 oon001 0220 03 3973 ADLX XeteDi! ONE AGAIN TO POINT TO STARTING ANDRESS OF DATA 
END OF BINARY CARD LPCPO070 
002473 000027 7420 11 3974 STX Xp TSTEMP1 oT SAVE FOR WRITE SUBROUTINE 
002474 900007 2220 36 3975 LDX Xe JSRCWSJe GET NUMBER OF WORDS IN THIS RCW 
002475 002520 6000 00 3976 TZ2E GCO0S4 ZERO» DONE WITH THIS BLOCK 
002476 900027 5220 11 3977 ADLX Xp TSTEMP oT TEST FOR VALID LENGTH 
002477 00010 1020 16 3978 CMPX Xo JISXDATASJ 
002500 002502 6000 a0 3979 TZE 42 
002501 002520 6030 oo 3980 TRC GCOS4 NGe DONE 
0N2502 000007 2360 36 3981 LDG JSRCW, Je GET BACK LENGTH 
002503 on0022 7720 00 3982 QRL 18 IN QL 
002504 0900067 2350 36 3983. LDA JSRCWsJe GET LOGICAL RECORD MODE 
002505 001700 3750 07 3984 ANA BSMODMKSDL MASK TO MEDIA ONLY 
002506 900006 7710 00 3985 ARL 6 AND RIGHT JUSTIFIED 
002507 000000 7220 16 3986 LXL Xo ISFLAGSsJ GET JOB STATUS BITS 
002510 000400 3020 03 3987 CANX XsBSLP.DU 1S IT A PRINTER JOB? 
002511 003232 6000 25 3988 TZE CPTABLAL® NO» BRANCH ON CP MODE 


002512 003225 7100 25 3989 TRA LPTABsAL® SRANCH GN LP MODE 


Iw te 


MBR OL O9—47=74 
002513 oo0000 
002514 900026 
002515 000025 
002516 002316 
002517 002465 
002520 000022 

END OF BINARY CARD 
002521 525262 
002522 525262 
002523 525262 
002524 525262 
002525 525262 
002526 525263 
002527 525263 
002530 525264 
002331 525264 
002532 002622 


192764 


002518 
6360 06 
7560 11 
7420 11 

002516 
7070 00 

002517 
7100 00 


7270 11 
N02521i 
525262 

LPCPOO71 

2200 03 

2220 03 

2230 03 

2240 03 

2250 03 
002526 
525263 

2350 03 

2750 07 
002530 
525264 

2360 03 

2760 97 

7100 00 


LINE PRINTER/ CARD PUNCH MODULE 


3991 
3992 


3993 
3994 
3995 
3996 
3997 
3998 


3999 
4000 
40C1 
4062 


4003 
4004 


4005 


4066 


4007 


4006 


WRITE TASK *=* 320 OUTPUT MOUE 


GCOs4 


BUGBUG 


BUGBUG 


BUGBUG 


@ss 
EAQ 
STQ 
STX 
WRITE 
TSK 
8SS 
TRA 


fe) 

Oo9L 
TSTEMP2,T 
Xe TSTEMPIeT 


Le PWRITE 
0 
GCOS! 


INFORMATION wrRITTEN 


LXL 
BUGXR 
SET 


LDx 
LDxX 
LDX 
LDX 
LOX 
BUGA 
SET 
LDA 
ORA 
BUGG 
SET 
LDO@ 
ORG 
TRA 


Lo TSTEMp6eT 


(O09X%eYoZ2Q) 
BUGBUG+, 


Os8yuGBuUGeDU 
XeBUGBUGs, DU 
YsBUGBUGsDU 
ZseBUGEUGS DU 
Os8UGBUGS.DU 


BUGBUG4i 
BUGBUG.DU 
BUGBUGS*DL 


BUGBUG41 
BUGBUG. DU 
BUGBUG. DL 
EMPTI 


PAGE 


JOINED HERE FROM ABOVE TRANSFERS 
MOVE CKARACTER COUNT TO QU 

SAVE FOR WRITE 

SAVE MODE 

NOW WRITE IT OUT 


Lane 


RETRIEVE RETURN 


RETIJRN FROM WHENCE CALLE? 


124 


MBR 


END 


O1 09847=7j 

093225 902534 
0038226 902564 
003227 992534 
0038230 002534 
003231 002564 
002533 002564 
003232 002542 
003233 902550 
093234 992556. 
OF BINARY CARD 
003235 992556 
003236 992564 


100754 


092533 


003225 

003225 
coco 00 
9000 00 
6000 00 
0000 00 
0000 20 

0025383 
6000 00 


003232 

003232 
0000 00 
00C0 00 


9000 00 


LPCPO0072 

0000 00 
093236 

0000 20 
002534 


LINE PRINTER, CARD PUNCH MODULE PAGE 125 


4010 
4011 
4012 
4613 
4014 
4015 
4016 
4017 
4018 
4019 
4020 
4021 
4022 
40923 
4024 
4025 
4026 
4027 
4028 
4029 
4030 
ans 
4032 
4033 
4034 
4035 
4036 
4037 
4038 


4039 
4040 
4041 
4042 


WRITE TASK == 320 FORMAT CONVEPSIONS 


¢2e 2 82 &#© 8 & 


LPTAB 


a»eee @ & 


CPTA8 


USE CODE 
HEAD 
GECOS FORMAT CONVERSION 


ONE BRANCHES THOUGH THIS TABLE yO PICK UP THE CORRECT 
CHARACTER COUNT AND MODE FOR PRINTING A 320 BLOCK, 


use CONST 

BSS 0 

ARG LP.O NOT A MEDIA CONVERSION RECORD 
ARG IGNOR BINARY CAR IMAGE 

ARG LP.2 HOLLERITH CARD IMAGE 

ARG LP.3 PRINT LINE 

ARG IGNOR,* 

USE PREVIGUS 

ARG IGNOR NOT IMPLEMENTED 


ONE BRANCHES THOUGH THIS TABLE tO PICK UP THE CORRECT 
CHARACTER COUNT AND MODE FOR PUNCHING A 320 BLOCK, 


use CONST 

BSS 0 

ARG CP.0 NOT A MEDIA CONVERSION RECORD 
ARG CPel BINARY CARD IMAGE 

ARG CP.e2 HOLLERITH CARD IMAGE 

ARG CP.3 PRINT LINE 

puP 1e16=-4 

ARG IGNORs* 


USE PREVIOUS 


MBR 


END 


OL 09847=714 

002534 000006 
092535 o10000 
002536 002540 
002537 o10000 
002549 900003 
002544 992513 
002542 002564 
002543 00016 
OF BINARY CARD 
002544 992556 
092545 9090033 
002546 90255¢ 
002547 9902564 
002550 000006 
002551 000240 
002552 002554 
002553 000240 
002554 qn0002 
002555 992513 
002556 o00006 
002557 go0120 


10 e¢764 


N02534 


002534 
002534 
002534 

4020 07 

1160 07 

6020 00 

2360 07 

2220 03 

7100 00 


002542 


7100 00 


1160 07 
LPCPO073 
6000 00 
1160 07 
6000 00 
7100 20 


002550 
4020 07 
1160 07 
6020 00 
2360 07 
2220 03 
7100 00 


002556 

002556 
4020 07 
1160 07 


LINE PRINTERY CARD PUNCH MODULE 


4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 


4076 
4077 
4078 
4079 
4080 
40a 
4082 
4083 
4084 
4085 
4086 
4087 
4088 
4089 
4090 
4091 
4092 


PAGE 


WRITE TASK |= 320 OUTPUT PARAMETER -ROUTINES 


*eeeee 


reef + #@ eH hUelULhlU hl 


CPel 


USE 
HEAD 


CODE 


PARAMTER ROUTINES 


THESE ROUTINES BASED ON THE LOGICAL RECORD MODE PICK 
RETURN THE NUMBER OF CHARACTERS TO SEND AMD THE MODE, 


ENTER WITH 
C(9L) # NUMBER OF WORDS 
RETURN TO 


BSS 
BSS 
BSS 
MPY 
CMPQ 
TNC 
LD@ 
LDX 
TRA 


Bss 
TRA 
CMPQ 


TZE 
CMPQ 
TZE 
TRA 


Bss 
MPY 
CMPaQ 
TNC 
LD@ 
LDX 
TRA 


BSss 
Bss 
MPY 
CMPO 


GCOS7 EXCEPT IGNOR RETURNS TO GCOS4 
RETURN WITH 
Cc(QL) = NUMBER OF CHARACTERS TO PRINT 


CixXx) = MODE 


0 

0 

0 

650L 
4096,DL 
*42 
4096.DL 
XeBSLP3.DU 
GC987 


0 
IGNOR 
14sDzL 


CP.2 
27eDL 
CP el 
IGNORs* 


0 

6eDL 
160eDL 

#42 

160eDL 
XeBSCP2,DU 
GC087 


NOT A MeDyA CONVERSION RECORD 
ROLLERITH CARD IMMAGE 

PRINT LINE IMAGE 

CONVERT TO CHARACTER COUNT 
TEST AGAINST MAX 

OK 

GET MAX INSTEAD 

GET MODE 

RETURN 


NOT A MEDIA CONVERSION RECORD 
aaneFOR NOW 
TEST FoR 8CD 


YES 
TEST FOR BINARY 
YES 


BINARY CARD IMAGE 

CONVERT TO CHARACTER COUNT 
TEST AGAINST MAX 

OK 

GET MAX INSTEAD 

GET BINARY MODE 

RETURN 


AGLLERETA EMAGE 


CONVERT TO CHARACTER COUNT 
TEST AGAINST MAX 
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OL 09"17=71 


002560 
002561 
002562 
002563 


002564 


002562 
000120 
000008 
002513 


o02520 


102764 LINE PRINTERS CARD PUNCH MODULE PAGE 


WRITE TASK #= 320 OUTPUT PARAMETER ROUTINES 


6020 00 4093 TNC "+2 nK 
2360 17 4094 LDQ B80e0DL GET MAX INSTEAD 
2220 03 4095 LDX XeBSCr3.DuU GET HOLLERITH monde 
7100 00 4096 TRA GC0S7 RETURN 

4097 * 

4098 * 

002564 4099 IGNOR’ BSS 0 IGNORE ENTIRE SLOCK 

7100 nO 4100 TRA GC9S4 RETURN AS IF DONE 
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MBR OL Ageize71 
002565 000000 
002566 000400 
002567 777777 
002570 006000 

END OF BINARY CARE 
002571 000026 
002572 000002 
002573 oco0025 
0025374 002316 
0025875 002622 


19,764 


092565 


002565 
002565 
2350 16 
3150 07 
6000 00 
2220 03 
002571 
LPCP0074 
7420 11 
2230 03 
7430 11 
002574 
7070 00 
7100 00 


LINE PRINTERS CARY PUNCH MODULE 


4102 
4103 
4104 
4105 
4106 
4107 
4108 
4109 
4110 
4111 
4ii2 
4113 
4114 
4115 
4116 
4117 
4118 
4119 
4120 
4121 
4122 
4123 
4124 
4125 


4126 
4127 
4126 
4129 


4130 


WRITE TASK == 512 OUTPUT MODE 


se e8#t+8¢ # &#£@ ¢ + & Be SSH 


* 


LP1 


USE 
HEAD 


CONTINOUS MODE, 


ENTER WITH 


ENTER BY 


RETURNS 


BSS 
BSS 
LDA 
CANA 
TZE 
LDX 
BSS 


STX 
LDX 
STX 
WRITE 
TSX 
TRA 


PAGE 
CODE 
LP512 OurPur MONE 
THIS SUBROUTINE OUTPUTS THE BUFFER IN 512. wORDS EDITED 

IT SETS UP ALL THE PARAMETERS 
C(XJ) = JCB@ADDRESS 
C(XT) = TCB<ADDRESS 
TRA TABLEsAL (TYPE) * 
TO EMPTL 
0 512 wOrD BLOCK PROCESSOR 
0 
JSFLAGS.J GET JOB STATUS BITS 
BSLP.DL SHOULD BE A PRINTER JOB 
SERROF IT ISNT] 
Xn 5126,DU SET UP CHARACTER COUNT 
0 
Xs TSTEMP2eT SAVE FOR APPEND 
YeB8SLP2,DU USE 512 EDITED CONTINOUSs NO SLEw 
Yo TSTEMP35T PaSS ON TO WRITE ROUTINE 

. Do THE were 

LeSWRITE 
EMPT) RETURN TO EMPTY ROUTINE 


12a 


MBR OL 09"37=71 
002576 on0004 
002577 100014 
on2600 000001 
002601 non002n 
002602 062604 
002605 900020 
002604 900014 
092605 coonoe 
002606 962656 
002607 900027 


190764 


(02576 


002576 


4470 
2220 
0220 
1020 
6020 
7220 
7420 
2350 
6000 
7550 


11 


LINE PRINTER, CARY PUNCH MODULE 


4132 
4133 
4134 
4135 
4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 
4146 
4147 
4148 
4149 
4150 
4151 
4152 
4153 
4154 
4155 
4156 
4157 
4158 
4159 
4160 
4161 
4162 
4163 
4164 
4165 
4166 
4167 
4168 
4169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
4180 
4141 


PAGE 


WRITE TASK == EMPTY 


maeeeeses 


MPTY 


ms*#e*2t+#et+eteeeeseneeeene se ee een ee te oe 8 8 


MpTY 


USE 
HEAD 


CODE 


EMPTY 


EMPTY FORCES THE OUTPUT OF A CORE BUFFER 


MACRO <NO@ARGUMENTS> 
TSX La SEMPTY CALL SUBROUTINE 
ENDM EMPTY 


EMPTY =< SUSROUTINE 


THIS SUBROUTINE DOES THE ACTUAL WRITING OF THE OUTPUT. IT 
1S CHARGED WITH THE WRITING THE CORRECT NUMBER OF UNITS 

IN THE PROPER FORMAT TO THE OUTPUT FILE (DEVICE). IT THEN 
DE-ALLOCATES THE BUFFER, JT HANDLES ALL ERRORS AND RETURNS 
A JOB STATUS TO THE CALLER. 


ENTES witu 
CixXJt) =» JCBeADDRESS 
C(XT) = TBLOCK=ADDRESS 
ENTER BY 
TSX LsEMPTY 
CALLS 
0512 
0320 
WRITE 
RETURN WITH 
C(XJ) = JCBeADDRESS 
C(XT) # TBLOCK=ANDRESS 


EXIT TO OoL 
usEs 
NO LOCALS 
TEMPi1, TEMP25 TEMPS 
BSS 0 
SX LeTSTRAaT SAVE RETURN ADDRESS 
LOX Xo JISWPTRSJ GET OLD SUFFER POINTER 
ADLX Xe ileDuU BUMP TO NEW 
CMPX Xs JSRESETsJ TEST FOR WRAP 
TNC #42 OK 
LXL Xo JSRESETSJ WRAP 
STX Xe JSWPTRSJ SAVE NEW POINTER 
LDA OX GEY ADDRESS OF NEXT QUFFER 
TZE EMPTY NONE 
STA TSTEMP1,T SAVE FOR EASY ACCESS 
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END 


END 


OL O99{7=71 


00261G occoor 
ON2611 400006 
O0N2612 102622 
002613 1900007 
002614 002640 
002615 o10000 
OF BINARY CARD 
002616 co0036 
002617 a02620 
0N262c 902565 
002621 9002455 
002622 000006 
092623 ocoola 
002624 901110 
002625 00004 
092626 525265 
002627 525265 
002630 525266 
002631 525266 
002632 525267 
002633 525267 
002634 525267 
002635 525267 
002636 525267 
002637 g9000C 
002649 000001 
092641 00006 
092642 1000900 
002643 00000 
OF BINARY CARD 
002644 900400 
002645 90265n 
092646 990520 


11764 LINE PRINTERY CARD PUNCH MODULE 


WRITE TASK #= EMPTY 


YES» Just RELASE BUFFERS TILL EOF HIT 


PAGE 


TRANSFER TO OUTPUT FORMAT ROUTINE 


JOINED HERE By ALL OUTPUTER 
RUMP RESTART ADDRESS IN 8SLOCK 
RELEASE BUFFER» FORCE HOLES TO TOP OF MEM 


GET READY TO RETURN TO CALLER 


BUG ALL REGISTERS EXCEPT T AND J 


BaCK UP START ADDRESS FOR HEADER 


2350 16 4182 LDA JSFLAGS.J GET FLAGS 
3150 07 4183 CANA BSKILL»DL TEST FOR ABORT 
6010 00 4184 TNZ EMeTi 
3150 07 4185 CANA BSWHDRSDL NO wE NEED A HEANER? 
6010 00 4186 TNZ EMPT3 YES 
3750 03 4187 ANA BSOUTMK,DU ISOLATE OUTPUT FORMAT 
LPCPO0075 
7710 n0 4186 ARL 36-4=4-]4 RIGHT JUSTIFIED 
7100 25 4189 TRA *+1eAL* 
cocn oo 4190 ARG 0512 512 wORD 8LOCK 
9000 900 4191 ARG 2320 329 WORD BLOCK 
4192 * 
4193 * RETURN HERE AFTER OuTPUT Is COMPLETE 
4194 * 
002622 4195 EMPri ess 0 
0540 16 4196 AOS JSRSTRISJ 
002623 4197 RELC (JSWPTRsJ*) 
2350 36 LDA JSWPTReJ® 
7070 00 TSX LoRSRELC 
092625 4198 EMpT2 888 0 
7270 11 4199 LXL Lo TSTRAST RETRIEVE RETURN ADDRESS 
002626 4200 BUGA 
525265 BUGBUG SET BUGBUG4s1 
2350 03 LDA BUGBUG. DU 
2750 07 ORA BUGBUGS. DL 
0102630 4201 BUGQ 
525266 BUGRUG SET BUGBUG41 
2360 03 LDQ BUGBUG. DU 
2760. 07 ORQ BUGBUGsDL 
002632 4202 BUGKR (0aXe¥o200) 
525267 BUGRUG SET BUGRUG+! 
2200 a3 LDX Os BUGBUGs DU 
2220 03 LDX XeByuGByGeDu 
2230 03 LDX Ys 3UGBUGs. DU 
2240 03 DX ZsBUGBUGs DU 
2250 03 LDX Qs 8UGBUGs DU 
7100 417 42038 TRA Osl RETURN TO CALLER 
4204 * 
4205 * OuTPUT HEADER 
4206 * 
002640 4207 EMPr3 85S 0 LP BANNER 
002640 4208 DECRM (JERSTRT.J) 
3360 07 LCQ 1oDL 
0560 16 ASQ JSRSTRTSJ 
6750 07 4209 ERA BSWHDPRsDL TURN OFF WRITE HEADER BIT 
7550 16 4210 STA JSFLAGS,J SAVE IT 
LPCP0076 
3150 07 4211 CANA BSLP.DL SEE HERE HEADER IS TN GO 
6090 00 4212 TZE EMPT4 CARD PUNCH 
2220 03 4213 LDX Xs LPHLNe6.DU LINE PRINTS 


GET NUBER OF CHARACTERS 


13” 


MBR 


Oy O09—47=74 


9002647 


092650 
0n2651 
9N2652 
002653 


002654 
002655 


092656 
002657 
002660 


0¢2571 


000240 
000026 
000002 
900025 


002316 
002622 


020000 


000000 
202625 


104764 


7160 00 
002650 
2220 03 
7420 11 
2230 a3 
7430 11 
002654 
79070 00 
7100 00 


002656 
235n 07 
2550 16 
7100 00 


LINE PRINTER/ CARD PUNCH MODULE 


4214 
4215 
4216 
4217 
4218 
4219 
4220 


4221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 


WRITE TASK == EMPTY 


EMPT4 


Sd] 
* 
2 
EMPTX 


TRA LP 

BSS 0 

LOX Xe CPHL Ne6=2.Dli 
STX Xe TSTEMP2eT 
LDX Ya2eDU 

STX Ya TSTEMP3aT 
WRITE 

TSX Le SWRITE 
TRA EMPT1 

EOF REACHED 

BSs 0 

LDA BSENDWsDL 
ORSA JSFLAGSs,J 
TRA EMPT?2 


PAGE 


USE LINE PRINTER ROUTINE 
OUTPUT HEADER ON CARD PUNCH 
PET NUMRER OF CHARACTERS 
SAVE 

MAKE MODE BINARY 

SAVE IT 

WRITE IT OUT 


DONE 


GIVE EOF STATUS 
GIVE IT TO CALLER 
ACT NORMAL 
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END 


OL 09817=71 


002661 
002662 


002663 


092664 


002665 
002666 
002667 
002670 


000012 
000751 


002576 


000011 
000772 
000000 
020000 
002661 


OF BINARY CARD 


002671 
002672 


002673 


000616 


000002 


000000 


19.764 


N02661 


002661 
002661 
6250 16 
7070 00 
002663 
7070 oO 
002664 
6250 16 
7070 00 
2350 16 
3150 07 
6000 00 
002671 


002671 
LPCP0077 
7000 00 
6000 16 

002673 
7200 11 


LINE PRINTERY CARY PUNCH MODULE 


WRITE TASK #= MAIN 


4230 USE CODE 
4231 HEAD 
4232 * 
4233 * 
4234 * WRITE TASK 
4235 * 
4Z36 * THIS SECTION OF CODE Is EXECUTED BY THE wrRITE TASK TO 
4237 * WRITE AN OUTPUT BUFFER TO PRE@CPENED FILE (DEVICE) 
4238 * IN A SPECIFIES FORMAT. if WILL WRITE OUT AS MANY BUFFERS 
4239 * AS TOLD» AND WILL KEEP OUTPUTTING UNITL AN END OF FILE 
4240 * STATUS IS REACHED. IT WILL THEM SEND A MESSAGE TO THE 
4241 * MONITOR NOTIFYING HIM OF A SUGEESSEUE TERMINATION AND 
4242 * THEN TERMINATE ITSELF. 
4243 * 
4244 * ENTER wITH 
4245 » C(XT) = TBLOCK@ADDRESS 
4246 * Cixyd) 2 JOB@CONTROL@BSLOCK#ADDRESS 
4247 » CALLS 
4248 * Q$P 
4249 * EMPTy 
4250 * OSV 
4251 * $CLOSE 
4252 * CSMESSC 
4253 * RSRELF 
4254 * JSRELJ 
4255 * TSRELT 
4256 * 
4257 * 
4258 WTAsk BSS 0 
4259 P (JSFULLSJ) DO A DOWN ON NUMBER OF FULL BUFFERS 
EAX Ge JSFULL oJ 
TSX Le ASP 
4260 EMPTY EMPTY THIS BUFFER 
TSX Le BEMPTY 
4261 V (JSEMPTYeJ) DO AN UP ON THE NUMBER OF EMPTY RAUFFERS 
EAX Qe, JSEMPTYSJ 
TSX Leadfv 
4262 LDA JSFLAGSeJ GEY JOB sTATtus FLAGS 
4263 CANA BSENDWs,DL TEST FOR DONE 
4264 TZE WTASK NO» LOOP 
4265 wTSk1 8SS 0 
4266 * 
4267 * DONE» CLOSE INPuT FILE 
4268 * 
4269 CLOSE (JSIFRNSJ) CLOSE INPUT FILE» WHICH ALSO UNLOCKS IT 
TSX Os SCLOSE 
ARG JSIFRNSJ 
4270 CHECK WTSK2e38BZeWTSK1 
LXL Os TSSRWisT 
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MBR 


END 


OL 09—17=71 


002674 900077 
092675 o62701 
092676 nno00038 
002677 902671 
0N270C 777777 
092701 014000 
002702 ocoon0e 
002703 400000 
002704 092707 
002705 co0006 
092706 4900 
092707 900026 
002710 000004 
002711 900017 
002712 000027 
002713 003430 
002714 0901325 
092715 ooo0000 
002716 ooo008 
OF BINARY CARD 
002717 000027 
092720 000027 
002721 oo0026 
002722 000026 
002723 ano0000 
092724 901613 
092725 ao0004 
092726 ooo0004 
092727 903262 
092730 900005 
092731 525270 
002732 525270 
092733 000016 
002734 0901433 
002735 000005 
002736 777777 
092737 go0002 
002740 }©=6n00060 


100764 LINE PRINTER/ CARD PINCH MODULE PAGE 
WRITE TASK @== MAIN 
3600 03 ANX OsBSST¥KsDU 
6000 00 TZE WTSK2 
1299 93 CMP Y A-2ER7, DU 
6000 00 TZE wTSKi 
7100 00 TRA SERROR 
002701 4271 wTSk2 BSS 0 
4272 * 
4273 »* INFORM MONITOR 
: 4274 * 
2350 03 4275 LDA BSDONEs Du AssuME syCCEssFuL 
2360 16 4276 LDQ JSFLAGS.J GET JOB NUMBER 
3160 07 4277 CANQ BSKILLSDL TEST FOR KILLED 
6000 00 4278 TZE 43 NOPE 
2350 16 4279 LDA JSRSTRT SJ GET RESTART ADDRESS 
2750 03 4280 ORA BSABOPRY,DU AND ABORTED 
7550 11 4281 STA TSTEMP2,7T SAVE AS MESSAGE 
7370 00 4282 LLS 4 WHICH WILL BE STATE FOR CAUSE 
3750 07 4283 ANA BSBJBMKSDL MASK TO JO8 NUMBER 
7550 11 4284 STA TSTEMPisT SAVE AS STATE 
4500 05 4285 . gtZ JSJTABS AL RESET JOB TABLE 
4286 * 
002714 4287 BRANCH NOPASSoCSMESSXo(TSTEMP1 eT)» (TSTEMP2eT) 
70C0 00 TSX Qs TSGETT 
6220 11 EAX Xa0eT 
2219 12 LDX Ta TSLINKaX 
LPCP0078 
2360 11 LDQ TSTEMP1s7 
7560 12 STO TSTEMP4 5X 
2360 11 LDQ TSTEMP2,T 
7560 12 STQ TSTEMP2,X 
6210 12 EAX Ta0eX 
6200 00 EAX Os CS$MESSX 
7400 11 STX Os TSTRAST 
6200 11 EAX Os QSOFFSTsT 
7170 00 -XED = OSXADDsOSTASK 
2210 12 LDX ToTSLINKoX 
002731 BUGXR (00X) 
525270 BUGBUG SET BUGBUG41 
2200 03 LDX OsBUGBUGsDU 
2220 03 LDx XesBuGPyGs.Du 
4288 * 
4289 * RELEASE RESOURCES 
4290 * 
002733 4291 RELp (JSRESeJ) RELEASE pERIpHERAL 
2350 16 LDA JSRES.J 
7070 00 TSX LaRSRELP 
2360 16 4292 LDQ JSBUFS2,J GET BUFFER SIZE 
3760 07 4293 ANOQ “15DL ONLY 
4020 07 4294 MPY JSNeDL TIMES NUMBER OF BUFFERS 
0760 97 4295 ADQ 2eTSLEN,DL PLUS TCB*S 
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END 


OL O9—17=71 


092741 ogoo000 
002742 orooen 
992743 oo332i 
092744 777777 
OF BINARY CARD 
092745 001357 
002746 001335 
002747 901547 


19.764 


5330 00 
6360 06 
6560 90 
6040 00 
002745 
LPCPO079 
7070 00 
002746 
7006 00 
002747 
7100 00 


LINE PRINTERS CARD PUNCH MODULE 


4296 
4297 
4298 
4299 
43¢0 


43q01 


4302 


WRITE TASK == MAIN 


NEGL 
EAQ 
ASQ 
TMI 
RELJ 


TSX 
RELT 
3X 
EXIT 

TRA 


0e9L 
MEMRG 
FERROR 
Leo JSRELJ 


Ca TSRELT 


PAGE 


GET 2°S COMPLEMENT 


MOVE TO QU 
REDUCE MEMORY REQUIREMENTS 
OOPSee 


RELEASE JCB 


RELEASE YCR 
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002750 


002751 
002752 
0027538 
002754 
002755 
002756 
002757 
002760 


002761 
002762 


002763 
002764 
002765 
002766 
002767 
002770 


0n2771 


000000 


000474 
003740 
003740 
000006 


004400 


000010 
003320 
003430 


000526 
0o000c 


000000 
000077 
002772 
000003 
002761 
777777 


001335 


100764 


002750 


002750 
902750 


002761 


7000 00 


0000 O83 
002763 
7200 11. 
3600 03 
6000 00 
1000 O83 
6000 00 
7100 00 
002771 
7000 00 


LINE PRINTER/ CARD PUNCH MODULE PAGE 
INITTALIZATION 
4364 USE CoDE 
4305 HEAD 
4306 * 
4307 * 
4308 * INITIALIZATION 
4309 * 
4310 * THIS ROUTINE INITIALIZES THE PERIPHERAL SCHEDULER 
4311 * MONITOR BY PERFORMING THE FOLLOWING FUNCTIONS.’ 
4312 * 
4313 * FUNCTIONS 
4314 * INITIALIZE REGISTERS AND LOCATION ZERO 
4315 * SET FAULT VECTOR 
4316 * SET UP COMMUNICATIONS NETWORK 
4317 * 
4318 * IT IS A NON@REENTRANT ROUTINE WHICH DOES NOY OVERLAP ANY 
4319 * OPERATION, I7 CAN SE OVERLAYED RY BUFFER STORAGE 
4320 * AFTER INITIALIZATION IF DESIRED (NOT IMPLEMENTED YET) 
432i * 
4322 ANIT 8S 0 INITIALIZATION ENTRY 
4323 uP EQU ANIT 
4324 * 
4325 »* CATCH wILD TRANSFERS 10 7ERO 
4326 * 
4327 sTtz 0 BURN OUR BRIDGES BEHIND us 
4328 CKPT SAVE REGISTERS 
xED XSCKPT 
4329 LDX Ts SPTCS.DU INITIALIZE T YO SPECIAL TCA 
4330 LDX Je SPTCS.DU AND MAKE J POINT TO SAME 
4331  SXb JoTSJC3ILT SAVE IT FOR SEXIT 
4332 LOI BSOVM+8$PAMsDL MASK OFF OVERFLOW AND PARITY ERRARS 
4333 LDA Z2Z1eDuU INITIALIZE TO AVAILABLE MEMORY 
4334 STA SAVAIL 
4335 sTci JSITAS MAKE JOB NUMBER 0 ILLEGAL 
4336 * 
4337. _* SET FAULT VECTOR 
4338 * 
4339 ANITL sSETFV (x8FyeDu) SET FAULY vECTOR 
TSX OsSSETFV 
ARG X$Fvs.DU 
4340 CHECK ANIT2s9S$BZsANIT1 
LXL Os TSSRWisT 
ANX Os BSSTMKs.DU 
TZE ANIT2 
CMPX OsRS$BZeDU 
TZE ANIT! 
TRA SERROR 
4341 RELT RELEASE TC8 


TSX Os TSRELT 
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END 


END 


OL O9"17=71 

OF BINARY CARD 
002772 003450 
092773 nonncé 
002774 01325 
002775 ncocoe 
002776 nonnoSs 
0N2777 9101644 
005000 00004 
003001 oo0004 
003002 9003262 
003003 non0on 
003004 525271 
093005 525271 
005006 001335 
003007 o60351¢ 
005010 000006 
003011 001325 
005012 900000 
onso1s = ono00s 
005014 001644 
093015 ooo004 
0050316 9000004 
003017 003262 


OF BINARY CARE 


008020 900000 
093021 525272 
003022 525272 
003023 601335 


19.764 


002772 
LPCPO080 
2210 03 
7260 11 

092774 
7090 900 
6220 11 
2210 12 
6200 n0 
7400 11 
6200 11 
7170 oo 
6210 12 

103004 

525271 
2200 03 
2220 03 

003006 
7000 00 


2210 03 
7260 11 
O03011 
7000 00 
6220 11 
2210 12 
6200 00 
7400 11 
6200 11 
7170 00 
LPCPO081 
6210 12 
003021 
525272 
2200 as 
2220 03 
003023 
7000 00 


LINE PRINTERY CARD PUNCH MODULE 


4343 
4344 


4345 
4346 
4347 
4348 
4349 
4350 
4351 
4352 


4353 
4354 


4355 
4356 
4357 


4358 


4359 
4360 
4361 
4362 
4363 


4364 


INITIALIZATION 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
A 


NIT? 


BUGBUG 


BUGBUG 


PAGE 


SET UP COMMUNICATIONS NETWORK 


BSS 


LDX 
LXL 
BRANCH 
TSX 
EAX 
LOX 
EAX 
STX 
EAX 
XED 
EAX 
BUGXR 
SET 
LDxX 
LDx 
RELT 
TSX 


LDX 
LXL 
BRANCH 
TSX 
EAX 
LDX 
EAX 
STX 
EAX 
XED 


EAX 
BUGXR 
SET 
LDX 
LDxX 
RELT 
TSX 


FRN 0 @ INPUT EVENT 

FRN 41 a OUTPUT EVENT 

FRN 2 = PASS EVENT 

STATE NIFFERENTIATES BETWEEN LP AND CP MODULES 


SET Up Lp COMMUNICATIONS 


0 


ToL PNC90,DU 
JoTSIC3IeT 
PASSeCENSRVX 
Os TSSETT 
XaOnT 
ToTSLINKsX 
Os, CENSRYX 
OsTSTRAST 
OsQSOFFSTsT 
QSXADD+OSTASK 
ToDeX 

(02x) 
BUGRUG+1 
OsBuyuGByGeDu 
Xe BUGRUGSs. DU 


OsTSRELT 


TaLPNCB2. Di 
Jo TSICBST 
PASSsCENSRVX 
Os TSGETT 
XaO0etT 

To TSLINKoX 

Os CSNSRVX 

Os TSTRAST 

Oa QSOFFSToT 
QSXADDsaQ$TASK 


Ts0eX 
(OX) 
BUGBUG +4 


9s3GSUGsDU 
XeRGAuGsDu 


OsTSRELT 


SET UP LP INPUT LINE 
GET JCB POINTER 


RELEASE TC8 


sErT UP LP PAss LINE 
GET JCA POINTER 


RELEASE YTC8 
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MBR 


END 


OL O9=17=71 


003024 003550 
0nN3025 900006 
003026 901325 
093027 goood 
003030 000005 
ONS031 001644 
093032 000004 
093033 gon004 
005034 903262 
0N3035 onn000 
003036 525273 
003037 525273 
003040 001335 
003041 003610 
003042 00006 
003043 001325 
003044 goo0000 
003045 goo000s 
OF BINARY CARD 
003046 001644 
003047 on0004 
0030590 000004 
003051 003262 
003052 900900 
003053 525274 
003054 525274 
003055 001335 
003056 991547 


100764 


2210 03 
7260 11 
003026 
7000 00 
6220 11 
2210 12 
6200 900 
7490 11 
6200 11 
7170 aN 
6210 12 
003036 
525273 
2200 03 
2220 03 
003040 
70C0 00 


2210 03 
7260 11 
003043 
7000 00 
6220 11 
2210 12 
LPCP0082 
6200 00 
7400 11 
6200 11 
7170 00 
6210 12 
003053 
525274 
2200 03 
2220 03 
003055 
7000 00 
003056 
7100 00 


LINE PRINTER/ CARU PUNCH MODULE 


4366 
4367 
4368 
4369 
4370 
4371 
4372 


4373 


4374 
4375 
4376 
4377 
4376 


4379 


4380 


INITIALIZATION 


e@ 2 2 & 


BUGBUG 


BUGBUG 


LDX 
LXL 
BRANCH 
TSX 
EAX 
LDX 
EAX 
STX 
EAX 
XED 
EAX 
BUGXR 
SET 
LDX 
LDX 
RELT 
TSX 


LDX 
LXL 
BRANCH 
TSX 
EAX 
LDX 


EAX 
STX 
EAX 
XxED 
EAX _. 
BUGXR 
SET 
LDX 
LDX 
RELT 
TSX 
EXIT 
TRA 


SET WP CP COMMUNICATIONS 


TeCPNCBOsDuU 
JoT$JCRI,T 
PASSsC3NSRVX 
OsTSGETT 
XeOeT 

To TSLINKsX 
Os CSNSRVX 
OsTSTRAST 

On QSOFFSTsT 
Q$SXADD+QSTASK 
To0eX 

(02X) 
BUGBUG#41 
OsBUGELIGsDU 
Xe 8yUGBuUG.DYU 


Os TSRELT 


~ TsCPNCB2.DU 


JaTSICS4T 
PASS,CSNSRVX 
Os TSGETYT 
XaOoT 

Ta TSLINKsX 


Oo CSNSRVX 

Oe T8TRASAT 

Oe QSOFFSTaT 
QSXADD+OSTASK 
TeOeX 

(0X) 
BUGBUG+1 

Os BUGBUG» DU 
XsBYGBUGs»DU 


Os TSRELT 


SEXIT 


sET UP CP INPyuT LINE 
GET JCB POINTER 


SET UP CP PASS LINE 
GET JCB POINTER 


RELEASE TCB8 


DONE 
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MBR OL O9m17—7i1 10-764 


003644 


003057 


003060 
093060 


003252 


003260 
000200 


003314 
003320 
000040 


003644 


003644 

000003 

003644 
000000000000 


END OF BINARY CARD LPCPO0085 


003767 


003740 


000037 

000030 

003740 

= 003740 
0000c000N000 

003770 

000450 


003770 


LINE PRINTER/ CARD PUNCH MODULE 


4382 
4383 
4384 
4385 
4386 
4387 
4388 
4389 
4390 
4391 
4392 
4393 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 


4410. 


44it 
4412 
4413 
4414 


4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4428 
4424 
4425 


4426 
4427 


ASSEMBLY CONTROL CARDS 


* #8 £@ #2 & H & 


ZCODEL 
* 


* 


ZCONSL 
* 
* 


ZOSTRL. 


JCBX 


* 
TLEN 
TLENR 


SPTC8 


ZSTORL 
* 


LAs7< 


HEAD 


PAGE 


HOUSEKEEPING CAprDS 


HERE wE CLEAN ANY AND ALL ASSEMBLER BuGs. 

THE JCB*S ARE PRE=ALLOCATEDs THE LAST USED LOCATION OF 
CORE 1S CALCULATED AND WHAT REMAINS UP TO THE END OF THE 
BAR IF ANY [TS Ut INKED ON THE FREE MEMORY LIST, 


USE 
HEAD 
EIGHT 
EQU 


use 
LIT 
EIGHT 
EQU 


Use .- 
EIGHT 
EQu 


use 


. HEAD 


BSS 
EQuU 
DuP 
DEC 


EQu 
HEAD 


Egu 
EQu 
EIGHT 
ass 
DEC 
EIGHT 
EQU 


Equ 


CODE 
*@2CODE 
CONST 
*@2CONS 


OSsTOR 
*=ZQSTR 


STORE 
J 
) 


RSLPMAX4RESCPMAX 
1sLENwJCBN 
0 


* 


TSLEN#7 
TLEN/ 828 


TLENR#]} 
0 


weaZSTOR 


CODE UNDER CODE 


FORCE LITERAL POOL HERE 


CODE UNDERCONST 


CODE UNDER OSTOR 


PRE*ALLOCATED JCA?S 
*NUMBER TQ PRE@ALLOCATE 
GENERATE 


END OF JCBeSs 


ROUND T$LEN TO 

MULTIPLE OF EIGHT 

START CF DYNAMIC BUFFER AREA 

FIRST TC8 (START OF DYNAMIC BUFFERS 
FOR THE CRUMMY LOADER 


CODE UNDER STORE 


ZCODEL+z7CONeL¢ZosTRbeZ7sTORL LAST CARD 
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MBR OL 09"17=714 10764 


993740 
004767 
004000 
900010 


003770 


003770 
093355 catoto 
003353 on0000 


003770 
003771 


END OF BINARY CARD LPCP0086 
002750 
END OF BINARY CARD LPCP0087 


002750 
END OF BINARY CART LPCPOO90 


LINE PRINTERY CARD PUNCH MOLULE 


4429 
4430 


4431 
4432 
4433 
4434 
4435 
4440 
4441 
4442 
4443 
4444 
4445 


4446 


4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 


3772 1S THE NEXT AVAILABLE LOCATION, 


THERE WERE NO 


WARNING FLAGS IN THE 


ZTOPO Egu 
22 EQU 
ZToOP EQU 
271 EQU 
® 
NEXTF EguU 
NEXxTS €QU 
ZERO 
ZERO 
* 
* 
ToD 
® 
DCARD 
$ DKEND 
SEOD 
* 
* 
® 
THIs END 


GMAP VERSION 
ABOVE ASSEMBLY 


ASSEMBLY CONTROL CARNS 


SPTCR 
LASTC4+MQUAN@=]} 
ZZ/MQUAN®MQUAN 
ZTOP#LASTC 


LASTC 
NEXTF 


RSLASTsZZ1 
RSFIRST.O 


$uUP 


UP 


PAGE 


erTAoT OF NYNAMIC BUFFER AREA 
ROUND UP TO NEXT MULTIPLE 

OF CORE PAGE SIZE 

LENGTH OF LEFT OVER CORE 
STICK ExTRA CORE ON FREE LIST 


INITIALIZE HEADER DATA FOR LINKEN LIST 


MARK END OF BINARY DECK 


JMPA/062770 JMPB/Q962770 JMPC/062770 
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MBR O1 
OCTAL 


2000 
2761 
2772 
2750 


400 

4 

0 

20 

10 

37 
100000 


Oget7=71 
SYMBOL 


iK 
ANITL 
ANIT2 
ANIT 
APEND 
APNDT 
AVAIL 
B AP 
B BZ 


CA 
cP 
EX 


OVoDwWDWIIVIVIWVOWIVIVIVIIVIVIIVIWAIVIVIGI IVI9 OI VI TB wIWDIAIIDIWIIIVI VIIA 
m 
Cc 
z 


19.788 


657 
4339 
4354 
4322 
1236 
1249 

661 

227 

244 


232 
297 
228 
269 
229 
296 
231 
241 
225 
226 
230 
212 
325 
326 
327 
328 
329 
251 
252 
214 
215 
314 
245 
259 
335 
336 
337 
338 
339 
340 
341 
342 
220 
211 
279 
213 
216 
219 
218 
320 


657 
4339 
4340 

676 
1236 
1236 

561 

227 

244 
4340 

232 

297 

228 

269 

229 

296 

231 

241 

225 

226 

230 

212 

325 

326 

327 

328 

329 

251 

252 

214 

215 

314 

245 

259 

335 

336 

337 

335 

339 

340 

341 

342 

220 

211 

279 

213 

216 

219 

218 

320 


LINE PRINTERS CARD PUNCH MODULE 


658 
4340 
4354 
4322 
3855 
1239 
2198 

228 

790 


3221 
229 
2500 
230 
S241 
232 


226 


227 
650 


4086 
4095 


3642 


4127 
4068 


4332 
4332 


3480 


REFERENCES 8Y ALTER NO. 


2194 


4323 
3888 
1240 
2332 
230 
Bit 


3226 
250 


$215 


230 
230 


3670 


3863 


3987 


3147 


4122 


3200 


4211 


3381 


3509 


3519 


3642 


3856 


PAGE 


3889 
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4270 


MBR 


OCTAL 


ii 

5 

16 

6 
400000 
13 

10 

11 

12 

13 

14 

15 

26 
200000 
400000 
77 
400000 
7 
100000 
19000 
4000 
17 

{ 

7777 
200000 


OL 


Q9"17=714 
SYMBOL 


REL 
RPT 
TAL 
TLE 
TM] 
TNC 
TNZ 
TOY 
TPL 
TRC 
TRO 
TE 
ZER 

ABIT 

BBIT 

BHDR 

CBIT 

DONE 

ENDR 

ENDW 

HALT 

HDWE 

1ACC 

1ELT 

IFRN 

IMOD 

IPTR 

IPWD 

IRE 

KILL 

LOCK 

LP10 

LPit 

LP12 

LP13 

LP14 

LP15 

NSTR 

RHDR 

SIGN 

STMK 

TERM 

UERR 

WHOR 

XXX 

BABORT 

RBJBMK 

BBOTMK 

BBSTMK 

BDELIM 


VoOowddoano wy 
OWDWDWIWTBBDWIWIIIVOVWIVIVWIWIWIVOIVIIVAVOVIwVISVVIOWIVIVIwWO D 
mow 
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LINE PRINTERyY CARY PUNCH MODULE 


REFERENCES BY ALTER NO, 


316 
195 
217 
261 
291 
204 
200 
205 
202 
203 
254 
199 
210 
196 
197 
305 
198 
319 
292 
293 
294 
250 
243 
248 
242 
249 
246 
263 
247 
289 
262 
343 
344 
345 
346 
347 
348 
253 
290 
275 
274 
276 
260 
291 
317 
315 
3o3 
307 
309 
277 


346 
195 
217 
261 
201 
204 
200 
205 
202 
2038 
254 
199 
210 
196 
197 
305 
198 
319 
292 
293 
294 
256 
243 
248 
242 
249 
246 
263 
247 
289 
262 
343 
344 
345 
346 


347 


348 
253 
290 
275 
274 
276 
260 
291 
317 
315 
303 
307 
309 
277 


28414 


$173 


3211 


2184 
2184 
3471 


4275 
293 
294 

3373 

3356 


290 


291 
289 
2500 
277 


292 


4280 
3452 
3476 
3484 

278 


3215 


3650 
4226 
3393 


3304 


3473 
2961 
2429 


3473 


3466 


3221 


3792 
4263 
3631 


3633 


3635 
3147 


4185 


4283 


3226 


4183 


3665 


3173 


4209 


4277 


338i 


35909 


3519 


th42 


3456 


3889 


4270 


PAGE 


4340 


141 


MBR at 


OCTAL 


109000 
20000 


749000 
1700 
19000 
12000 
7777 
3100 


i) 
525200 
525274 


Q9"17=71 


SYMBOL 


BDIGIT 
BHDRMK 


BJOBMK 
BMODMK 
BOUTMK 
BRSTRT 
BSRTMK 
BSZ 

BUFSEG 
BUG 

BUGBUG 


N<x*« +A OrTGQ 


ERN 
GET 
JCB 
NCB 
REL 
RES 
RET 
TRA 
XED 
CMAX 
ComD 
KILL 
LINK 
MESS 
NSRV 
NSX1 
NSx2 
PERI 
REL2 
RSTI 
RST2 
SRW1 
SRW2 
TEMS 
CAUSE 
CAUST 
CCMDTB 
CCOMDxX 


CHSEG 


gaan agagAdIANIN ANA ANON O99N90N909O 90092 NO9N090 900 
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LINE PRINTERY CARD PUNCH MODULE 


REFERENCES SY ALTER NO, 


278 
304 
302 
3oi 
306 
318 
308 
3480 
656 
615 
4378 


500 
3274 
482 
481 
3323 
503 
476 
478 
477 
3252 
3239 
3299 
479 
502 
3172 
3198 
S201 
3412 
3338 
3380 
3382 
474 
475 
492 
1693 
1618 
3246 
3260 
1373 


278 
304 
302 
301 
306 
318 
308 
3477 
656 
615 
616 
2764 
3066 
3898 
3307 
3175 


3194 
3148 


3346 
500 
3247 
482 
481 
3249 
503 
476 
478 
477 
3243 
S2il 
3248 
479 
502 
3172 
3198 
3200 
3275 
3338 
3380 
S3S8t 
474 
475 
492 
1603 
1603 
3246 
3244 
1373 


279 


3984 
4187 


3480 
2499 

616 
1748 
2766 
3067 
3899 
3341 
3275 


3197 
3193 


3361 

501 
3274 
3211 
3211 
3323 
3413 


3252 
S221 
3299 

480 

503 
3195 
3200 
3201 
3300 


3381 


| 3382 


3146 
1606 
3252 
3269 
2499 


1749 
2767 
3068 
3900 
3342 
3300 
3282 


3415 
3199 


3215 
3215 


3463 


$2359 


3324 


3389 


1607 
3261 


1750 
2810 
3069 
3901 
3371 
3324 
3283 
3423 
3221 
3221 


3501 


3453 


3360 


1608 
3286 


1933 
2824 
3654 
4005 
3372 
3347 


3284 


3226 
3226 


3412 


1699 
33906 


1934 
2543 
3655 
40906 


3360 


3285 


1610 
S319 


1935 
2852 
3656 
4007 


3413 


1611 
3330 


1989 
2853 
3657 
4200 


1618 
S334 


1990 
2854 
3658 
4201 


3348 


2343 
2855 
3882 
4202 


3367 


2346 
2856 
3aB3 
4287 


3395 


2503 
2857 
3884 
4357 


3426 


2583 
2859 
3895 
4363 


PAGE 


2665 
2997 
3896 
4372 


142 


2762 
300! 
3897 
4378 


ol 


O9—"17=71 


SYMBOL 


CHSGT 
CKMK 
CLOSE 
CLOST 
CMESS1 
CmMEssx 
CNSRy1 
CNSRVX 
CPERIY 
CPHDR 
CPHLN 
CPe0 
CPel 
CP.2 
CP.3 
CPNCBO 
CPNCB2 
CPST 
CPTAB 
CRLINK 
CRSTRT 
CSPARE 
CSTATE 
CTEM10 
CTEM41 
CTEM12 
CTEM{3 
CTEmi14 
CTEmMy15 
CTEM16 
CTEMPL 
CTEMP2 
CTEmP3 
CTEMP4 
CTEMPS5 
CTEMP6 
CTEMP7 
CTEMPS 
DACC 
DBG 


DESz 
DTN 
DTSz 
EMPTY, 
EMPT9 
EMPT3 


19.7388 


LINE PRINTER/ CARD PUNCH MODULE 


REFERENCES @Y ALTER NO, 


1384 
618 
14,7 
1427 
3148 
3145 
3174 
3191 
3421 
3735 
3755 
4673 
408! 
4089 
4990 
3221 
3226 
638 
4035 
480 
3359 
483 
501i 
493 
494 
495 
496 
497 
498 


1373 
618 
1497 
1417 
3147 
2843 
3173 
3173 
$421 
3679 
3681 
4036 
4037 
4038 
4039 
3221 
3226 
638 
3988 
480 
3251 
“sy 
504 
493 
494 
495 
496 
497 
498 
499 
484 
485 
486 
487 
488 


489 


490 
491 
650 
39 
1749 
2767 
3069 
3901 
649 
646 
648 
4008 
46198 
4186 


1376 


2AQA 
1420 
3148 
3145 
3174 
3194 
3425 
3735 
3755 
4073 
49078 
4076 
409090 
4370 
4376 
S221 
4035 
3175 
3359 


502 


778 
42 
1750 
2810 
3654 
40905 
777 
648 
775 
4130 
4228 
4207 


1377 


4269 
1427 


3147 
32614 


3755 
4216 


49081 
4089 


3226 


2835 


734 
1933 
2824 
3655 
4006 


774 


4144 


1364 


3149 


3562 


3199 


1137 
1934 
2843 
3656 
4007 


4495 


3882 


4357 


3343 


1190 
1935 


2852 
3657 
4200 


4221 


4287 


4363 


3874 


1244 
1989 
2853 
3658 
4201 


4372 


1290 
1990 
2854 
3882 
4202 


4378 


1333 
2343 
2855 
3883 
4287 


1379 
2346 
2856 
3884 
4328 


1422 
2503 
2857 
3895 
4357 


4465 
2583 
2859 
3896 
4363 


1508 
2665 
3042 
3A97 
4372 


1555 
2762 
3066 
3498 
4378 


PAGE 


1613 
2764 
3067 
3ag9 


143 


1746 
2766 
3068 
3900 


MBR 
OCTAL 


650 
3636 
2576 

777777 


O41 


09—17—71 
SYMBOL 


EMPT4 
EMPTY 
EMPTY 
ERROR 


EXIti 
EXIT 


FILLO 
FILL 
FILL2 
FILLS 
FILL4 
FILLS 
FILL6 
FILL 
FRNO 
FRNI 
FRN2 
GCOS1 
GCOS2 
GCOS3 
GCOS4 
GCOS5 
GCOS7 
GEBORT 
GECALL 
GECHEK 
GECOS 
GEENDC 
GEFADD 
GEFCON 
GEFILS 
GEFINI 
GEFRCE 
GEFSYE 
GEIDSE 
GEINFO 
GEINOS 
GELAPS 
GELBAR 
GELOOP 
GEMORE 
GEMREL 
GENEWS 
GEPRIO 
GERELC 
GERELS 


1927388 


4215 
4295 
4471 

6144 


3044 
$o4i 


3630 
3641 
3646 
3652 
3664 
3678 
3685 
3619 

632 

633 

634 
3966 
3998 
3999 
4004 
3970 
3994 


3954 


4212 
4180 
4171 

614 
22753 
2829 
3509 
3044 
1139 
3154 
3630 
3641 
3634 
3642 
3636 
3671 
3632 
3619 

632 

633 

634 
3966 
3998 
3999 
3959 
3962 
3994 


3954 


LINE PRINTERY CARD PUNCH MODULE 


4215 
4225 
4260 
1754 
2277 
3049 
3512 
3080 
1192 
3203 
$642 


3642 
3652 
3664 
3678 
5685 
3789 
S211 
3146 
3215 
4000 


3976 
3970 
4069 


REFREFENCES 8Y ALTER NO, 


1755 
2421 
3055 
3519 
1246 
3690 
3686 


3646 
3677 


3221 


3226 


3989 


4087 


1792 
2426 
3056 
3642 


1292 
3799 


3684 


4004 


4096 


1798 
2500 
S061 
3856 


1335 
4302 


4100 


1799 
2552 
3962 
3389 


1384 
4380 


1986 
2553 
3064 
4123 


1424 


1987 
2579 
3065 
4270 


1467 


2017 
2663 
3173 
4340 


1557 


2141 
2736 
3200 


1615 


2143 
2742 
3246 


1757 


2167 
2750 
3250 


1939 


PAGE 


2199 
2805 
3381 


2468 


144 


2270 
2499 
3468 


3041 


O01 09917871 


SYMBOL 


GERETS 
GEROAD 


GEROLL 
GEROUT 
GERSTR 
GESAVE 
GESETS 
GESNAP 
GESNUM 
GESPEC 
GESYOT 
GETIME 
GEUSER 
GEWAKE 
IGNOR 
INIT2 
INIT 
INIT4 
INIT TS 
INIT 

0320 

2512 

eAPEND 
eCATDR 
eCATLG 
eCATLK 
eCAUSE 
eCHSEG 


S _ sCLOSE _. 


eCLSEG 
eCRSG 
eDELET 
eDESTR 
e&MM 


9EXSEG 


eLOCK 
eMSTA 
eNOTIF 
OPEN 
eOPENS 
2 OPENW 
eOPSCE 
eOPSEG 
ePAUSE 
ePRIV 
eRDACL 
eRDBRN _ 
eRDDIR 
eRDLK 
eRDME 


102788 


LINE PRINTER/S CARD PUNCH MODULE 


REFERENCES BY ALTER NO, 


4099 
3504 
3510 
3547 
3520 
3449 
3953 
4419 
141 
162 
158 
170 
175 
154 
157 
153 
184 
176 
159 


155 
172 
179 
174 
156 
160 
166 
178 
152 
{St 
136 
164 
167 
165 
168 
180 


4022 
3504 
3509 
3517 
3519 
3215 
3953 
41419 
141 
162 
1586 
170 
175 
154 
1527 
153 
161 
176 
159 


| ae ee 
- 1464 


172 
179 
174 
156 
160 
166 
178 
152 
i51 
136 
164 
167 
165 
168 
180 


4025 
3509 
3510 
3519 
3520 
3226 
4191 
4190 
1243 


1612 
1378 


.1421 


1554 
772 


783 


4927 


3527 


3449 


805 


4041 


830 


4074 


3077 


4079 


4099 


PAGE 


145 


" 


OL 9917-71 
SYMBOL 


eREAD 
eRODT 
eRGERT 
eRQST 
eRQWD 
oRRE 
eSCR 

eo SETFYV 
»SETSO 
e SPAWN 
aSPTR 
eSQUEZ 
e TERM 
eUNCAU 
eUNLCK 
eUPDAT 


OE Se ee oe oe oe ee Og Oar oe ee ne ne nk oy Se Dy DY Se De Oe ee ee 
nn 
Cc 
r 
Cc 
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LINE PRINTERY CARD PUNCH MOOULE 


REFERENCES sY ALTER NO, 


14¢ 
147 
448 
146 
184 
142 
144 
137 
138 
149 
145 
139 
150 
177 
173 
161 
183 
171 
163 
143 
169 
182 


455 


456 
436 
449 
427 
429 
441 
2628 
430 
4411 
4412 
4415 
3020 
431 
2661 
443 
450 
445 
607 


140 
147 
148 
146 
184 
142 
144 
137 
138 
149 
145 
139 
150 
177 
173 
161 
183 
171 
163 
143 
169 
182 
2629 


455 


2635 


456 
436 
449 
427 
429 
441i 

2628 
430 

2629 

2631 

4415 

3020 
431 

2661 
443 
450 
445 
607 

3455 

3500 


1189 
765 


1332 


797 
1136 


1289 
839 


1307 


818 


2634 


456 


2631 
3967 

450 

456 
3460 
3490 
3454 
3380 
4431 
4412 


' $467 


3503 
4300 
3492 

451 
3493 
2632 
3460 
3502 


26358 


458 


2634 
3969 


3502 
2635 


3790 
3487 
4413 


3469 
3855 


3622 
3847 
3955 
2634 
3462 
3503 


2665 


3486 


2656 
3972 
3876 
2662 


4259 


3506 


4285 
3888 


3627 
3867 
4173 
2635 
3464 
3508 


3497 


2638 
3975 
4291 
2664 


3518 


4335 


3648 
3868 
4178 
2637 
3469 
35141 


3557 


4413 
3981 


36414 


3673 


4197 
2638 
3474 
3548 


4294 


3983 


4269 


3680 


2662 
3478 
3523 


2664 
3485 
3530 


3060 
3487 
3544 


3309 3374 
3489 3499 
3555 3621 


3378 
3491 
3622 


3389 
3492 
3624 


PAGE 


3385 
3493 
3626 


146 


3394 
3496 
3627 


MBR 


OCTAL 


731 


o1 


09—17=71 


SYMBOL 


JBUF SZ 
JCARDI 
JEMPTY 
JFLAGS 


JMAX JB 
JRESET 
JRSTRT 
JRTASK 
JWTASK 
JXDATA 
L 


LASTC 
.OCK 
LOCKT 
LPt 
LPS12 
LPHDR 
LPHLN 
LP ed 
LPe2 
LP oS 
LPNCBO 
LPNCB2 
LPST 
LPTAB 
MEMRO 
MQUAN 
MTOPO 
MTOP 
NEXTB 
NEXTF 
NOTFT 
NOTIF 
OFF 
ON 


ooo 
vra 
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LINE PRINTER/ CARD PUNCH MODULE 


REFERENCES BY ALTER NO, 


1928 


3630 
3862 
3986 
4269 
434 
433 
439 
428 
4182 
3016 
451 
435 
447 
448 
438 
608 
2768 
3790 
4291 
4427 
1460 
1460 
4125 
4120 
3672 
3674 
4021 
4023 
4024 
3211 
3215 
639 
3989 
662 


364 
386 
4121 
4276 
3478 
3851 
3489 
3309 
4210 
3021 
456 
3378 
448 
449 
3956 
1751 
2860 
3846 
4300 
4432 


1463 
4214 


3705 
3727 
4061 
4062 
4063 
4355 
4361 
S2ii 
4020 
2337 

662 


2267 


2226 
44414 
4440 
1552 
3199 


39 
1749 
2767 
3069 
S90t 


1937 
3788 


3648 
3868 
4173 
4279 
3511 
3853 
3788 
3374 
4227 


3491 
3385 
3532 
3544 
3961 
1796 
3063 
3894 


4434 


1470 


3727 
4213 


$215 


2423 
2227... 
2354 
2228 


4441 
1553 


42 
1750 
2810 
3654 
4005 


2006 
4259 


365 
387 
41475 
4291 
3555 


4261 
3394 
4262 


3496 
3485 


3978 
1806 
3070 
3902 


4440 


3560 


2232. 


2416 
2231 


1560 


734 
1933 
2824 
3655 
40906 


2017 


3666 
38R8 
4177 
4292 
3621 


3462 
4276 


3500 
3523 


1810 
3176 
3998 


4298 
2233 


2268 


1137 
1934 
2843 
3656 
4007 


3673 
3955 


4178 
4330 
4292 


3464 


3624 
4196 


1936 
3422 
4004 


2335 


2333 


1199 
1935 
2552 
3657 
4200 


3680 
3956 
4182 
4331 


3474 


3626 
4208 


1983 
3454 
4129 


2451 


2417 


1244 
1989 
2853 
3658 
4201 


3788 
3964 


4196 
4356 


3630 


4175 
4279 


1994 
3501 
4172 


2453 


2462 


1290 
1999 
2854 
3889 
4202 


3790 
3967 


4197 
43692 


3654 


4177 


2201 
3620 
4197 


2496 


2495 


1333 
2343 
2855 
3883 
4287 


379 
396 
4208 
4371 


3666 


2347 
3621 
4199 


2497 


2498 


1379 
2346 
2856 
3384 
4328 


3847 
3972 
4210 
4377 


3794 


2366 
3647 
4203 


4432 


2499 


1422 
2503 
2457 
3895 
4357 


3848 
3975 


4227 


3844 


2378 
3653 
4220 


4433 


1465 
2583 
2859 
3896 
4363 


385 
397 


4259 


3869 


2504 
3659 
4259 


1508 
2665 
3042 
3897 
4372 


PAGE 


3853 
3983 


42614 


3986 


2639 
3788 
4260 


1555 
2762 
3066 
3898 
4378 


147 


3855 
3983 


4262 


4121 


2666 
3789 
426} 


1613 
2764 
3067 
3899 


= . - 
Pon 


NK AN OA GA 


’ 


aa 


3446 
3421 


- O02 A) 


01 
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SYMBOL 


ono o Oonodooa ooo dodo DO D0 0000 
»> 
ie] 
DB 
Pp) 


_ QOFFST 


QSPARI 
QSPArR2 


ZA AAD 
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Bm» 
~< 


ro 
vv 
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10.788 


LINE PRINTERS CARD PUNCH MoluLe 


REFEPENCES 3Y ALTER NO, 


1978 


1937 
1789 
1738 
554 
549 
553 
547 
2017 
1752 
543 
558 
2006 


544 


546 
545 
606 


550 
542 
557 


531 
552 


2997 
3001 
SCOl 
2958 

570 
2908 
2907 
3001 


1750 
1746 
1978 
1750 
1750 
1750 
1932 
1789 
1728 
554 
549 
553 
547 
2017 
1745 
543 
558 
1053 
3551 
544 
4378 
546 
545 
606 
1803 
3898 
550 
542 
557 
4372 
551 
552 
2342 
2229 
2762 
2341 
2163 
2307 
2461 
2162 
2149 
2445 
2930 
2934 
2997 
2761 
570 
2741 
2743 
2997 


1935 
1938 
3790 
1800 
1935 
1929 
1937 
2006 
2006 


550 
554 
549 
2156 
1752 
544 
1802 
1955 
3689 
545 


547 
546 
1739 
1895 
4005 
551 
543 
558 
4378 
552 
553 
2757 
22354 
2855 
2343 
2170 
2522 
2462 
2175 
2155 


"2449 


2997 
3901 
3001 
2822 
2164 
2908 
2907 
3001 


2006 


4261 
1802 


1950 


2017 
2017 


1741 


1744 
2176 


1053 
3057 
1804 
3882 
1756 


2176 
21356 
1740 
1807 
4202 
1739 
1794 
1753 


2321 


2843 
2172 
2334 
2463 
2187 


2158. 


2733 


2824 
2169 
2909 
2908 


2017 


1803 


1931 


1743 


1746 
23359 


1055 


1988 
4287 
1804 


2466 
2416 
17414 
1808 
4259 
1740 
1797 
1800 


2325 


2178 
23832 
2758 
2294 
2168 
2734 


2953 
2275 
3420 
3415 


1791 
2416 


1795 


2006 
4357 
1988 


1743 
1929 
4261 
1790 
1853 
1985 


2464 


2186 
2333 
2759 
2297 
2171 
2735 


2954 
2363 


1979 


1793 
2466 


1805 


2343 
4363 
2343 


1744 
1931 


i207 
2343 


2494 


2197 
2334 
2762 
2443 
2182 
2737 


3283 
2373 


1980 


1801 


1808 


2843 
4372 
2843 


1746 
1938 


2006 
2843 


2502 


2198 
2335 
2803 
2447 
2191 
2762 


2375 


1981 


2339 


2006 


3045 
4378 
3539 


1756 
1979 


2017 
3054 


2731 


2226 
2337 
2837 
2450 
2293 
2834 


2377 


1990 


2017 
3046 


3551 


1790 
1984 


3045 
3535 


2763 


2227 
2343 
2843 
2451 
2299 
2855 


2443 


3046 
3048 


3689 


1791 
1984 


3048 
3547 


2798 


2228 
2417 
2848 
2453 
2300 


2450 


3050 
3050 
3882 


1793 
1989 


3052 
3688 


2858 


2271 
2418 
2855 
2454 
2323 


2455 


3053 
3052 


4287 


1794 
3067 


3058 
3882 


2278 
2449 


2762 
2324 


2457 


3053 
4357 


1795 
3656 


4287 


2283 
2420 


2822 
2372 


PAGE 


3054 


4363 


1797 
3768 


4357 


2285 
2422 


2423 
2432 


148 


3539 
4372 


1801 
3790 


4363 


2298 
2444 


2855 
2437 


MBR 


OCTAL 


2 
400000 
2 
1011 
1364 
3355 
1241 
1250 
1260 
1276 
1077 
3400 
1301 
) 


1110 
1433 
100000 
3406 
3360 
200000 
{ 


3410 
34140 
3 
3416 
536 
3341 
3353 


01 


1015. 


1024 
105% 
1072 
1026 
1035 
1065 
1377 
1405 
3404 

1 

0 
_ 2 
3443 
1225 
11038 
1306 
1s2i 
4001 
575 
3344 
1134 


O9=17=71 
SYMBOL 


ALLC 
BUSY 
FLAG 
GETC 
GETP 
LAST 
MEM1 
MEM? 
MEMS 
MEMX 
MORE 
MREG 
MREQ 
NAME 
RELC 
RELP 
RSVE 
TEMP 
TRAP 
RCLOSE 
RCPMAX 
RCPTAB 
RDEVHR 
RDEVLN 
RDEVTB 
READ 
READT 
RFIRST 


wD DAD ODMABAAADABAADAADAADADAD 


RGETC) 


RGETC3 
RGETC4 
RGETCS 
RGETC6 
RGETC7 
RGETCS 
RGETP1 
RGETP2 
RINSRT 
RLINKB 
RLINKF 
RLPMAX 
RLPTAB 
RMEMCK 
RMORE 1 
RMREOL 
RMREQ2 
RQMAX 

RQST 

RQSTT 

RRELC1 


192788 


REFERENCES BY ALTER NO, 


2955 2757 2897 2810 
2961 2744 2758 2849 
2954 2745 2759 2804 
2134 2134 2549 3621 
2730 2730 3501 
2048 2048 2307 2444 
2433 2433 2438 
2443 2435 2436 2443 
2451 2448 2451 
2465 2427 2439 2452 
2225 2157 2225 
2384 29264 2272 2331 
2494 2229 2464 2494 
2952 2838 2952 2953 
2263 2234 2263 2582 
2797 2797 3347 4291 
2963 2744 2815 2820 
2386 2266 2269 2271 
2383 2341 2342 2383 
2962 2744 2820 2962 
2997 2930 2997 4412 
2930 2882 2930 
2926 2926 
2956 2747 2956 3423 
2993 2993 
1182 1182 3641 
4195 1182 1185 1186 
2044 2044 2149 2278 
2137 2137 
2147 2147 2235 
2173 2166 2173 
2196 2196 
2150 2150 2156 
2158 2153 2154 2158 
2188 2188 2192 . 
2745 2745 . 2749 
2755 2746 2755 
2385 2285 2293 2324 
571 571 2162 2171 
569 569 570 571 
3001 2934 3001 4412 
2934 2883 2934 
24145 2343 2415 
22306 2230 
2499 2499 2500 
2501 2500 2501 
658 658 2142 
1328 1328 3508 
1338 1328 1331 1338 
2292 2292 2308 


2955 
2961 
2814 


4442 


2465 
2345 


2956 
3647 


2963 
2274 
2384 
2963 


1167 
2432 


2364 
2174 
2163 


2956 
2962 
2821 


2384 


3449 
4197 


3284 
2276 


2997 


1188 
4443 


2385 
2175 


2170 


3307 
2997 
2850 


2345 
3421 
33314 
2374 


3001 


1195 


2294 
2173 
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3344 
3001 
2954 


2386 
3877 


2376 


3280 


2296 
2263 


3374 
3284 
2955 


2386 


3284 


2297 
2298 


3308 3333 3339 3366 

3279 3285 330904 3328 3332 
3329 

2299 2372 2445 2449 2459 
2300 23685 23790 2371 


DAGE 


3340 


2460 


149 


3365 


MBR 


OCTAL 


1144 
1146 
1206 
1202 
1457 
1467 
1517 
1522 

2 
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SYMBOL 


RRELC2 
RRELC3 
RRELC4 
RRELCx 
RRELP1 
RRELP2 
RRELPS 
RRELP6 
RSPARE 
RTABCP 
RTABLE 
RTABLP 
RTASK 

RTMAX 

RTSK1 

RTYPCP 
RTYPLP 
SETFT 
SETFV 
SETup 
SPTCB - 
SPTR 

SPTRT 


ee 


44-4 4-4 
rc 
eas 
z 
x 


414 41 
+ 
™m 
= 
ve} 
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LINE PRINTERY CARD PUNCH MODULE 


REFERENCES dY ALTER NO, 


2306 
2320 
2362 
2344 
28286 
2830 
2847 
28651 
2909 
2882 
2880 
28838 
3787 

622 
3797 
2888 
2889 
1142 
1132 
1038 
4421 
1284 
1295 


372 
374 
371 
361 
366 


362 
2548 
370 
2577 
359 


360 
388 
602 


2284 
2302 
2321 
2336 
2828 
2829 
2816 
2851 
2909 
2882 
2735 
2883 
3533 

622 
3797 
2888 
2589 
1152 
1132 
10938 
4329 
1284 
1264 
2554 
2549 


2550 


372 
374 
371 
361 
366 
3534 
362 
2343 
370 
2467 
359 
3642 
360 
388 
602 
2180 
2502 
2767 
2853 
3175 


2306 
2320 
2325 
2338 
2829 
2830 
2847 


2888 
2880 
2889 
3787 
3869 


3221 
3211 
1135 
4339 
1134 
4330 
3380 
1287 


2582 


2551 


482 
377 
372 
476 
478 
3546 
477 
2548 
479 
2577 
474 
3856 
475 
389 
1039 
2186 
2503 
2798 
2854 
3193 


2362 
2340 


2888 


3793 


3226 
3215 
1142 


1184 
4421 
3518 
1288 


2578 


2554 
500 
484 


1039 
3620 
1044 
2843 
2343 
3153 
1042 
3889 
3240 

492 
1042 
2197 
2554 
2802 
2858 
3194 


2344 


2889 


1238 
4431 


1295 


2583 


2808 
2383 
2834 


1752 
3653 


3192 
2550 
3202 
2500 
4270 
3383 
2494 
1044 
2200 
2578 
2803 
2859 
3198 


3414 


1286 


3060 
2384 
3537 


1937 
3658 


3531 
2843 
3798 
2829 
4340 
3416 
2502 
1752 
2343 
2580 
2808 
3048 
3200 


1330 


3342 
2549 
3549 


2343 
3687 


3543 
3194 
4301 
3147 


3450 
2503 
1753 
2419 
2731 
2523 
3050 
3240 


1375 


3372 
2581 
3873 


2731 
3682 


3882 
3198 
4341 
3148 


3459 


1937 
2422 
2732 
2828 
3054 
3282 


1419 


3455 
3558 


2763 
4172 


4287 
3536 
4358 
3173 


3521 


2135 
2424 
2733 
2829 
3057 
3342 


1462 


4331 
4295 


2764 
4199 


4357 
3548 
4364 
3200 


3864 


2138 
2425 
2737 
2834 
3060 
3343 


1505 


4356 
4418 


2798 
4287 


4363 
3882 
4373 
3282 


2144 
2447 
2756 
2836 
3063 
3345 


1551 


4362 


2843 
4357 


4372 
4287 
4379 
3381 


2146 
2454 
2760 
2837 
3066 
3346 


1605 


4371 


2854 
4363 


4378 
4357 


3486 


2148 
2456 
2763 
2842 
3146 
3347 


3196 


4377 


2859 
4372 


4363 
3509 


2158 
2464 
2764 
2843 
3147 
3364 


PAGE 


3063 
4378 


4372 
3510 


2165 
2494 
2765 
2048 
31468 
3372 


150 


3066 


4378 


3519 


2168 
2500 
2766 
2852 
3173 
3379 
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OCTAL 


100 
777700 


ol 
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SYMBOL 


TAL 
TALMK 
TAL YB 
THIS 
TLEN 
TLENR 
TRAP 
TSPARE 
TTEMIC 
TTEM(L 
TTEM 2 
TTEMiIS 
TTEM {4 
TTEM1S 
TTEM16 
TTEMPY 


TTEMP2 


TTEmMpS 
TTEMP4 
TTEMPS 
TTEMP6 
TTEMP7 
TTEMPS 
UNLOCK 

UNLKT 


uP 


WAIT 
WRITE 
WT 1 
WT2 
WT 201 
WTS 
WT4 
WTASK 
WTSK1 
WTSK2 


MK MK OK 
xA Ora 


192788 


621 
620 
619 
4454 
4418 
4419 
1652 
373 
389 
390 
391 
392 
393 
394 
395 
377 


378 


379 
380 
381 
382 
383 
384 
1503 
1513 
4323 
3077 
3845 
3855 
3857 
3872 
3888 
3893 
4258 
4265 
4271 


3380 
3518 
3550 
3873 
3997 
4340 
621 
620 
619 
4454 
44184 
4419 
1043 
373 
389 
390 
394 
392 
393 
394 
395 
377 
2852 
3895 
378 
3882 
379 
380 
381 
382 
383 
384 
1503 
1503 


4323 


3047 
3845 
3850 
3856 
3854 
3888 
3856 
3545 
4265 
4270 
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3381 
3519 
3620 
3875 
4004 
4355 


4419 
4421 
1052 
483 
390 
391 
392 
393 
394 
395 
499 
378 
3146 
39764 
379 
3896 
380 
384 
382 
383 
384 
388 


1506 
4446 
3077 
3998 
3852 
3857 
3864 
3889 
3871 
4258 
4270 
4271 


PEFERENCES BY ALTER NO, 


3363 
3521 
3629 
386} 
4126 
4356 


493 
494 
495 
496 
497 
498 
2135 
484 
3345 
3977 
485 
3996 
486 
487 
486 
489 
499 
491 


1513 
4454 


4129 
3855 


3866 


3893 
4264 


3388 
3526 
3641 
3882 
4128 
4357 


2146 
2198 


2200 
2419 
3346 
4181 
2422 
4426 
2425 
2454 
3881 
3846 


4220 
3856 


3872 


5443 
3532 
3642 
3883 
4172 
43614 


2165 


2144 


2732 
3347 
4284 
2424 
4217 
2447 
2456 
3882 
3894 


3870 


) 


3446 
3534 
3647 
3884 
4181 
4362 


2168 


2148 


2733 
3364 
4287 
2737 
4284 
2823 
2464 
3884 
3899 


3889 


3450 
3535 
3653 
3889 
4199 
4363 


2197 
2158 


2756 
3516 


2767 
4287 
2828 
3875 


4004 


3455 
3536 
3657 
3894 
4217 
4370 


2180 


2769 
3548 


2836 


2642 
3882 


$459 
3537 
3658 
3Aa95 
4219 
4374 


2186 


2765 
3526 


2843 


2843 
3883 


3463 
3538 
3687 
3896 
4270 
4372 


2766 
3629 


2853 


2854 


3486 
3544 
3688 
3897 
4284 
4376 


2802 
3644 


3146 


3855 


3504 
3546 
3846 
3A99 
4284 
4377 


2893 
3647 


3379 


3897 


3509 
3547 
3455 
3974 
4287 
43784 


2837 
3657 


3380 


3997 


PAGE 


3549 
3548 
3856 
3977 
4329 


2843 
3a55 


3388 


4128 


151 


3546 
3549 
38614 
3996 
4331 


2848 
3889 


3855 


4219 
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OCTAL SYMBOL REFERENCES BY ALTER NO, 
3 X Y 
4 X Z 
6 X FT 682 682 
0 X FV 676 676 4339 
5} X 1c 718 718 759 762 
24 X OP 696 696 
34 X DIV 704 704 
14 X DRL 688 688 
401 X FT 771 771 791 
425 X FT2 796 788 796 812 
445 X FT 817 810 847 837 
. §0 X C1 717 717 764 
2 X MEM 678 678 
4 X MME 680 680 
26 X ONC 698 698 
160 X REG 736 736 994 998 1003 
36 X XEC 706 706 
3324 X CKIC 1009 991 1005 1009 
474 X CKPT 990 990 1137 1190 1244 1290 1333 1379 1422 1468 45098 1555 1613 3942 4328 
52 X DATE 722 722 767 
170 X DBGA 739 736 739 1000 1902 
16 X LOCK 690 690 
40 X REGS 716 716 761 
55 X SBAR 725 725 823 824 
30 X STRT 700 700 
470 X TERM 838 792 813 835 838 
53 X TIME 723 723 
X 


6038 603 1802 2174 2174 2175 2187 2389 2275 2282 2294 2299 2343 2379 2373 2445 
2449 2469 2804 2807 2819 2814 2821 2822 2824 2838 2843 2859 3957 3958 3067 
3197 3414 3463 3464 3486 3487 3495 3498 3498 3499 3590 3510 3511 3533 3534 
3536 3537 3538 3545 3546 3548 3549 3559 3622 3623 3624 3626 3627 3628 3648 
3649 3656 3672 3675 3679 3682 3864 3873 3874 3876 3877 3882 3898 3955 3956 
3957 3968 3969 3974 3972 3973 3974 3975 3977 3978 3986 3987 3997 4995 4068 
4086 4095 4124 4126 4173 4174 4175 4177 4178 4179 4202 4213 4216 49437 4287 
4357 4363 4372 4378 


3330 XCKREG 1011 993 1004 1011 
12 xCOMND 686 686 
20 XCONCT 692 692 
20 XDBGQN 737 737 739 1000 
370 XFAULT 758 677 679 681 683 685 687 689 694 692 695 697 699 701 703 705 
oa 707 758 ‘ey eens 
32 XOFLOW 702 702 
22 XPARTY 694 694 
56 XPATCH 730 730 
10 XTIMER 684 684 
414 XTRAPY 786 773 786 787 789 799 820 
435 XTRAP2 808 798 808 809 
461 XTRAPS 833 819 833 834 
3 Y 694 604 2173 2190 2300 2323 3067 3656 3673 3676 3689 3683 3898 4905 4427 4428 


4202 4218 4219 
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OCTAL SYMBOL 


4 Zz 


0 ZCODE 
3060 ZCODEL 
3060 ZCONS 

200 ZCONSL 
3260 ZQSTR 
40 ZOSTRL 
3320 ZSTOR 
450 ZSTORL 
3740 ZTOPO 


4000 ZTOP 
10 ZZ1 
4767 Zz 
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605 


107 
4395 
lil 
44ol 
115 
4466 
119 
4424 
4431 
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MEMORY 


605 
2371 
3279 
3957 

107 
4395 

111 
4401 

115 
4406 
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4424 

663 

664 

661 
4432 
WERE 


2152 
2375 
3283 
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4395 
4427 
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4427 
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4427 
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2169 
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3332 
4005 
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2172 2296 
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